Antworten

Hab ein Talk Script und alles klappt aber würde gerne die ausgabe von "trigs" mit Antwortzeit versehen, kann mir wer helfen dabei dies anzupassen!? Weiters wollte ich dem Bot einen Ordner mit Share (bilder und so) hinzufügen, bisher nur anzeige von fack-share erreicht!

HIER DAS SCRIPT:
--------------------------------------------------------------------------------------------
--Talking Bot mit share by lucifer

BotName = "-=testbot=-"
jver = "0.699" --//What Version Of Dc++
SendTag = 1 --//Should The Bot Have A Tag?

if SendTag == 1 then
BotEmail = "e-mail"
BotSpeed = "DSL"
BotDescr = "Describtion"
BotTag = "<++v:"..jver..",M:P,H:0/0/1,S:10>"
BotShare = 56287160245
MyInfoString = "$MyINFO $ALL "..BotName.." "..BotDescr.." "..BotTag.."$ $"..BotSpeed..string.char( 1 ).."$"..BotEmail.."$" ..BotShare.."$"
end

low = string.lower;

trigs = {

["lol"]={
"yeah, [curUser].",
"LoL",
"LooL",
"LoooL",
"LooooL",

},

olle={

"ooooLLLLeeee...",
"olleeeeee",

},



haha={
"hehehehe",
"hohohohoh"
},

}

idlequestions = {
"hi....spoke to me",
".....",

idleanswers = {
"hej, [curUser]... i am test?",
"hej, [curUser]... ups?",
}

sec = 1000
min = 60 * sec
hour = 60 * min

index = nil

function Main()
frmHub:RegBot(BotName);
SendToAll(MyInfoString)
a = 0
SetTimer(5*min)
StartTimer()

end

function NewUserConnected(curUser)
if SendTag == 1 then
curUser:SendData(MyInfoString)
elseif SendTag == 0 then
end
end


function OpConnected(curUser)
NewUserConnected(curUser)
end
-----

function ChatArrival(curUser, data)

if( string.sub(data, 1, 1) == "<" ) then
-- get the msg only using regular expression
data=string.sub(data,1,string.len(data)-1)
-- parse the command
s,e,cmd,RestOfText = string.find( data, "%b<>%s+(%S+)%s+(.*)" )
if RestOfText == nil then
RestOfText = ""
s,e,cmd = string.find( data, "%b<>%s+(%S+)" )
end
s,e,mess = string.find(data, "%b<> ([%w ]*)")

if (cmd=="ruhe") then
if curUser.bOperator then
a = 3
SendToAll(BotName, "seid Ihr fad...ich geh mal schlafen dann :-(")
StopTimer()
else
if a == 1 or a == 2 then
SendToAll(BotName, "hmmm...hmmm...cccccc")
a = 0
end
end
end

if (cmd=="sprich") then
if curUser.bOperator then
a = 2
SendToAll(BotName, "opppssaaallaaa... da bin ich wieder... )")
StartTimer()
else
if a == 1 or a == 2 then
SendToAll(BotName, "lass mich in ruhe..."..curUser.sName.." ")
a = 0
end
end
end

-- look in the table
for key, value in trigs do
if mess and a == 0 then
if( string.find( string.lower(mess), key)) then
answer, x = string.gsub(value[math.random(1,table.getn(value))], "%b[]", curUser.sName)
SendToAll(curUser.sName,cmd.." "..RestOfText)
SendToAll(BotName, answer)

return 1
end
end
end

if cmd and a == 1 then
if (cmd=="ruhe") or (cmd=="sprich") then
else
index = math.random(1,table.getn(idleanswers))
answer, x = string.gsub(idleanswers[index], "%b[]", curUser.sName)
SendToAll(curUser.sName,cmd.." "..RestOfText)
SendToAll(BotName, answer)
a = 0
return 1
end
else

if a == 2 then
StartTimer()
end
end

end
end


function OnTimer()
index = math.random(1,table.getn(idlequestions))
SendToAll(BotName, idlequestions[index])
a = 1

end