Ir para conteúdo
Entre para seguir isso  
Seguidores 0
Mock

Open Tibia Advanced Remote Control beta

Por , em Lua

Recommended Posts

Mock    32
Mock
Postado (editado)

Oie. OiaeuMae

 

Eu terminei o script porem ainda esta em fase beta entao gostaria que me ajudassem a testa-lo.

 

São 2 partes.

 

O host do remote (que vai no server)

 

E o remote control em si que vem separado.

 

Neste topico irei falar apenas sobre o Remote.

 

Caso queria o host entre nesse link:

http://forums.otserv.com.br/showthread.php?145991-GS-Script-2-OTARC-Beta.-download.

 

 

Remote

 

Bom pra quem nao faz a minima ideia de o que é, é um remote control de otsev que nem aqueles antigos so que melhor com mais funçoes. veja a foto:

remote.png

 

O script ficou MTO grande. 566 linhas. Eu vou postar o code no topico mais nao vai adiantar apenas colar ele. existem outros arquivos que precisam para ele rodar entao vou postar tudo zipado no final do topico.

--[[
Open Tibia Advanced Remote Control (OTARC) - Remote control client

By Mock the bear.
]]
require('ex')
require("iuplua")
require('socket')
require( "iupluacontrols" )
require('gd')
---Functions
function loadPhoto(name,t)
local phto = {}
local ce = {}
local n = 0
local gde
if not t then
	gde= gd.createFromGif('images/'..name)
else
	gde= gd.createFromPng('images/'..name)
end
assert(gde)
for x=1,gde:sizeX()+1 do
	for y=1,gde:sizeY()+1 do
		if not phto[(y-1)] then phto[(y-1)] = {} end
		if not phto[(y-1)][(x-1)] then phto[(y-1)][(x-1)] = {} end
		local p = gde:getPixel(x-2, y-2)
		if  (gde:red(p) == 255 and gde:blue(p) ==255 and gde:green(p) == 255) then
			phto[(y-1)][(x-1)] = 0
		else
			local r, b, g = gde:red(p), gde:blue(p), gde:green(p)
			local clr  = r..' '..b..' '..g
			local go = true
			for i,b in pairs(ce) do
				if b == clr then
					go = false
					phto[(y-1)][(x-1)] = i
					break
				end
			end
			if go then
				n = n+1
				ce[n] = clr
				phto[(y-1)][(x-1)] = n
			end
		end
	end
end
cs = nil
return iup.image{colors = ce,hotspot = "1:1",unpack(phto)}
end
function fixStr(s)
local maxlen = 26
local s2 = ''
if math.floor(s:len()/maxlen) == 0 then
	s = s:gsub('€','\n')
	return s..'\n'
end
for i=1, math.floor(s:len()/maxlen)+1 do
	s2 = s2..s:sub((i-1)*maxlen+1,((i)*maxlen))..'\n'
end
s2 = s2:gsub('€','\n')
return s2
end
function breakSend(b,s,va,size)
local maxlen = size or 1024
local more = {}
s = s:gsub('\n','€')
if s:len() < 1024  then
	b:send('BUFF='..s..'\n')
	b:send('DOBUF='..va..'\n')
	return
end
for i=1, math.floor(s:len()/maxlen)+1 do
	if i == 1 then
		b:send('BUFF='..s:sub((i-1)*maxlen+1,((i)*maxlen))..'\n')
		b:send('SEND='..i..' TO='..(math.floor(s:len()/maxlen)+1)..'.\n')
	else
	more[i] = {	'BUFF='..s:sub((i-1)*maxlen+1,((i)*maxlen))..'\n','SEND='..i..' TO='..(math.floor(s:len()/maxlen)+1)..'.\n',false,function()
		gaug.value = (i*100/(math.floor(s:len()/maxlen)+1))/100
		recs.title = "Uploading -  "..i.."/"..(math.floor(s:len()/maxlen)+1).."" end}
	end
end
more[#more+1] = {('DOBUF='..va..'\n'),'',true}
tosend[1] = more
end
---
local wait_colorchange = 0
local stept = 0
local skt = {
buff = '',
}
tosend = {}
conect = nil

fr1 = iup.frame
{
iup.hbox
{
	title="Painel",
	iup.button{title="Connect",ACTIVE='YES',action = function()
		if pass.value ~= '0x' then
			tree.MARK = '1'
			skt.buff = ''
			tree.DELNODE = "CHILDREN"
			tree.redraw = "YES"
			wai.image= IMG_wait
			wait_colorchange = stept+5
			log_.insert = ('Conecting on:\n'..tostring(ip[1].value)..':'..tostring(port[1].value)..'.\n')
			conect = socket.connect(tostring(ip[1].value),tonumber(port[1].value) or 7178)
			if conect then
				log_.insert = ('Conected.\n\n')
				conc.image = loadPhoto('conected.png',1)
				desc.image = loadPhoto('desconectedno.png',1)
				conect:send('PASS:'..pass.value..'\n')
			else
				log_.insert = ('Cannot Conect\n')
				desc.image =  loadPhoto('desconected.png',1)
				conc.image = loadPhoto('conectedno.png',1)
			end
		else
			iup.Message("Info", "Please type the password!")
		end
	end},
	iup.button{title="Desconect",ACTIVE='NO',action = function()
		if conect then
			conect:close()
			conect = nil
			log_.insert = 'Connection closed.\n'
			wai.image= IMG_wait
			wait_colorchange = stept+5
			desc.image = loadPhoto('desconected.png',1)
			conc.image = loadPhoto('conectedno.png',1)
		end
	end},
	iup.fill{},
	};
}
IMG_waitno = loadPhoto('waitno.png',1)
IMG_wait = loadPhoto('wait.png',1)
desc = iup.label{title = "Status",image =loadPhoto('desconected.png',1)}
wai = iup.label{title = "Status",image =IMG_waitno}
conc = iup.label{title = "Status",image =loadPhoto('conectedno.png',1)}
ip = iup.frame{
title = 'IP',
iup.text{value = "localhost", expand = "NO",size='160x'},
}
port = iup.frame{
title = 'PORT',
iup.text{value = "7178", expand = "NO",size='160x'},
}
btsize = '19x16'
fr2 = iup.frame
{
iup.hbox
{
	iup.button{title="0",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="1",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="2",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="3",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="4",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="5",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="6",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="7",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	size='160x'
};
}
fr3 = iup.frame
{
iup.hbox
{
	iup.button{title="8",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="9",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="a",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="b",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="c",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="d",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="e",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	iup.button{title="f",size=btsize,  action=function(self) pass.value = pass.value..tostring(self.title) end},
	size='160x'
};

}
log_ = iup.multiline{insert="", size='160x220',ACTIVE='NO',bgcolor='233 233 233',fgcolor='198 156 37'}
ZKRIPT = iup.multiline{insert="",size='400x320',expand = "YES", ACTIVE='YES',MULTILINE='YES',fgcolor='0 0 0'}
pass = iup.text {value = "0x", expand = "NO",ACTIVE='NO',size='160x'}
dir = iup.text {value = "", expand = "NO",ACTIVE='YES',size='180x'}
lbl  = iup.label {title = "0",size='130x',alignment = "ACENTER"}
recs  = iup.label {title = "Donwloading -  ?/?",size='100x',alignment = "ACENTER"}
fname  = iup.label {title = 'File name: -',size='130x',alignment = "ACENTER"}
timer_pass = iup.timer{time=100,run = "YES"}
con = iup.timer{time=10,run = "YES"}
clear = iup.button{title="Clear",  action=function() pass.value = '0x' end,size='160x'}
tree = iup.tree{}
gaug = iup.gauge{size='100x'}
iup.TreeSetValue(tree,{branchname='root'})
arira = iup.label{title = "",image =loadPhoto('im1.png',1)}
function tree:renamenode_cb(id)
if tree.name:find('(.+)%.(.-)') then
	dir.value = tree.name
end
return iup.DEFAULT
end
function tree:rightclick_cb(id)
tree.value = id
tree:renamenode_cb(tree.value)
 return iup.DEFAULT
end
DATA = iup.vbox{
				iup.hbox{
					iup.button{title="Save", ACTIVE='NO', action=function() log_.insert = fixStr('Saving...') conect:send('PRESS=SAVE VALUE=1\n') end,size='160x'},
					iup.button{title="Broadcast", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("Send Broadcast",'',"Message: %s\n",'')
					if ret == 1 then
						log_.insert = fixStr('Sending: '..tostring(var)..'...')
						conect:send('PRESS=BROADCAST VALUE='..tostring(var)..'\n')
					end
					end,size='160x'},
					iup.button{title="Reload", ACTIVE='NO', action=function() -- *8486
					local ret, var = iup.GetParam("Reload info",'','List: %l|RELOAD_ACTIONS|RELOAD_CHAT|RELOAD_CONFIG|RELOAD_CREATUREEVENTS|'..
					'RELOAD_GAMESERVERS|RELOAD_GLOBALEVENTS|RELOAD_GROUPS|RELOAD_HIGHSCORES|RELOAD_HOUSEPRICES|'..
					'RELOAD_ITEMS|RELOAD_MONSTERS|RELOAD_MOVEEVENTS|RELOAD_NPCS|RELOAD_OUTFITS|RELOAD_QUESTS|RELOAD_RAIDS|'..
					'RELOAD_SPELLS|RELOAD_STAGES|RELOAD_TALKACTIONS|RELOAD_VOCATIONS|RELOAD_WEAPONS|RELOAD_MODS|RELOAD_ALL|\n',0)
					if ret == 1 then
						log_.insert = fixStr('Reloading: '..tostring(var+1)..'...')
						conect:send('PRESS=RELOAD VALUE='..tostring(var+1)..'\n')
					end
					end,size='160x'},
					iup.button{title="Kick", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("Send Broadcast",'',"Message: %s\n",'')
					if ret == 1 then
						log_.insert = fixStr('Sending: '..tostring(var)..'...')
						conect:send('PRESS=KICK VALUE='..tostring(var)..'\n')
					end
					end,size='100x'},

					iup.fill{},
				},
				iup.hbox{iup.button{title="Execute a piece of script", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("Execute a piece of script",'',"Script: %m\n",'')
					if ret == 1 then
						local ret,err = loadstring(tostring(var))
						if not ret then
							log_.insert = fixStr('Error on sending lua code: '..err..'')
							iup.Message("ERROR", err)
						else
							log_.insert = fixStr('Executing lua code...')
							var = var:gsub('\n','€')
							conect:send('PRESS=LUA VALUE='..var..'\n')
						end
					end
					end,size='160x'},
					iup.button{title="Set state server", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("Server state",'','List: %l|GAMESTATE_STARTUP|GAMESTATE_INIT|'..
					'GAMESTATE_NORMAL|GAMESTATE_MAINTAIN|GAMESTATE_CLOSED|GAMESTATE_CLOSING|GAMESTATE_SHUTDOWN|\n',0)
					if ret == 1 then
						log_.insert = fixStr('Seting state server to : '..tostring(var+1)..'...')
						conect:send('PRESS=STATESERVER VALUE='..tostring(var+1)..'\n')
					end
					end,size='160x'},
					iup.button{title="Set world type", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("world type",'','List: %l|WORLDTYPE_NO_PVP|WORLDTYPE_PVP|WORLDTYPE_PVP_ENFORCED|\n',0)
					if ret == 1 then
						log_.insert = fixStr('Seting world type to: '..tostring(var+1)..'...')
						conect:send('PRESS=MODE VALUE='..tostring(var+1)..'\n')
					end
					end,size='160x'},
					iup.button{title="Ban", ACTIVE='NO', action=function()
					local ret, var = iup.GetParam("Send Broadcast",'',"Message: %s\n",'')
					if ret == 1 then
						log_.insert = fixStr('Sending: '..tostring(var)..'...')
						conect:send('PRESS=BAN VALUE='..tostring(var)..'\n')
					end
					end,size='100x'}
					,
					},
				iup.hbox{
					ZKRIPT,
					iup.vbox{
							fname,
							dir,
							iup.button{title="Request",size='180x', ACTIVE='NO',action = function()
								if conect then
									log_.insert = fixStr('Requesting '..dir.value..'.')
									conect:send('REQUEST='..dir.value..'\n')
									DATA[3][2][3].ACTIVE='NO'
									DATA[3][2][4].ACTIVE='NO'
								end
							end},
							iup.button{title="Save file",size='180x', ACTIVE='NO',action = function()
								if conect then
									breakSend(conect,ZKRIPT.value:gsub('\n','€'),dir.value,size)
									DATA[3][2][3].ACTIVE='NO'
									DATA[3][2][4].ACTIVE='NO'
								end
							end},
						tree,
						iup.hbox{
							iup.button{title="Information",image=loadPhoto('credit.png',1),action=function() show_info() end},
							iup.fill{},
								iup.frame{
									title='Status',
									iup.hbox{
										desc,
										wai ,
										conc,
									},
								},
								iup.fill{},
							},
					},
				},
				iup.fill{},
			}
function timer_pass:action_cb()
if not first then
	log_.insert= 'Welcome to the Bear\nopen tibia remote control\n------------------------------------------\n'
	first = true
end
if pass.value ~= '0x' then
	if  tostring(tonumber(pass.value)) ~= lbl.title  then
		lbl.title = tostring(tonumber(pass.value))
	end
else
	if  tostring(tonumber(pass.value)) ~= lbl.title  then
		lbl.title = 0
	end
end
if pass.value:len() > 10 then
	pass.value = pass.value:sub(1,10)
	iup.Message("Info", "Only 8 characters or less!")
end
if conect then
	fr1[1][1].ACTIVE = 'NO'
	fr1[1][2].ACTIVE = 'YES'

	for i=1,8 do
		fr2[1][i].ACTIVE= 'NO'
		fr3[1][i].ACTIVE= 'NO'
	end
	ip[1].ACTIVE= 'NO'
	port[1].ACTIVE= 'NO'
	clear.ACTIVE= 'NO'

	for de=1,2 do
		for i=1,4 do
			if DATA[de][i] then
				DATA[de][i].ACTIVE='YES'
			end
		end
	end
elseif fr1[1][1].ACTIVE == 'NO' and not conect then
	fr1[1][1].ACTIVE = 'YES'
	fr1[1][2].ACTIVE = 'NO'

	for i=1,8 do
		fr2[1][i].ACTIVE= 'YES'
		fr3[1][i].ACTIVE= 'YES'
	end
	ip[1].ACTIVE= 'YES'
	port[1].ACTIVE= 'YES'
	clear.ACTIVE= 'YES'

	DATA[3][2][3].ACTIVE='NO'
	DATA[3][2][4].ACTIVE='NO'
	for de=1,2 do
		for i=1,4 do
			if DATA[de][i] then
				DATA[de][i].ACTIVE='NO'
			end
		end
	end
	tree.DELNODE = "CHILDREN"
	tree.redraw = "YES"
	iup.TreeSetValue(tree,{branchname='root'})
	tree.redraw = "YES"
	ZKRIPT.value = ''
	fname.title = 'File name: -'
	iup.Message("Info", "Connection closed.")
end
end
function con:action_cb()
stept = stept+1
if stept == wait_colorchange then
	wai.image= IMG_waitno
end
--[[
socket
]]
if conect then
	conect:settimeout(0)
	local ret,v = conect:receive()
	if ret then

		if ret:match('MSG=(.+)') and not ret:match('.+MSG=(.+)') then
			log_.insert = fixStr(ret:match('MSG=(.+)'))
		elseif ret:match('SEND=(%d+) TO=(%d+)') then
			wai.image= wai.image == IMG_waitno and IMG_wait or IMG_waitno
			local nw,max = ret:match('SEND=(%d+) TO=(%d+)')
			gaug.value = (nw*100/max)/100
			recs.title = "Donwloading -  "..nw.."/"..max..""
			conect:send('M:'..(nw+1)..'\n')
			conect:send('M:'..(nw+2)..'\n')

		elseif ret:match('D:(%d+)') then
			local naa = ret:match('D:(%d+)')
			if tosend[1][tonumber(naa)] then
				wai.image= wai.image == IMG_waitno and IMG_wait or IMG_waitno
				conect:send(tosend[1][tonumber(naa)][1])
				conect:send(tosend[1][tonumber(naa)][2])
				if tosend[1][tonumber(naa)][3] then
					tosend[1] = {}
					DATA[3][2][4].ACTIVE='YES'
				end
				if tosend[1] and tosend[1][tonumber(naa)] and tosend[1][tonumber(naa)][4] then
					tosend[1][tonumber(naa)][4]()
				else
					gaug.value = 0
					recs.title = "Donwloading -  ?/?"
					wai.image = IMG_waitno
					wait_colorchange = stept+5
				end
			end
		elseif ret =='ACTIVE' then
			DATA[3][2][3].ACTIVE='YES'
			DATA[3][2][4].ACTIVE='YES'
			ZKRIPT.ACTIVE = 'YES'
			DATA[3][2][4].ACTIVE='YES'
		elseif ret == 'DEACTIVE' then
			DATA[3][2][3].ACTIVE='NO'
			DATA[3][2][4].ACTIVE='NO'
			ZKRIPT.ACTIVE = 'NO'
			DATA[3][2][4].ACTIVE='NO'
		elseif ret:match('BUFF=(.+)') then
			skt.buff = skt.buff..ret:match('BUFF=(.+)')
			wai.image= wai.image == IMG_waitno and IMG_wait or IMG_waitno
			DATA[3][2][3].ACTIVE='NO'
		elseif ret:match('FNAME=(.+)') then
			fname.title = 'File name: '..tostring(ret:match('FNAME=(.+)'))
		elseif ret:match('DOBUF=(%d+)') then
			if skt.buff ~= '' then
				gaug.value = 0
				wai.image= IMG_wait
				wait_colorchange = stept+5
				recs.title = "Donwloading -  ?/?"
				local runing = ret:match('DOBUF=(%d+)')
				skt.buff = skt.buff:gsub('€','\n')
				if runing == '1' then
					DATA[3][2][3].ACTIVE='YES'
					local table_,err = loadstring('return '..skt.buff)
					if not table_ and err then
						log_.insert = fixStr('Error on setting dir table! '..err..' >: '..runing)
						local f = io.open('error.lua','w')
						f:write(skt.buff)
						f:close()
					else
						tree.DELNODE = "CHILDREN"
						tree.redraw = "YES"
						os.sleep(0.01)
						iup.TreeSetValue(tree,table_())
						tree.redraw = "YES"
					end
				elseif runing == '2' then
					DATA[3][2][3].ACTIVE='YES'
					DATA[3][2][4].ACTIVE='YES'
					ZKRIPT.ACTIVE = 'YES'
					ZKRIPT.value = skt.buff
					DATA[3][2][4].ACTIVE='YES'
					log_.insert = fixStr('Loaded file.')
				end
				skt.buff = ''
			end
		end
	elseif not ret and v == 'closed' then
		conect:close()
		conect = nil
	end
end
return iup.DEFAULT
end
function show_info()
local lbl = iup.label { title = "Open Tibia Advanced Remote Control",
                 bgcolor = "219 195 195",
                 fgcolor = "0 0 0",
                 font = "COURIER_BOLD_14",
                 alignment = "ACENTER" }
local lbla = iup.label { title ="By mock                           \nVersion 1.0.85                    \n",
                 bgcolor = "255 171 94",
                 fgcolor = "255 255 255",
                 font = "COURIER_NORMAL_14",
                 alignment = "ACENTER" }
local lblR = iup.label { title = "Contact: [email protected]   ",
                 bgcolor = "219 195 195",
                 fgcolor = "255 255 255",
                 font = "COURIER_BOLD_14",
                 alignment = "ACENTER" }
local dlg = iup.dialog { iup.vbox { lbl,lbla,lblR},}
dlg:showxy ( iup.CENTER, iup.CENTER )

if (not iup.MainLoopLevel or iup.MainLoopLevel()==0) then
	iup.MainLoop()
end
end

dlg = iup.dialog
{
icon=loadPhoto('ico.png',1),
iup.frame
{
title="Advanced remote control",
	iup.hbox{
		iup.frame{
			title="General",
			iup.vbox
			{
				fr1,
				ip,
				port,
				iup.frame{
					title="Password",
					iup.vbox{
					fr2,
					fr3,
					pass,
					iup.hbox{iup.label{title = "Pass:"},lbl},
					clear,
					},
				};
				iup.frame{
					size='160x',
					title="Status",
					iup.vbox{
					log_,
					iup.hbox{
						size='160x',
						iup.vbox{arira,
						iup.label{title = "   By Mock"},
						},
						iup.vbox{
						gaug,
						recs,
						}
					},
					iup.fill{},
					},
					}
			},
		},
		iup.frame{
			title="Console",
			DATA,
		},
	}
};
size='500x400',
 title="The bear remote",

}

dlg:show()

if (not iup.MainLoopLevel or iup.MainLoopLevel()==0) then
 iup.MainLoop()
end
-- q

Usei lua socket, iup lua, lua GD e lua EX

se subistituir as respectivas libs para libs de linux ele roda perfeitamente no linux.

Editado por Mickfern
lemonpapper reagiu a isto

Compartilhar este post

Link para o post
Compartilhar em outros sites
Marcelo Côrtes    0
Marcelo Côrtes
Postado

tnsc

muiito foda, pqp

 

parabéns dimais

Compartilhar este post

Link para o post
Compartilhar em outros sites
Kaotar    5
Kaotar
Postado

Nossa muito bom velho, (nem usou a funçao tosca que eu fiz =~~~)

 

Flws

Compartilhar este post

Link para o post
Compartilhar em outros sites
Elys Zarox    0
Elys Zarox
Postado

boa...Parabens mesmo pelo avanço na programação..saiu dos simples scritps lua =p

Compartilhar este post

Link para o post
Compartilhar em outros sites
Roku    0
Roku
Postado

nunca imaginei que dava pra fazer isso em lua =p

legald+

bjsnmeliga

Compartilhar este post

Link para o post
Compartilhar em outros sites
Mock    32
Mock
Postado

favor se forem testar e acharem erros postem aki :(

Compartilhar este post

Link para o post
Compartilhar em outros sites
Mickfern    32
Mickfern
Postado

Muito foda Mock !

Parabéns... por enquanto não achei nenhum erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Mock    32
Mock
Postado

@Mickfern

eu falo no host e no client xp nao so no client

Compartilhar este post

Link para o post
Compartilhar em outros sites
gabrielblb    0
gabrielblb
Postado

Muitoo foda mock '-' parabéns mais uma vez

até agora não vi nenhum bug

Compartilhar este post

Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
Seguidores 0
Ir para a lista de tópicos Lua

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×