User:PATX/PatxBot

From Wackypedia
Jump to: navigation, search
patxbots codes can be found at: http://9971.tk
patx's website can be found out: http//patx.tk
; patxBot, made by PATX.
; paste in the remotes section of mIRC
; for help on using the commands go to
; http://mercs.wikia.com/wiki/PatxBot

on *:text:!@*:#: set %searchstring $replace($2-,$chr(32),_) | .msg # $nick $+ : http://mercs.wikia.com/wiki/ $+ %searchstring $+ | /unset %searchstring
on *:TEXT:!cola*:#:if ($2) { describe $chan brings $2 a Coca-Cola }
on *:TEXT:!pizza*:#:if ($2) { describe $chan brings $2 a pizza. }
on *:TEXT:!site:#: msg # http://patx.tk
; Paste into remotes.
; After you have pasted and saved either restart mIRC or type
; '/hmake seen 100' into your status window.
;
; Usage: /seen nick
; other users can type: !seen nick
ON *:START: {
hmake seen 100
if ($isfile(seen.dat)) { hload seen seen.dat }
}
ON *:EXIT: {
if ($hget(seen)) { hsave -o seen seen.dat }
}
ON *:TEXT:*:#: {
hadd seen $nick text $chan $ctime $1-
if ($1 = !seen) {
if ($2 ison $chan) { msg $chan $2 is right here. }
else { msg $chan $nick $+ : $seenparse($2) }
}
}
alias seen {
echo $colour(info) -a *** $seenparse($1)
}
ON *:ACTION:*:#: {
hadd seen $nick act $chan $ctime $1-
}
ON *:QUIT: {
hadd seen $nick quit $ctime $1-
}
on *:PART:#: {
hadd seen $nick part $chan $ctime $1-
}
on *:JOIN:#: {
hadd seen $nick join $chan $ctime $1-
}
ON *:NICK: {
hadd seen $nick nick $newnick $ctime
}
ON *:KICK:#: {
hadd seen $nick kicking $chan $ctime $knick $1-
hadd seen $knick kick $chan $ctime $nick $1-
}
alias -l seenparse {
var %x = $hget(seen,$1)
if (!%x) { return I have not seen $1 }
var %n = $1
tokenize 32 %x
if ($1 = text) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago saying $4- }
if ($1 = act) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago acting $4- }
if ($1 = quit) { return I last saw %n quiting $duration($calc($ctime - $2)) ago $iif($3,with the message $3-) }
if ($1 = part) { return I last saw %n leaving $2 $duration($calc($ctime - $3)) ago with the message $4- }
if ($1 = join) { return I last saw %n joining $2 $duration($calc($ctime - $3)) ago. }
if ($1 = nick) { return I last saw %n changing their nickname to $2 $duration($calc($ctime - $3)) ago. }
if ($1 = kicking) { return I last saw %n kicking $4 from $2 $duration($calc($ctime - $3)) ago with the reason $5- }
if ($1 = kick) { return I last saw %n being kicked from $2 by $4 $duration($calc($ctime - $3)) with the reason $5- }
}