FakerBot
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

FakerBot

Started by Myth, 17 January, 2004, 14:39:14

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Myth

17 January, 2004, 14:39:14 Last Edit: 17 January, 2004, 15:51:40 by Myth
A fake share bot.. not what U think :) 
--FakerBot by Myth v1.0
--it works for both passive and active users
--thx to Optimus for his bot's MyINFO idea
--thx to Ra3or for his idea with the message form the bot
--ppl form the LUA Language Board for the help




function Main()

   frmHub:EnableFullData(1)
   assert(dofile("settings.ini")) 
   frmHub:RegBot(bot)
end

function NewUserConnected(curUser) 
   SendToAll("$MyINFO $ALL "..bot.." "..botdesc.." "..botinfo.."$ $"..botconn.."$"..botmail.."$"..botshare.."$")
--$MyINFO $ALL [OP]Myth --==@==--<++ V:0.306,M:A,H:1/0/3,S:2>$ $LAN(T1)$--==@==--$19641023012$|
end


function DataArrival(user,data)
   if (strsub(data, 1, 15) == "$RevConnectToMe") then
      local _,_,botname = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|")
      if (botname  == "[bot]Console#") then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   elseif (strsub(data, 1, 12) == "$ConnectToMe") then
   local _,_,botname = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|")
      if (botname  == "[bot]Console#") then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   end
end


Settings.ini file:

bot = "[bot]Share"

botmail = "NoShare@Dont.Bother" 
botshare = "1099511627776" 			--the share in bytes
botinfo = "<++ V:1.0,M:A,H:1/1/1,S:0>"
botdesc = "just a fuckin bot"
botconn = "UnknowN ExtraTerrestriaL SatelitE"

Our lives begin to end the day we become silent about things that matter

tezlo

#1
17 January, 2004, 16:59:05
will only work if you name the bot "[bot]Console#"
also theres no need to send myinfo to all users over and over

Myth

#2
17 January, 2004, 17:31:40 Last Edit: 17 January, 2004, 21:41:00 by Myth
yap.. u're right..
and i've corected the name of the bot thing... sry for that... i've copied the code from my test script.. and that was the name of the bot... (actually was the Console script by [NL]Pur, witch i've modified a little ;) )

here's the correct version.. with the "botinfostring" sent at OpConnected
i hope this works :)


--FakerBot by Myth v1.1
--thx to Optimus for his bot's MyINFO idea
--ppl form the LUA Language Board for the help




function Main()

   frmHub:EnableFullData(1)
   assert(dofile("settings.ini")) 
   frmHub:RegBot(name)
end


function OpConnected(user)

   SendToAll("$MyINFO $ALL "..name.." "..botdesc.." "..botinfo.."$ $"..botconn.."$"..botmail.."$"..botshare.."$")

end


function DataArrival(user,data)

   if (strsub(data, 1, 15) == "$RevConnectToMe") then
      local _,_,botname = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   elseif (strsub(data, 1, 12) == "$ConnectToMe") then
   local _,_,botname = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   end

end

Settings.ini file: 


name = "[bot]Share"

botmail = "NoShare@Dont.Bother" 
botshare = "1099511627776" 			--the share in bytes
botinfo = "<++ V:1.0,M:A,H:1/1/1,S:0>"
botdesc = "just a fuckin bot"
botconn = "UnknowN ExtraTerrestriaL SatelitE"
Our lives begin to end the day we become silent about things that matter

pHaTTy

#3
17 January, 2004, 22:23:27
QuoteOriginally posted by Myth
yap.. u're right..
and i've corected the name of the bot thing... sry for that... i've copied the code from my test script.. and that was the name of the bot... (actually was the Console script by [NL]Pur, witch i've modified a little ;) )

here's the correct version.. with the "botinfostring" sent at OpConnected
i hope this works :)


--FakerBot by Myth v1.1
--thx to Optimus for his bot's MyINFO idea
--ppl form the LUA Language Board for the help




function Main()

   frmHub:EnableFullData(1)
   assert(dofile("settings.ini")) 
   frmHub:RegBot(name)
end


function OpConnected(user)

   SendToAll("$MyINFO $ALL "..name.." "..botdesc.." "..botinfo.."$ $"..botconn.."$"..botmail.."$"..botshare.."$")

end


function DataArrival(user,data)

   if (strsub(data, 1, 15) == "$RevConnectToMe") then
      local _,_,botname = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   elseif (strsub(data, 1, 12) == "$ConnectToMe") then
   local _,_,botname = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   end

end

Settings.ini file: 


name = "[bot]Share"

botmail = "NoShare@Dont.Bother" 
botshare = "1099511627776" 			--the share in bytes
botinfo = "<++ V:1.0,M:A,H:1/1/1,S:0>"
botdesc = "just a fuckin bot"
botconn = "UnknowN ExtraTerrestriaL SatelitE"

what is botname now?
Resistance is futile!

Snoris

#4
17 January, 2004, 23:08:29
QuoteOriginally posted by (uk-kingdom)pH?tt??
QuoteOriginally posted by Myth
yap.. u're right..
and i've corected the name of the bot thing... sry for that... i've copied the code from my test script.. and that was the name of the bot... (actually was the Console script by [NL]Pur, witch i've modified a little ;) )

here's the correct version.. with the "botinfostring" sent at OpConnected
i hope this works :)


--FakerBot by Myth v1.1
--thx to Optimus for his bot's MyINFO idea
--ppl form the LUA Language Board for the help




function Main()

   frmHub:EnableFullData(1)
   assert(dofile("settings.ini")) 
   frmHub:RegBot(name)
end


function OpConnected(user)

   SendToAll("$MyINFO $ALL "..name.." "..botdesc.." "..botinfo.."$ $"..botconn.."$"..botmail.."$"..botshare.."$")

end


function DataArrival(user,data)

   if (strsub(data, 1, 15) == "$RevConnectToMe") then
      local _,_,botname = strfind(data, "$RevConnectToMe%s+%S+%s+(%S+)|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   elseif (strsub(data, 1, 12) == "$ConnectToMe") then
   local _,_,botname = strfind(data, "$ConnectToMe%s+(%S+)%s+.*|")
      if (botname  == name) then
         user:SendPM(botname, "Man... R u an IDIOT or what?!?! Can't U see I'm just a damn bot?")
      end
   end

end

Settings.ini file: 


name = "[bot]Share"

botmail = "NoShare@Dont.Bother" 
botshare = "1099511627776" 			--the share in bytes
botinfo = "<++ V:1.0,M:A,H:1/1/1,S:0>"
botdesc = "just a fuckin bot"
botconn = "UnknowN ExtraTerrestriaL SatelitE"

what is botname now?

Well...I wonder that to phatty =]
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk