triggerscript
 

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

triggerscript

Started by Death, 20 August, 2005, 02:29:11

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Death

can you please make a lua 5 from this i tried the converter but it did not work on this script  





botname = "Botname"

trigall=1

trigs = {
             
         ["lol"]={
     "Yeah, [CURUSER] that was funny,  Hahahaha.",
     "Hmm, ok that was funny, I think :)",
        "[CURUSER] is laughing like a JACK-ASS !!!",
     "what! [CURUSER]  why are you laughing?",
     "You shake when you laugh, like a bowl full of jelly",
     "hilarious!",
     "hehehehe",
     "hohohohoh",
        "Glad you can see the funny side"
         
                                 },

   }


function Main()
frmHub:RegBot(botname)
end

function DataArrival(curUser, data)

status=strsub(data,1,strlen(data)-1)
-- parse the command
s,e,cmd = strfind( status, "%b<>%s+(%S+)" )

if (cmd=="/quiet") then
trigall=0
SendToAll(botname, " Hmf, Okidoki I will be quiet :(( ")
return 1
elseif (cmd=="/talk") then
trigall=1
SendToAll(botname, " Okay, I will talk to you again :-)")
return 1
end

       
   if( strsub(data, 1, 1) == "<" ) then
      -- get the msg only using regular expression
      s,e,msg = strfind(data, "%b<>([%a ]+)")                                        
      -- look in the table
                if trigall==1 then
      for key, value in trigs do
                for key2, value2 in value do
                     
   if( strfind( strlower(msg), key) ) then
                 else break  
   end

        if( strfind( strlower(msg), "!me") ) then
                  t="**"..curUser.sName
                  data=gsub (msg, "!me", t, 1 )
   end

      SendToAll( data ) -- send the original data
                   
            SetTimer(1800)
                  StartTimer()
      answer, x = gsub(value[random(1,getn(value))], "%b[]", curUser.sName)

   return 1; -- tell the hub we have processed the data
   end
   end  
   end
end

function OnTimer()
   SendToAll( botname, answer ) -- send bot's answer
   StopTimer()
end
end
__________________
owner of ? ?uffering ?ouls ? hub
______Owner Of  ? ?uffering ?ouls ? Hub_____
? Time Flies When You Wish You Were Dead ?

DJ Bert

Script is already converted. Use the search or try the next one.

Try Here


Grtzzz

DJ Bert

SMF spam blocked by CleanTalk