on *:JOIN:#: { if ($chan == %public.channel ) {
//notice $nick 7,14Welcome to %public.channel . I'm the channels bot. type in !help to get a list of commands. Alternatively, you can pm me the word "help"!
}
}
on *:TEXT:!ip:#: { //notice $nick 7,14::: %ip 7::: }
on *:TEXT:!members:#: { //notice $nick 7,14:::1 BD Members 7::: }
on *:TEXT:!rank:#: { //notice $nick 7,14 %clan.name are ranked: %rank }
on *:TEXT:!setrank *:#: { if ($nick isop $chan) { //unset %ukcslrank | //set %rank $2- | //notice $nick 7,14 Current Rank Changed To: %rank }
}
on *:TEXT:!lastresult:#: { //notice $nick 7,14 %clan.name Last Result: %lastresult }
on *:TEXT:!result *:#: { if ($nick isop $chan) { //unset %lastresult | //set %lastresult $2- | //notice $nick 7,14 Last Result Changed To: $2- } else { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!setnextmatch * * * *:#: { if ($nick isop $chan) { //unset %nextmatchdate | //unset %nextmatchenemy | //unset %nextmatchleague | //unset %nextmatchtime | //set %nextmatchdate $2 | //set %nextmatchtime $3 | //set %nextmatchenemy $4 | //set %nextmatchleague $5 | //set %nextmatchwa $nick | //notice $nick 7,14 Next Match Info Set To: [Date: %nextmatchdate ] - [Time: %nextmatchtime ] - [Opponent: %nextmatchenemy ] - [Match Type: %nextmatchleague ] - [Organiser: %nextmatchwa ] }
}
on *:TEXT:!nextmatch:#: { if ($nick isop $chan) { //notice $nick 7,14Our Next Match Is: [Date: %nextmatchdate ] - [Time: %nextmatchtime ] - [Opponent: %nextmatchenemy ] - [Match Type: %nextmatchleague ] - [Organiser: %nextmatchwa ] }
ELSE { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!site:#: { //notice $nick 7,14::: http://s10.invisionfree.com/Blackdragons 7::: }
on *:TEXT:!topic *:#: { if ($nick isop $chan) { //topic $chan 7,14 $2- }
else { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!op *:#: { if ($nick isop $chan) { //mode $chan +o $2 }
ELSE { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND!
}
}
on *:TEXT:!deop *:#: { if ($nick isop $chan) { //mode $chan -o $2 }
ELSE { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND!
}
}
on *:TEXT:!voice *:#: { if ($nick isop $chan) { //mode $chan +v $2 }
ELSE { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND!
}
}
on *:TEXT:!devoice *:#: { if ($nick isop $chan) { //mode $chan -v $2 }
ELSE { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND!
}
}
on *:TEXT:!kick *:#: { if ($2 isop $chan) { //notice $nick Sorry You Can not Kick An OP | halt }
elseif ($nick isop $chan) { //kick $chan $2 7,14 $me > ALL }
elseif ($nick !isop $chan) { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!ban *:#: { if ($2 isop $chan) { //notice $nick Sorry You Cannot Ban An OP | halt }
elseif ($nick isop $chan) { //mode $chan +b $2
//kick $chan $2 7,14 $me > ALL }
elseif ($nick !isop $chan) { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!unban *:#: { if ($nick isop $chan) { //mode $chan -b $2
//msg $2 7,14 You Have Been Unbanned From $chan By $nick }
elseif ($nick !isop $chan) { //notice $nick 1,4 SORRY YOU DO NOT HAVE ACCESS TO THIS COMMAND! }
}
on *:TEXT:!info:#: { //notice $nick 1,14 I am $me A Clan Bot Created by Hawkeye84 ( http://s14.invisionfree.com/glorywarriors ). For Commands please go here http://z14.invisionfree.com/glorywarriors/index.php?showtopic=448 . Have fun and injoy your stay . Since 4th September 2004, I have been online for: $online . I am owned by %owner }
on *:TEXT:!mod:#: { if ($nick isop $chan) { //mode $chan +m }
ELSE { //notice $nick Sorry you do not have access to this command }
}
on *:TEXT:!unmod:#: { if ($nick isop $chan) { //mode $chan -m }
ELSE { //notice $nick Sorry you do not have access to this command }
}
on *:TEXT:!war *:#: { if ($nick isop $chan) { //amsg %public.channel are looking for: $2- . msg $nick for details. }
ELSE { //notice $nick Sorry, you do not have access to this command
}
}
on *:TEXT:!challenge * *:#: {
//msg %private.channel 10,1 $nick from $2 is looking for a pcw @ $3 . Get in touch!!
//msg %private.channel 13,12 $nick from $2 is looking for a pcw @ $3 . Get in touch!!
//msg %private.channel $nick from $2 is looking for a pcw @ $3 . Get in touch
}
on *:TEXT:help:?: {
//msg $nick 7,14 -[1 !usercommands <7>1 !opcommands 7]-
}
on *:TEXT:!help:#: {
//msg $nick 7,14 -[1 !usercommands <7>1 !opcommands 7]-
}
on *:TEXT:!usercommands:*: {
//msg $nick 7,14 7-[1 !ip <7>1 !members <7>1 !site <7>1 !seen <nick> <7>1 !google TERM <7>1 !lastresult <7>1 !rank <7>1 !challenge YOURCHANNEL TIME <7>1 !info 7]-
//msg $nick 7,14 7-[1 All Commands To Be Typed In Channel Window 7]-
}
on *:TEXT:!opcommands:*: {
//msg $nick 7,14 7-[1 !voice <nick> <7>1 !devoice <nick> <7>1 !op <nick> <7>1 !deop <nick> <7>1 !topic <topic> <7>1 !ban <nick> <7>1 !unban <nick> <7>1 !kick <nick> <7>1 !mod <7>1 !unmod <7>1 !war ?v? // map // skill <7>1 !result dAc (xx) -vs- TEAM (xx) <7>1 !setrank <RANK IN LEAGUES> <7>1 !nextmatch <7>1 !setnextmatch x/x/04 20:00 ClanName MATCHTYPE 7]-
//msg $nick 7,14 7-[1 All Commands To Be Typed In Channel Window 7]-
}
on 1:text:*seen*:#: {
if ($1 == !seen) {
if ($2 == $null) { .notice $nick Usage !seen <nick> | halt }
if ($2 == $me) { .notice $nick Yes I'm here... $+ . | halt }
if ($2 == $nick) { .notice $nick What a surprise $nick, YOU ARE HERE! | halt }
if ($2 ison $chan) { .notice $nick $2 is in this chan already. | halt }
if ($readini ini\users.ini $2 date == $null) { .notice $nick $2 has not been seen by me. | halt }
else {
if ($readini ini\users.ini $2 me == $null) {
if ($readini ini\users.ini $2 part == yes) { .msg $nick $2 was last seen parting [ $readini ini\users.ini $2 chan ] $+ $duration($calc($ctime($fulldate)-$ctime($readini ini\users.ini $2 date))) ago. }
else { .msg $nick [ $2 ] was last seen quiting $+ $duration($calc($ctime($fulldate)-$ctime($readini ini\users.ini $2 date))) ago with the message: " $+ [ $readini ini\users.ini $2 message ] $+ ". }
}
else {
if ($readini ini\users.ini $2 part == yes) { .msg $nick $2 was last seen parting [ $readini ini\users.ini $2 chan ] $+ $duration($calc($ctime($fulldate)-$ctime($readini ini\users.ini $2 date))) ago. | .msg $nick 5 $+ $2 $+ 's last action was: [ $readini ini\users.ini $2 me ] }
else { .msg $nick $2 was last seen quiting $+ $duration($calc($ctime($fulldate)-$ctime($readini ini\users.ini $2 date))) ago with the message: " $+ [ $readini ini\users.ini $2 message ] $+ ". | .msg $nick $2 $+ 's last action was: [ $readini ini\users.ini $2 me ] }
}
}
else { halt }
}
}
#sen end
#sjsen on
on 1:QUIT:/writeini -n ini\users.ini $nick date $fulldate | writeini -n ini\users.ini $nick part no | writeini -n ini\users.ini $nick message $1-
on 1:PART:#:/writeini -n ini\users.ini $nick date $fulldate | writeini -n ini\users.ini $nick chan $chan | writeini -n ini\users.ini $nick part yes
on 1:ACTION:*:#:writeini -n ini\users.ini $nick me * $+ $nick $1-
#sjsen end
; google script
alias google {
;if you use a proxy server, you can put its ip/port in here, and that should work fine.
;note: I've used google's ip to save the time of a dns lookup. You're welcome to change it to google.com
sockopen google google.com 80
%google.temp = $1-
}
on 1:sockopen:google:{
if ($sockerr > 0) return
sockwrite -n google $eval(GET http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=,0) $+ %google.temp $+ $eval(&btnI=I%27m+Feeling+Lucky HTTP/1.0,0)
sockwrite -n google
}
on 1:sockread:google:{
;ths event has been added to in order to allow remote !google commands
if ($sockerr > 0) return
:nextread
sockread %google.temp
if ($sockbr == 0) return
if ( Location: isin %google.temp ) {
if ( %google.nick != $null ) {
notice %google.nick 2G4o8o2g3l4e $right(%google.temp,-10)
unset %google.nick
}
else {
echo 2G4o8o2g3l4e $right(%google.temp,-10)
}
sockclose google | return
}
elseif ( did not match any documents isin %google.temp ) {
if ( %google.nick != $null ) {
notice %google.nick 2G4o8o2g3l4e No match
unset %google.nick
}
else {
echo 2G4o8o2g3l4e No match
}
}
goto nextread
}
;A simple remote implementation of the google script
on 1:text:!google*:#:{
%google.nick = $nick
google $2-
}
me,12).state == 1) { g.ini all on } | else { g.ini all off }
if ($did($dname,16).state == 1) { g.ini active on } | else { g.ini active off }
}