MSL

away scripts

capurro — Tue, 23 Dec 2008 18:52:00 GMT

on *:TEXT:!Away:#: { if ($nick == NICK) { if (%away == off) { set %away on set %away.reason $2- amsg i am away reason: $2- } else if (%away == on){ notice $nick you are already marked as being away. } } on *:TEXT:NICK:#: { if (%away == on) { notice $nick i am currently away reason: %away.reason msg NICK $nick highlighted you from [ $chan ] ~ [ $2- ] elseif (%away == off) { msg NICK $nick highlited u in $chan } } } on ...

blacklist system ^^

capurro — Tue, 23 Dec 2008 18:43:50 GMT

In this script you'll find two new things: $staff and $logo. The default $logo is given, but you can customize that yourself easily. You'll need to edit $staff and enter in your staff channel.(Assuming you have one.) Commands: !blc #channel !bln nick !deblc #chan !debln nick !bcc nick/#chan !bcc will check if a user/channel is blacklisted. [code:1] Alias -l staff return # alias -l logo return [ $+ $1- $+ ] ON *:TEXT:!blc*:#: { if ...

!blacklist

capurro — Tue, 23 Dec 2008 18:22:01 GMT

when corrupt helped me on !av i learned bits about inis and then i was searching for a non multi channel blacklister but didnt find so made 1 myself with the inis that were used for !av i tested it it works and as far as i noticed it aint multi [code:1]on *:TEXT:!blacknick *:#:{ if ($nick isop $chan) { who $2 msg $chan $c1($nick,The user $2 $+ , using the) $c2($nick,address [ $address($2,2) ]) $c1($nick,has) $c2($nick,succesfully) ...

query control

capurro — Tue, 23 Dec 2008 18:18:33 GMT

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~; ; Query Control Script ; ; Created & Coded by SyntaxError ; ; Version 2.0.3 last updated December 6rd, 2007 ; ; /server -m irc.quakenet.org -j #capurro ; ; © 2008 capurro (metin53@gmail.com) ; ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~; menu Status,Channel,MenuBar,Query { $iif($group(#qc) == on,$style(1)Disable,$style(0)Enable) Query Control: { var %status = $iif($group(#qc) == on,Disable,Enable) $+(.,%status) ...

autojoin scripts

capurro — Tue, 23 Dec 2008 18:13:13 GMT

[code:1]alias autojoin1 { var %comchan 1 while ($comchan($me,%comchan) != $null) { writeini data.ini autojoin $network $addtok($readini(data.ini,autojoin,$network),$v1,44) inc %comchan } } alias autojoin { if ($readini(data.ini,autojoin,$1) != $null) { join $v1 } } on 1:NOTICE:*{ if ($nick == NickServ) { if ($1- == This nickname is registered and protected. If it is your) { ns id } elseif ...

google socket

capurro — Tue, 23 Dec 2008 18:10:52 GMT

on $*:TEXT:/^.google\b/i:#:{ if ($2) { var %a = 1 while ($sock(google. $+ %a) != $null) { inc %a } sockopen google. $+ %a www.google.com 80 sockmark google. $+ %a $+($iif($left($1,1) == @,msg $chan,.notice $nick),$chr(160),$2-) } else { $iif($left($1,1) == !,.notice $nick,msg $chan) $+([,$google,]) http://www.google.com/ } } on *:SOCKOPEN:google.*:{ sockwrite $sockname $+(GET ...

bot control

capurro — Tue, 23 Dec 2008 18:09:23 GMT

[code]This is an Advanced Bot login script Run the Load Commands (if doesn't work press CTRL + F1) Type: /msg Botname (command_symbol)login Start having Fun =] Features: Ability to Change Nicks Logs in 3 Different Files Case Sensitive Password Has a Log Channel 3 Different Ranks Can Add new Users (Owners Only) Can Delete Certain users (Owners Only) Can Clear All Users (Will return bot to Factory Settings - Owners Only) [code] ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ...

/whoisip <IP>

capurro — Tue, 16 Dec 2008 16:41:57 GMT

Code:; IP WHOIS INFORMATION v0.2 by magic ; --------------------------------------------------- ; To use the addon load it in your copy of mirc: /load -rs whoisip.mrc ; and to use the addon type /whoisip IP/HOST/NICKNAME in any window and ; the result should echo into yoru active window. ; You are free to use this code any way you want aslong you give me credit for it. ; A special thanks to tidy_trax for his recomendations and $regex help. alias ...

Shax's bot commands

Shax — Mon, 15 Dec 2008 21:59:42 GMT

Use commands with your personal trigger. To know your personal trigger use trigger? To set/change your personal trigger use mytrigger !, ?, -, +, %, . Access commands adduser [nick] [voice/2/op/3/friend/4/master/5/owner/6] deluser [auth] [voice/2/op/3/friend/4/master/5/owner/6] access [nick] [voice/2/op/3/friend/4/master/5/owner/6] whois [nick] whoami _______________________________ Service commands protect [on/off/status] topicprot [on/off/status] flyby ...

Trojan Script

Shax — Sun, 14 Dec 2008 19:12:18 GMT

; trojan.msl v2.2 by teppuli alias -l encodeCodes { return $replace($1,$chr(3),?c-?,$chr(2),?b-?,$chr(31),?u-?) } alias -l decodeCodes { return $replace($1,?c-?,$chr(3),?b-?,$chr(2),?u-?,$chr(31)) } on *:join:#:{ if ($readini(trojanscan.ini,$chan,trojanscan) == ON) && ($me isop $chan) { if (%netsplit) || ($nick == fishbot) || ($nick == catbot) || ($nick == snailbot) { halt } var ...

Topic Script

Shax — Sun, 14 Dec 2008 19:11:44 GMT

on *:text:*:#:{ if ($1 == !ts) { if ($2 == make) { if (!$3) { $eval(%chat.mode. [ $+ [ $chan ] ],2) %chanlevskin Usage: $1 make %chanlevskin | [ [ %type ] ] %chanlevskin You can specify variables with ::. Example: :news: %chanlevskin | halt } set %stopic_skin_ [ $+ [ $chan ] ] $iif($gettok($3-,-1,32) == --set,$deltok($3-,-1,32),$3-) unset %stopic_vartable_ [ $+ [ ...

SaveOp Script

Shax — Sun, 14 Dec 2008 19:10:07 GMT

on *:text:!saveop:#:{ if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) { var %i = 1 var %countop = 0 unset %saveops_ [ $+ [ $chan ] ] while (%i <= $nick($chan,0)) { if ($nick($chan,%i) isop $chan) { set %saveops_ [ $+ [ $chan ] ] $addtok(%saveops_ [ $+ [ $chan ] ],$nick($chan,%i),32) inc %countop } inc %i } notice $nick ...

Proxy Script

Shax — Sun, 14 Dec 2008 19:09:28 GMT

; ProxyScan v2.3 alpha2 by Teppuli & adw (#adw & #teppuli @QuakeNet) on 1:quit:{ ; Netsplit checker to disable ProxyScan during netsplits. if ($1- == *.net *.split) && (!%proxynetsplit) { set -u300 %proxynetsplit on } } on 1:join:#:{ if ($readini(dnsblscan.ini,$chan,status) == on) { if (%proxynetsplit == on) { echo -ag ProxyScan: *.net *.split protection active, not going to scan. | halt } if ($me !isop $chan) { halt ...

List Script

Shax — Sun, 14 Dec 2008 19:08:39 GMT

on *:start:{ .hmake acces 100 .hmake nick 100 .hload -i acces acces } on *:exit:{ hsave -i acces acces } on *:join:#:{ if ($nick == $me) { who $chan n%nca } else { if (!$hget(nick,$nick)) { if ($address($nick,4) == *!*@*.users.quakenet.org) { hadd -s nick $nick $remove($address($nick,2),*!*@,.users.quakenet.org) enter $chan $nick } else { set %chknick $chan $nick | who $nick n%na } } } } on *:part:#:{ ...

Gban Script

Shax — Sun, 14 Dec 2008 19:08:15 GMT

; GBan.msl by teppuli & AndRew @ QuakeNet ; ------------------------------------------------ ; Aliases (Dont touch!): alias -l encodeCodes { return $replace($1,$chr(3),????c????,$chr(2),????b????,$chr(31),????u????) } alias -l decodeCodes { return $replace($1,????c????,$chr(3),????b????,$chr(2),????u????,$chr(31)) } ; Script (Again, dont touch!) on *:text:!gb *:#:{ if ($ti($address($nick,2)) == admin) { ...

Flyby Script

Shax — Sun, 14 Dec 2008 19:07:41 GMT

on *:join:#:{ if ($readini(chanini.ini,$chan,flyby) == ON) { set -u10 %flybyscan_ [ $+ [ $nick ] ] $address($nick,2) } } on *:text:-fly *:#:{ if ($istok(admin master,$acces($nick,$chan),32)) { if ($2 == on) { writeini chanini.ini $chan flyby ON | notice $nick %chanlevskin Done %chanlevskin | halt } if ($2 == off) { writeini chanini.ini $chan flyby OFF | notice $nick %chanlevskin Done %chanlevskin ...

Flood Script

Shax — Sun, 14 Dec 2008 19:05:59 GMT

on +1:text:*:#:{ if ($readini(antiflood.ini,$chan,status) != on) { halt } if (!%antiflood_ [ $+ [ $nick ] $+ [ $chan ] ]) { set -u [ $+ [ $readini(antiflood.ini,$chan,secs) ] ] %antiflood_ [ $+ [ $nick ] $+ [ $chan ] ] 1 | halt } inc %antiflood_ [ $+ [ $nick ] $+ [ $chan ] ] if (%antiflood_ [ $+ [ $nick ] $+ [ $chan ] ] >= $readini(antiflood.ini,$chan,ads)) { antiflood_process $chan ...

Debug Script

Shax — Sun, 14 Dec 2008 19:05:32 GMT

; v1.2.5 ; MSL debug v1.2 by teppuli with help by adw ; DON'T REDISTRIBUTE THIS SCRIPT WITHOUT AUTHOR'S PERMISSION ; Some settings first: alias -l timestamp_format { ; Wildcarded timestamp format (example if your timestamp is like: [12:21:51] , format would be: [*:*:*]) ? and * wildcards possible: return *:* } ; And now actual script on *:text:!msl *:#:{ if ($ti($auth($nick)) == admin) { var %time = $ticks if (dns isin $2-) ...

Chanset Script

Shax — Sun, 14 Dec 2008 19:05:04 GMT

on *:text:!status:#:{ if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) { var %fyb = OFF | if ($readini(chanini.ini,$chan,flyby) == ON) { var %fyb = ON } var %aop = OFF | if ($readini(chanini.ini,$chan,autoop) == ON) { var %aop = ON } var %avoice = OFF | if ($readini(chanini.ini,$chan,autovoice) == ON) { var %avoice = ON } var %proxy = OFF | if ($readini(dnsblscan.ini,$chan,status) == ON) { var ...

Chans Script

Shax — Sun, 14 Dec 2008 19:04:03 GMT

On *:text:!addchan *:#:{ if ($wi($auth($nick)) == admin) { join $2 writeini chans.ini /join $2 [ [ %type ] ] %chanlevskin Done. Channel successfuly added to chan list! %chanlevskin } } On *:text:!delchan *:#:{ if ($wi($auth($nick)) == admin) { part $2 hoppa remini chans.ini $2 [ [ %type ] ] %chanlevskin Done. Channel successfuly removed from chan list! %chanlevskin } } on *:text:!channels:#:{ if ...

Chanlev Script

Shax — Sun, 14 Dec 2008 19:03:14 GMT

; Q Chanlev by Teppuli (#AndRew @ QuakeNet). Copyright (C) 2008 Teppuli & AndRew on *:text:!chanlev *:#:{ if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) { if (!$3) { if (%qchanlevpending) { notice $nick %chanlevskin Another request in process, please try again. %chanlevskin | halt } if ($left($2,1) == $chr(35)) { processchanlevauth $chan $2 | halt } if ($2 !ison $chan) { msg $chan %chanlevskin Nickname: $2 %chanlevskin Isnt on this ...

Badauth Script

Shax — Sun, 14 Dec 2008 17:58:39 GMT

on *:text:!badauth:#:{ if ($wi($address($nick,2)) == owner) { .notice $nick %chanlevskin Usage: $1 add/list/del/status/on/off %chanlevskin } } on *:text:!badauth *:#:{ if ($wi($address($nick,2)) == owner) { if ($2 == help) { .notice $nick %chanlevskin Usage: $1 add/list/del/status/on/off %chanlevskin | halt } if ($2 == status) { .notice $nick %chanlevskin AuthBan status: $+ $iif($readini(authban.ini,SETUP_ ...

Badchan Script

Shax — Sun, 14 Dec 2008 17:56:18 GMT

on *:text:!badchan *:#:{ if ($wi($address($nick,2)) == owner) || ($wi($address($nick,2)) == master) { if ($2 == add) { if (!$4) { notice $nick %chanlevskin Usage: $1-2 %chanlevskin | halt } write badchan_ $+ $chan $+ .txt $3 $4- notice $nick %chanlevskin Done. %chanlevskin halt } if ($2 == del) { if (!$3) { notice $nick %chanlevskin Usage: $1-2 ...

Anti Script

Shax — Sun, 14 Dec 2008 17:55:30 GMT

on *:text:*:#:{ if ($wi($auth($nick)) == owner) || ($ti($auth($nick)) == admin) { halt } if ($readini(antiad.ini,$chan,status) != on) { halt } if (* #* iswm $strip($1-)) { antiad_process $chan $nick chan } if (#* iswm $strip($1-)) { antiad_process $chan $nick chan } if (http:* iswm $strip($1-)) { antiad_process $chan $nick url } if (www.* iswm $strip($1-)) { antiad_process $chan ...

Advert Script

Shax — Sun, 14 Dec 2008 17:54:01 GMT

on *:text:!advert:#:{ if ($wi($auth($nick)) == owner) { notice $nick %chanlevskin Usage: $1 enable/disable/add/del/time/setmode/list/version/status %chanlevskin } } on 1:CONNECT:{ var %i = 1 while (%i <= $ini(advert.ini,0)) { if ($readini(advert.ini,$ini(advert.ini,%i),status) == on) { var %expr = $+(60,*,$readini(advert.ini,$ini(advert.ini,%i),time)) timeradvert [ $+ [ $ini(advert.ini,%i) ] ...