Jump to content
Sign in to follow this  
Followers 0
Mock

[Halp!] Script format beta

By Mock, in Lua

Recommended Posts

Mock    32
Mock
Posted

Eu fiz um scritp que quando vc roda ele faz isso:

[color="DimGray"][/color]a [color="DimGray"]=[/color] [color="DimGray"]{[/color]
[color="DimGray"][[/color][color="Sienna"]'lua'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] config[color="DimGray"][[/color][color="Sienna"]'security'[/color][color="DimGray"]][/color][color="DimGray"][[/color][color="Sienna"]'allowloadstring'[/color][color="DimGray"]][/color] [b][color="Blue"]and[/color][/b] config[color="DimGray"][[/color][color="Sienna"]'security'[/color][color="DimGray"]][/color][color="DimGray"][[/color][color="Sienna"]'allowloadstring'[/color][color="DimGray"]][/color] [color="DimGray"]==[/color] "[color="DarkOrchid"]0[/color]" [b][color="Blue"]then[/color][/b]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Loadstring disabled (Error |ÿ3|)\n'[/color][color="DimGray"])[/color]
		[b][color="Blue"]return[/color][/b]
	[b][color="Blue"]end[/color][/b]
	[b][color="Blue"]local[/color][/b] ret[color="DimGray"],[/color]err [color="DimGray"]=[/color] [b][color="DarkOrchid"]loadstring[/color][/b][color="DimGray"]([/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color][color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] ret [b][color="Blue"]then[/color][/b]
		[b][color="Blue"]local[/color][/b] ret[color="DimGray"],[/color]err [color="DimGray"]=[/color] [b][color="DarkOrchid"]pcall[/color][/b][color="DimGray"]([/color]ret[color="DimGray"],[/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
		[b][color="Blue"]if[/color][/b] [b][color="Blue"]not[/color][/b] ret [b][color="Blue"]then[/color][/b]
			err [color="DimGray"]=[/color] err[color="DimGray"]:[/color]gsub[color="DimGray"]([/color][color="Sienna"]'\n'[/color][color="DimGray"],[/color][color="Sienna"]'€'[/color][color="DimGray"])[/color]
			b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=LUA ERROR '[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]err[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'. (Error |ÿ5|)\n'[/color][color="DimGray"])[/color]
		else
			b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Executed is '[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]ret[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]' and return is: '[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]err[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'\n'[/color][color="DimGray"])[/color]
		[b][color="Blue"]end[/color][/b]
	else
		err [color="DimGray"]=[/color] err[color="DimGray"]:[/color]gsub[color="DimGray"]([/color][color="Sienna"]'\n'[/color][color="DimGray"],[/color][color="Sienna"]'€'[/color][color="DimGray"])[/color]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=LUA ERROR '[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]err[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'. (Error |ÿ8|)\n'[/color][color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'save'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"])[/color]
	[b][color="Blue"]do[/color][/b]SaveServer[color="DimGray"]([/color][color="DimGray"])[/color]
	addEvent[color="DimGray"]([/color][b][color="Blue"]function[/color][/b][color="DimGray"]([/color][color="DimGray"])[/color] b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Save done.\n'[/color][color="DimGray"])[/color] [b][color="Blue"]end[/color][/b][color="DimGray"],[/color][color="DarkOrchid"]200[/color][color="DimGray"])[/color]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'broadcast'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]do[/color][/b]BroadcastMessage[color="DimGray"]([/color]var[color="DimGray"])[/color]
	b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Broadcast "'[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'" has been sent.\n'[/color][color="DimGray"])[/color]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'stateserver'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] [b][color="Blue"]do[/color][/b]SetGameState[color="DimGray"]([/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]3[/color][color="DimGray"])[/color][color="DimGray"])[/color] [b][color="Blue"]then[/color][/b]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Game state now is '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]3[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'.\n'[/color][color="DimGray"])[/color]
	else
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Game state with id '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]3[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]' not found.\n'[/color][color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'reload'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color]  [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] [b][color="Blue"]do[/color][/b]Re[b][color="DarkOrchid"]load[/color][/b]Info[color="DimGray"]([/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]99[/color][color="DimGray"])[/color][color="DimGray"])[/color] [b][color="Blue"]then[/color][/b]
		addEvent[color="DimGray"]([/color][b][color="Blue"]function[/color][/b][color="DimGray"]([/color][color="DimGray"])[/color] b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Reloaded '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]99[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'.\n'[/color][color="DimGray"])[/color] [b][color="Blue"]end[/color][/b][color="DimGray"],[/color][color="DarkOrchid"]200[/color][color="DimGray"])[/color]
	else
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Reload type '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]99[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]' not found.\n'[/color][color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'mode'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color]  [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] setW[b][color="Blue"]or[/color][/b]ldType[color="DimGray"]([/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]4[/color][color="DimGray"])[/color][color="DimGray"])[/color] [b][color="Blue"]then[/color][/b]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Wrold type now is '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]4[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'.\n'[/color][color="DimGray"])[/color]
	else
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Bad wrold type '[/color][color="DimGray"]..[/color][color="DimGray"]([/color][b][color="DarkOrchid"]tonumber[/color][/b][color="DimGray"]([/color]var[color="DimGray"])[/color] [b][color="Blue"]or[/color][/b] [color="DarkOrchid"]4[/color][color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'.\n'[/color][color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'kick'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]local[/color][/b] cid [color="DimGray"]=[/color] getPlayerByName[color="DimGray"]([/color]var[color="DimGray"])[/color]
	[b][color="Blue"]if[/color][/b] cid [b][color="Blue"]and[/color][/b] isPlayer[color="DimGray"]([/color]cid[color="DimGray"])[/color] [b][color="Blue"]then[/color][/b]
		[b][color="Blue"]do[/color][/b]RemoveCreature[color="DimGray"]([/color]cid[color="DimGray"])[/color]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=A player with name '[/color][color="DimGray"]..[/color]var[color="DimGray"]..[/color][color="Sienna"]' has been kicked.\n'[/color][color="DimGray"])[/color]
	else
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=A player with name '[/color][color="DimGray"]..[/color]var[color="DimGray"]..[/color][color="Sienna"]' not found.\n'[/color][color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
   [color="DimGray"][[/color][color="Sienna"]'mkick'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]local[/color][/b] n [color="DimGray"]=[/color] [color="DarkOrchid"]0[/color]
	[b][color="Blue"]for[/color][/b] i[color="DimGray"],[/color]cid [b][color="Blue"]in[/color][/b] [b][color="DarkOrchid"]pairs[/color][/b][color="DimGray"]([/color]getPlayersOnl[b][color="Blue"]in[/color][/b]e[color="DimGray"]([/color][color="DimGray"])[/color][color="DimGray"])[/color] [b][color="Blue"]do[/color][/b]
		n [color="DimGray"]=[/color] n[color="DimGray"]+[/color][color="DarkOrchid"]1[/color]
		[b][color="Blue"]do[/color][/b]RemoveCreature[color="DimGray"]([/color]cid[color="DimGray"])[/color]
	[b][color="Blue"]end[/color][/b]
		b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG='[/color][color="DimGray"]..[/color]n[color="DimGray"]..[/color][color="Sienna"]' Players kicked.\n'[/color][color="DimGray"])[/color]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"][[/color][color="Sienna"]'sql'[/color][color="DimGray"]][/color] [color="DimGray"]=[/color] [b][color="Blue"]function[/color][/b][color="DimGray"]([/color]b[color="DimGray"],[/color]config[color="DimGray"],[/color]var[color="DimGray"])[/color]
	[b][color="Blue"]local[/color][/b] f[color="DimGray"],[/color]d [color="DimGray"]=[/color] [b][color="DarkOrchid"]pcall[/color][/b][color="DimGray"]([/color]db[color="DimGray"].[/color]executeQuery[color="DimGray"],[/color]var[color="DimGray"])[/color]
	b[color="DimGray"][[/color][color="DarkOrchid"]1[/color][color="DimGray"]][/color][color="DimGray"]:[/color]s[b][color="Blue"]end[/color][/b][color="DimGray"]([/color][color="Sienna"]'MSG=Query executed. Ret: '[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]f[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]','[/color][color="DimGray"]..[/color][b][color="DarkOrchid"]tostring[/color][/b][color="DimGray"]([/color]d[color="DimGray"])[/color][color="DimGray"]..[/color][color="Sienna"]'\n'[/color][color="DimGray"])[/color]
[b][color="Blue"]end[/color][/b][color="DimGray"],[/color]
[color="DimGray"]}[/color]

 

Ele pega um script ja existente e formata ele com bb code OiaeuMae

podem em algumas funçoes como a doSaveServer()

aparece assim doSaveServer()

eu que sei usa string n to consegindo ajeita :fuu:

alguem quer tenta? 

local zkript = [=[
for i=1,10 do
retun print or false or {1,6==7,'oi'}
end
]=]
function formatar(s)
local f = {
{'%d+','[color="DarkOrchid"]%d[/color]'},
{"\"%w+\"",'[color="Sienna"]%s[/color]'},
{'\'.-\'','[color="Sienna"]%s[/color]'},
{'true','[color="Teal"][b]true[/b][/color]'},
{'false','[color="Teal"][b]false[/b][/color]'},
{'(%-%-%[%[.-%]%])','[color="Green"]\n%s[/color]'},
{'(%-%-.-\n)','[color="Green"]%s[/color]'},
}
local n = 0
local news = {}
local wrds3 = "%.%. == => =< : %% ^ = < > , %+ %- %. %* / { } %( %) %[ %] "
for i in wrds3:gmatch('(.-)%s') do
	table.insert(f,#f+1,{i,'[color="DimGray"]%s[/color]'})
end
local wrds3 = "loadstring assert collectgarbage dofile error getfenv getmetatable ipairs load loadfile module next pairs pcall print rawequal rawget rawset require select setfenv setmetatable tonumber tostring type unpack xpcall newproxy"
for i in wrds3:gmatch('(%w+)%s*') do
	table.insert(f,#f+1,{i,'[b][color="DarkOrchid"]%s[/color][/b]'})
end
local wrds = "end do in function return while elseif if for or and local break until repeat then not"
local t = {}
for i in wrds:gmatch('(%w+)%s*') do
	t[i] = 1
	table.insert(f,#f+1,{i,'[b][color="Blue"]%s[/color][/b]'})
end
for i,b in pairs(f) do
	s = s:gsub(b[1],function(na)
		n = n+1
		news[n] = b[2]:format(na)
		return '|ÿ'..n..'|'
	end)
end
function clear(s,t)
	for i in s:gmatch('(|ÿ%d+|)') do
		s = s:gsub(i,t[tonumber(i:match('%d+'))])
	end
	return s
end

return '[code]'..clear(s,news)..'

'

end

print(formatar(zkript))

 

[/code]

Share this post

Link to post
Share on other sites
ADM MaX DE    0
ADM MaX DE
Posted

Primeira vez que vejo o mock pedindo ajuda!!

UAHUAHAHAUAH'

 

eu n sou tão avançado com scripting, mas se pudesse ajudava ;x

Share this post

Link to post
Share on other sites
Mock    32
Mock
Posted

@MaX MaX OT

eh q eu tentei de 5 maneiras diferentes.

essa foi a msi proxima da perfeição q eu consegui e ainda te ums bugs

Share this post

Link to post
Share on other sites
Kaotar    5
Kaotar
Posted

Mock traduz ai o que você quer.

Transformar em BB code tudo bem, como o que que você quer que vire o que?

 

Flws

Share this post

Link to post
Share on other sites
Mock    32
Mock
Posted

uma maneira de ajeita os bug de dad highlight no que nao deve '-'

Share this post

Link to post
Share on other sites
Kaotar    5
Kaotar
Posted

cara um detalhe com eh que os end e do e etc nao pode ter nada grudado neles =S tenta usar %s como pattern na volta =S

Share this post

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0
Go To Topic Listing Lua

  • Recently Browsing   0 members

    No registered users viewing this page.

×