Simple Trigger Bot

[Progressive_Rocker_1960]

Does anyone have a simple configurable Trigger Bot for Ptokax. Would appreciate any help I can get on this.

[[T-G-T]M@sto]

Originally posted by Progressive_Rocker_1960
Does anyone have a simple configurable Trigger Bot for Ptokax. Would appreciate any help I can get on this.

Try this:

-- HyggeBoTz by JenZen?.
-- Everything in this script file is ? Copyrightet by JenZen? 2003

-- This release was meant for [DK]Burger-Banden - burger-banden.kyed.com


-- Defines the name of the bot
Bot = "[?OT][)-()-(]Helper"

-- The timezone for your country (How many hours is the dirrerence from GMT)
gmt = "(+1 GMT)"

 textArray = {}
 QWarray = {}
 antall = 0


function Main()

  frmHub:RegBot(Bot)
loadText()
getLine()
SetTimer(1*60000)
StartTimer()
setlocale("dan","all")
end

function OnTimer()
     getLine()
end

-- Triggers that will be send in the mainchat. This is triggers that are loaded from textfiles.
triggertext = {
      ["+shootafaker"]="HyggeBoTz/shootafaker.txt",
      ["+gun"]="HyggeBoTz/gun.txt",
      ["+hey"]="HyggeBoTz/hey.txt",
      ["+kaffe"]="HyggeBoTz/kaffe.txt",
      ["+weed"]="HyggeBoTz/weed.txt",
      ["+love"]="HyggeBoTz/love.txt",
      ["+morgen"]="HyggeBoTz/morgen.txt",
      ["+sleep"]="HyggeBoTz/sleep.txt",
      ["+smoke"]="HyggeBoTz/smoke.txt",
      ["+vel"]="HyggeBoTz/vel.txt",
      ["+warning"]="HyggeBoTz/warning.txt",
      ["lol"]="HyggeBoTz/lol.txt",
      ["+delfin"]="HyggeBoTz/delfin.txt",
   }

-- Triggers that will be send in main chat. This is the triggers which have the reason text here.
Trigger = {
      ["+morgen"]=date("God morgen, [USER], Det er idag %A den %d/%m %Y... men det vidste du sikkert godt"),
      ["+nat"]="[USER] siger godnat og sov godt! Vi ses i morgen her p? Hyggehubben",
      ["+bed"]="[USER] siger godnat og sov godt! Vi ses i morgen her p? Hyggehubben",
      ["+sleep"]="[USER] says good night and sleep well! See you all tomorrow at Hyggehubben",
      ["+hey"]="Well hello hello [USER]!",
      ["+away"]="Heyyy [USER] Gider du ikke bruge !away i stedet for",
      ["-away"]="[USER] Du er stadig away med mindre du bruger !back",
      ["+time"]=date("Tiden siger, [USER], Det er idag %A den %d/%m %Y... %T "..gmt.."?"),
      brb="Skynd dig [USER] Vi er jo ikke s? mange n?r du g?r!",
      fuck="Heyy [USER] don't say that word!",
      ["+bye"]="See you later [USER] ( I hope )",
      haha="Det er sq sjovt! Hehehe!",
      ["+tillykke"]="Du ?nskes TilLykke Med Dagen af [USER]! H?ber du m? f? en god dag!",
      cola="Cola?? F?j da [USER]! Hvad er det for en gang spr?jt at servere n?r man stadig kan k?be ?l!",
      wb="Velkommen tilbage"
      
   }

-- These triggers will be sent in pm to the user. Loaded from text files
TriggerPrivate =    {
         ["+newbie"]="HyggeBoTz/newbie.txt",
         ["+nybe"]="HyggeBoTz/nybe.txt",
         ["+divx"]="HyggeBoTz/divx.txt",
         ["+adr"]="HyggeBoTz/adr.txt",
         ["+country"]="HyggeBoTz/country.txt",
         ["+gamekey"]="HyggeBoTz/gamekey.txt",
         ["+smiley"]="HyggeBoTz/forkortsmiley.txt",
         ["+moresmiley"]="HyggeBoTz/moresmiley.txt",
         ["+routerhelp"]="HyggeBoTz/routerhelp.txt",
         ["+kopiregler"]="HyggeBoTz/reglerkopiering.txt",

      }

function DataArrival(curUser, sData)

   if( strsub(sData, 1, 1) == "<" ) then
      -- get the msg only using regular expression
      s,e,msg = strfind(sData, "%b<> ([ -z]*)")
      if (msg == "+bed") then
            local text1 = ""
            readfrom("HyggeBoTz/bed1.txt")
            while 1 do
               local line = read()
               if (line == nil) then
                  break
               else
                  text1 = text1..line.."\r\n"
               end
            end
            readfrom()
            local text2 = ""
            readfrom("HyggeBoTz/bed2.txt")
            while 1 do
               local line = read()
               if (line == nil) then
                  break
               else
                  text2 = text2..line.."\r\n"
               end
            end
            readfrom()

            hey = random(1,2)
            if hey == 1 then
            SendToAll("[HyggeBoTz] - from "..curUser.sName,text1)
            elseif hey == 2 then
            SendToAll("[HyggeBoTz] - from "..curUser.sName,text2)
            end
         end



      -- look in the table
      for key, value in triggertext do
         if( strfind( strlower(msg), key) ) then
      answer, x = gsub(value, "%b[]", curUser.sName)
            local text = ""
            readfrom(answer)
            while 1 do
               local line = read()
               if (line == nil) then
                  break
               else
                  text = text..line.."\r\n"
               end
            end
            SendToAll("[HyggeBoTz] - from "..curUser.sName, text)
         end   
         readfrom()   
      end
      

      for key, value in Trigger do
         if( strfind( strlower(msg), key) ) then
            answer, x = gsub(value, "%b[]", curUser.sName)
            SendToAll( Bot, answer ) -- send bot's answer

         end
         
      end
   end
   if( strsub(sData, 1, 1) == "<" ) or ( strsub(sData, 1, 4) == "$To:") then
      s,e,msg = strfind(sData, "%b<> ([ -z]*)")
      for key, value in TriggerPrivate do
         if( strfind( strlower(msg), key) ) then
      answer, x = gsub(value, "%b[]", curUser.sName)
            local text = ""
            readfrom(answer)
            while 1 do
               local line = read()
               if (line == nil) then
                  break
               else
                  text = text..line.."\r\n"
               end
            end
            SendPmToNick(curUser.sName, Bot, text)
            
         end   
         readfrom()   
      end

end

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

      if (cmd=="+joke" or cmd=="!joke" or cmd=="+joke" or cmd=="-joke") then
         curUser:SendPM("[HyggeBoTz] - Joke from "..curUser.sName, txt2)
      return 1;
      end
      


      if (cmd=="!fun" or cmd=="!fun" or cmd=="+fun" or cmd=="-fun" or cmd=="+funbot" or cmd=="-funbot" or cmd=="!funbot") then
         SendPmToNick(curUser.sName, Bot, "\r\n\r\n       Current Fun commands on this hub:".."\r\n      +divx      -   Shows the DivX faq".."\r\n      +shootafaker   -    '44 Magnum Meets A Faker".."\r\n      +gun      -   BLAOW! Another Faker Bites The Dust!".."\r\n      +hey      -   Say Hello In Main Chat".."\r\n      +kaffe      -   Kaffetid!".."\r\n      +weed      -   Cheech & Chong Party Time!".."\r\n      +love      -   Groovy Kind Of Love".."\r\n      +morgen      -   Godmorgen I Hubben".."\r\n      +newbie      -   Direct Connect FAQ In English".."\r\n      +nybe      -   Direct Connect FAQ P? Dansk".."\r\n      +bed      -   Goin' To Bed".."\r\n      +smoke      -   Smokin'".."\r\n      +vel      -   Velkommen".."\r\n      +warning      -   Official Warning".."\r\n      +lol      -   Laugh Out Loud".."\r\n      +adr      -   Show Network Info".."\r\n      +away      -   Away Besked".."\r\n      -away      -   Tilbage p? hubben".."\r\n      +bye      -   Ses Senere".."\r\n      +tillykke      -   Tillykke Med Dagen".."\r\n      +nat      -   God Nat p? hubben".."\r\n      +country      -   Shows a list of all countrycodes".."\r\n      +gamekey   -   Shows keys and serials for the most popular games".."\r\n      +smiley      -   Shows some smileys and shortenings".."\r\n      +moresmiley   -   More smileys".."\r\n      +kopiregler   -   Viser de g?ldende regler for kopiering af digitale medier i DK".."\r\n      +routerhelp   -   Shows how u use active mode when you have a router or firewall".."\r\n")
               return 1;
      end


end

function tokenize (inString,token)
   _WORDS = {}
   local matcher = "([^"..token.."]+)"
   gsub(inString, matcher, function (w) tinsert(_WORDS,w) end)
   return _WORDS
end

function loadText()
handle = openfile("HyggeBoTz/joke.txt", "r")
if (handle) then
local line = read(handle)
   while line do
      if ((line ~= "") and (strfind(line, "*", 1, plain))) then
      tinsert(textArray, line)
      antall = antall + 1
   end
   line = read(handle)
   end
closefile(handle)
end
end

function getLine()
 lngWord = random(1, antall)
 QWarray = tokenize(textArray[lngWord], "*")
 txt1 = QWarray[1]
 txt2 = QWarray[2]
end


Include txt files in the directory /script/HyggeBoTz

[Progressive_Rocker_1960]

Thank you very much [T-G-T]M@sto, this looks like what I'm looking for. Appreciate your Help