can some1 help me

[raz]

i need a script whcih does !boom, !cannabis etc. i really need it. if some1 has it can dey post it. thanks.

[pHaTTy]

sure Gekko does that :P

[raz]

yes phatty, how r u? how was linux?  i don't want a bot i want a script. sorry if i didn't make dat clear in the post b4  

[raz]

isn't there any1 who has the !boom etc  script. i really need it. i would appreciate if soem1 can post it on here.

[raz]

phatty can u help me. as u have it in ur bot can u make a seperate 1 for me.safe. :D

[pHaTTy]

But all itis is a bot thats reading text files, and atm im very bissy with Gekko, extrememly sorry, i wud if i had the time, and after i finish some stuff on my bot, i have a CV to write brrrrrrrrrrrrrrrr

[raz]

safe anyway. maybe soem1 else can do it. :D

[TiMeTrAVelleR]

Here a simpel tekstfile reader  

--ShowInfo v1.0 by latinmusic == poweroperator 18/04/2003
--Based on TrickerBot 2 by ?Ptaczek?
--Based on a few lines of DirtyBot made by Dirty Finger
--This script read several files from a table and display them to a single user when he type the appropiate command...
--The directory --> Files <-- must exist inside of PtokaX Script Directory...
--The files --> rules.txt, net.txt, logo.txt and news.txt <-- must exist inside Files Directory...
--Enjoy
BotName = "?The.ButleR"
Files = {  
["!boom"] = "Files/boom.txt",
["?news"] = "Files/news.txt",
["?rarfile"] = "Files/rarfile.txt",
["?regler"] = "Files/regler.txt",
["?winrar"] = "Files/winrar.txt",
["?rippdvd"] = "Files/rippdvd.txt",
["?opfun"] = "Files/opfun.txt",
["!faq"] = "Files/faq.txt",
["?dvd2vcd"] = "Files/dvd2vcd.txt",
["?rules"] = "Files/Rules.txt", --If you're using DirtyBot, don't uncomment this line
}
function Main()
end
function DataArrival(user, data)
if( strsub(data, 1, 1) == "<" ) then
s,e,msg = strfind(data, "%b<> ([ -z]*)")
for key, value in Files do
if( strfind( strlower(msg), key) ) then
txtToShow, x = gsub(value, "%b[]", user.sName)
SendToAll( data )
Show(user, TheFile)
return 1
end
end
end
end
function Show(user, TheFile)
readfrom(txtToShow, "r")
local message = ""
while 1 do
local line = read()
if line == nil then break
else
message = message..line.."\r\n"
end
end
user:SendPM(BotName, message)
readfrom()
return 1;
end



TiM

[[ES]latinmusic]

8o
I have losted the old backup for this one!. Thanks for posting it here again  )

[raz]

thanks time traveller. i really needed it.