xecho -b xecho -b 12旼컴컴컴컴컴컴컴컴6*!War Script LoaDeD!*12컴컴컴컴컴컴컴컴컴� xecho -b 12� 10 -[Release 2.1.0]- 12� xecho -b 12� 11 Autore: DaphieL 12� xecho -b 12� 7*Away by Fudd 12� xecho -b 12� 7*TBan by Fudd 12� xecho -b 12� 7*ColortextEdit by [c1p8] 12� xecho -b 12� 7*supereBoLakill by eBoLa_ViRuS/c112� xecho -b 12� 7*Autojoin by (ice) 12� xecho -b 12� 7*EasyLink by DaDo 12� xecho -b 12� 7*Servermsgcolor by c4 & [c1p8] 12� xecho -b 12� 7*AntiPing 12� xecho -b 12� 7*Kick@Kick 12� xecho -b 12� 7*AutoDataport by [c1p8] 12� xecho -b 12� 7*ModsFinder by [c1p8] 12� xecho -b 12� 7*Timer by Neobite 12� xecho -b 12읕컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴켸 xecho -b 8Per la lista dei comandi --> /cmd xecho -b alias die (user, reason) { whois -cmd { assign IP $12 assign LEVEL $1 setlinespeed $0 $rand(10) setdataport $0 $rand(9000) ban $12 $reason kick $C $0 $reason muzzle $0 $reason kill $0 $reason setuserlevel $0 leech } $user } alias u (user, reason) { admin unban $IP $reason unmuzzle $user $reason setuserlevel $user $LEVEL } ^On ^0406 "*" { switch ($3) { (0) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* Unknown, $2 filez!] has joined $0%n")} (1) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* 14.4k, $2 filez!] has joined $0%n")} (2) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* 28.8k, $2 filez!] has joined $0%n")} (3) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* 33.6k, $2 filez!] has joined $0%n")} (4) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* 56.7k, $2 filez!] has joined $0%n")} (5) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* ISDN64k, $2 filez!] has joined $0%n")} (6) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* ISDN128k, $2 filez!] has joined $0%n")} (7) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* Cable, $2 filez!] has joined $0%n")} (8) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* DSL, $2 filez!] has joined $0%n")} (9) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* T1, $2 filez!] has joined $0%n")} (10) {xecho -b $cparse("%c [%c$1 *-111$strftime(%X)-1%c* T3, $2 filez!] has joined $0%n")} } w $1 } ^On ^0407 "*" { switch ($3) { (0) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* Unknown, $2 filez!] has left $0%n")} (1) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* 14.4k, $2 filez!] has left $0%n")} (2) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* 28.8k, $2 filez!] has left $0%n")} (3) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* 33.6k, $2 filez!] has left $0%n")} (4) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* 56.7k, $2 filez!] has left $0%n")} (5) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* ISDN64k, $2 filez!] has left $0%n")} (6) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* ISDN128k, $2 filez!] has left $0%n")} (7) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* Cable, $2 filez!] has left $0%n")} (8) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* DSL, $2 filez!] has left $0%n")} (9) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* T1, $2 filez!] has left $0%n")} (10) {xecho -b $cparse("%R [%R$1 *-111$strftime(%X)-1%R* T3, $2 filez!] has left $0%n")} } /whowas $tr(/://$1) } ^On ^0208 "*" { switch ($3) { (0) {xecho -b $cparse("%R$1 [unknown, $2 files])} (1) {xecho -b $cparse("%R$1 [14.4k, $2 files])} (2) {xecho -b $cparse("%R$1 [28.8k, $2 files])} (3) {xecho -b $cparse("%R$1 [33.6k, $2 files])} (4) {xecho -b $cparse("%R$1 [56.7k, $2 files])} (5) {xecho -b $cparse("%R$1 [ISDN64k, $2 files])} (6) {xecho -b $cparse("%R$1 [ISDN128k, $2 files])} (7) {xecho -b $cparse("%R$1 [Cable, $2 files])} (8) {xecho -b $cparse("%R$1 [DSL, $2 files])} (9) {xecho -b $cparse("%R$1 [T1, $2 files])} (10) {xecho -b $cparse("%R$1 [T3, $2 files])} } } ^On ^0628 "*" { xecho -b $cparse("%y[Announcement:$0]: %r$1-%n") } ^On ^0627 "*" { xecho -b $cparse("%B[52$strftime(%X)-1%B]%Y~4Admins%Y~%r<%B$0%r>6: %G$1-%n") } ^On ^0404 "% [ops/%]: *" { xecho -b $cparse("%C* $tr(/://$1)%C $0%y: $2-%n") } on ^824 "*" { if ([$1] == [$N]) { @chrl=[$2-] @chra=[$tr(/"//$chrl)] echo 57[$0] 57$1 $chra-1 } { @chrl=[$2-] @chra=[$tr(/"//$chrl)] echo 57[$0] 57$1 $chra-1 } } /* * Questo Risolve un po' di problemi x i ban con TekNap * * Autore Brian Weiss Editato e Adattato da DaDo per Italiannapster - 2000 */ alias admin { switch ($0) { (banlist) { @ delarray(banlist) raw 615 } (*) {//admin $*} } } alias ban (ban, reason) { if (ban) { fe ($sar(g/,/ /$ban)) xx { raw 612 $xx \"$reason\" } }{ xecho -b 7Uso: /ban [motivo] } } alias bankill (nick, reason) { if (nick) { fe ($sar(g/,/ /$nick)) newnick { raw 612 $newnick \"$reason\" raw 610 $newnick \"$reason\" } }{ xecho -b 7Uso: /bankill [motivo] } } alias banlist (void) { @ delarray(banlist) raw 615 } alias bans banlist alias bk (nick, reason) { if (nick) { raw 422 $C $nick \"$reason\" raw 829 $C $nick \"$reason\" }{ xecho -b 7Uso: /bk [motivo] xecho -b 7- Banna e kikka dal canale attuale. } } alias cban (chan, ban, reason) { if (chan && ban) { raw 422 $chan $ban \"$reason\" }{ xecho -b 7Uso: /cban [motivo] } } alias cbanclear (chan, void) { if (chan) { raw 424 $chan }{ xecho -b 7Uso: /cbanclear } } alias cbanlist (chan default "$C", void) { @ delarray(cbanlist) raw 420 $chan } alias ctban (chan default "$C", void) { cbanlist $chan @ channel = chan input "Quali ban(s) vuoi rimuovere? (1, 2-5, ...) " if ([$0]) { fe ($*) bannum { ^local tban1,tban2 @ tban1 = before(- $bannum) @ tban2 = after(- $bannum) if (tban1 < tban2 && tban1 < numitems(cbanlist) && tban2 <= numitems(cbanlist)) { for (@ count = tban1, count <= tban2, @ count++) { raw 423 $channel $word(0 $getitem(cbanlist ${[$count] - [1]})) } }{ if ([$0] <= numitems(cbanlist)) { raw 423 $channel $word(0 $getitem(cbanlist ${[$0] - [1]})) } } } } @ channel = [] } alias cunban (chan, ban) { if (chan && ban) { fe ($ban) uban { raw 423 $chan $uban } }{ xecho -b 7Uso: /cunban [ban2] ... } } alias tban (void) { banlist input "Quali ban(s) vuoi rimuovere? (1, 2-5, ...) " if ([$0]) { fe ($*) bannum { ^local tban1,tban2 @ tban1 = before(- $bannum) @ tban2 = after(- $bannum) if (tban1 < tban2 && tban1 < numitems(banlist) && tban2 <= numitems(banlist)) { for (@ count = tban1, count <= tban2, @ count++) { raw 614 $word(0 $getitem(banlist ${[$count] - [1]})) } }{ if ([$0] <= numitems(banlist)) { raw 614 $word(0 $getitem(banlist ${[$0] - [1]})) } } } } } alias tempban (time, ban, reason) { if (time && ban) { raw 612 $ban \"$reason\" timer $time raw 614 $ban }{ xecho -b 7Uso: /tempban [motivi] xecho -b 7- Banna per } } alias unban (bans) { if (bans) { fe ($bans) ban { raw 614 $ban } }{ xecho -b 7Uso: /unban [ban2] [ban3].. } } on ^420 "*" { if (numitems(cbanlist)) { ^local count xecho -- 8# BanDi Data Ban for (@ count = [0], numitems(cbanlist) > count, @ count++) { ^local ban,bannum,bantime,reason,setby @ ban = word(0 $getitem(cbanlist $count)) @ bannum = count + 1 @ bantime = word(3 $getitem(cbanlist $count)) @ reason = word(2 $getitem(cbanlist $count)) @ setby = word(1 $getitem(cbanlist $count)) echo $cparse([%W$[3]bannum%n]) $[10]setby $[8]strftime($bantime %x) $ban \"$reason\" } }{ xecho -b 7Non ci sono ban(s) in questo canale. } } on ^421 "*" { @ setitem(cbanlist $numitems(cbanlist) $*) } on ^615 "*" { if (numitems(banlist)) { ^local count xecho -- 8# BanDi Data Ban for (@ count = [0], numitems(banlist) > count, @ count++) { ^local ban,bannum,bantime,reason,setby @ ban = word(0 $getitem(banlist $count)) @ bannum = count + 1 @ bantime = word(3 $getitem(banlist $count)) @ reason = word(2 $getitem(banlist $count)) @ setby = word(1 $getitem(banlist $count)) echo $cparse([%W$[3]bannum%n]) $[10]setby $[8]strftime($bantime %x) $ban \"$reason\" } }{ xecho -b 7Non ci sono ban(s) in questo server. } } on ^616 "*" { @ setitem(banlist $numitems(banlist) $*) } on ^616 @ delarray(hitlist) @ delarray(penalty) assign AWAY_LOG 1 assign AWAY_LOGFILE C:\awaylog.txt assign DEFAULT_AWAY_REASON not here assign DEFAULT_BACK_REASON here I am... assign PUBLIC_AWAY 0 /* This will cause the script to send the public away msg only to certain channels. PUBLIC_AWAY must also be 1 of course. Uncomment this line or use /assign to set this variable and use this feature. */ #assign PUBLIC_AWAY_CHANNELS #Admins /* Notify people that msg you that you are away. */ assign SEND_AWAY_MSG 1 alias away (reason) { if (!A) { if (AWAY_LOG) { ^local fd @ fd = open($AWAY_LOGFILE w) @ write($fd [MsgLog Started $strftime(%B %d %Y %X)]) @ close($fd) } if (PUBLIC_AWAY) { if (PUBLIC_AWAY_CHANNELS) { fe ($PUBLIC_AWAY_CHANNELS) chan { if (match($chan $onchannels())) { raw 824 $chan \"is away: ${reason ? reason : DEFAULT_AWAY_REASON} [Log/${AWAY_LOG ? [ON] : [OFF]}]\" } } }{ fe ($onchannels()) chan { raw 824 $chan \"is away: ${reason ? reason : DEFAULT_AWAY_REASON} [Log/${AWAY_LOG ? [ON] : [OFF]}]\" } } } ^assign A $time() \"${reason ? reason : DEFAULT_AWAY_REASON}\" xecho -b 52hai attivato l'Away 55[LOG/ON] }{ xecho -b 52...sei gia' in Away! } } alias back (reason) { if (A) { if (AWAY_LOG) { ^local fd @ fd = open($AWAY_LOGFILE w) @ write($fd [MsgLog Stopped $strftime(%B %d %Y %X)]) @ close($fd) } if (PUBLIC_AWAY) { if (PUBLIC_AWAY_CHANNELS) { fe ($PUBLIC_AWAY_CHANNELS) chan { if (match($chan $onchannels())) { raw 824 $chan \"is back: ${reason ? reason : DEFAULT_BACK_REASON} [Gone since: $strftime($word(0 $A) %B %d %Y %X)]\" } } }{ fe ($onchannels()) chan { raw 824 $chan \"is back: ${reason ? reason : DEFAULT_BACK_REASON} [Gone since: $strftime($word(0 $A) %B %d %Y %X)]\" } } } ^assign -A @ delarray(sent_away) xecho -b 52Non sei piu' in Away. xecho -b 52Apri 53C:\awaylog.txt 52per leggere il log. xecho -b 52Digita 55/remlog 52per cancellare il log. }{ xecho -b 52Non sei in Away. } } /* This was taken from archon's 'more' script distributed with EPIC */ alias remlog (void) { if (fexist($AWAY_LOGFILE)) { @ unlink($AWAY_LOGFILE) xecho -b 52Logfile cancellato [$AWAY_LOGFILE] }{ xecho -b 52Il Logfile [$AWAY_LOGFILE] non esiste. } if (A && AWAY_LOG) { ^local fd @ fd = open($AWAY_LOGFILE w) @ write($fd [MsgLog Started $strftime(%B %d %Y %X)]) @ close($fd) } } on #^msg 420 "*" if (A) { if (AWAY_LOG) { ^local fd @ fd = open($AWAY_LOGFILE w) @ write($fd [$strftime($time() %X)] [$0\(*@*\)] $1-) @ close($fd) } if (SEND_AWAY_MSG && [$0] != [ChanServ] && [$0] != [OperServ]) { msg $0 Sono momentaneamente assente - I'm not here now. \($word(1 $A)\) [Via da: $strftime($word(0 $A) %B %d %Y %X)] [Log/${AWAY_LOG ? [ON] : [OFF]}] } } on #^timer 420 "12:00" if (A && AWAY_LOG) { ^local fd @ fd = open($AWAY_LOGFILE w) @ write($fd [TimeStamp $strftime(%B %d %Y %X)]) @ close($fd) } #Some stuff 4 links by DaphieL :P alias link (server) { /ad connect $server } alias slink (server) { /ad disconnect $server } ## autojoin on -servermsg '* $N out of channel *' { local chan @ chan = before(-1 : $6) if (AUTO_REJOIN) { join $chan } } on -servermsg "% cleared channel *" { local chan @ chan = before(-1 : $3) if (AUTO_REJOIN && finditem(part $chan) > -1) { join $chan } } alias cmd { xecho -b 52Alises - Comandi 12[8War-s 12by [c1p8]]: xecho -b xecho -b 11/ser (per connettersi /ser 2) visualizza la lista servers xecho -b 11/k oppure /kill killa un utente xecho -b 11/ol mostra gli operatori attivi xecho -b 11/cmd questa finestra xecho -b 11/away away mode on xecho -b 11/back away mode off xecho -b 11/ban banna dal server xecho -b 11/bankill banna e killa dal server xecho -b 11/bk banna e kikka dal canale xecho -b 11/cban banna dal canale xecho -b 11/cbanclear pulisce la #chan banlist xecho -b 11/bans o /banlist banlist del server xecho -b 11/cbanlist visualizza i #chan ban xecho -b 11/ctban cancella i #chan ban xecho -b 11/cunban unbanna dal canale xecho -b 11/tban elimina + bans insieme xecho -b 11/tempban banna per x secondi xecho -b 11/unban unbanna dal server xecho -b 11/sc visualizza gli user nella room xecho -b 11/link scorciatoia x i links xecho -b 11/slink scorciatoia x gli slinks xecho -b 11/cs scorciatoia /msg chanserv xecho -b 11/os scorciatoia /msg operserv xecho -b 11/ns scorciatoia /msg nickserv xecho -b 11/die super ebola kill xecho -b 11/u ripristino xecho -b 11/sr colora ogni parola xecho -b 11/sw colora ogni riga xecho -b 11/c scorciatoia setuserlevel xecho -b 11/look visualizza i mod+ nel server xecho -b 11/wp Attiva il wall-paste xecho -b 11/wq Attiva il wall-query xecho -b 11/killoff Disattiva i kills xecho -b 11/killon Riattiva i KIlls } # /whois on ^servermsg "% has requested your info" {xecho $cparse("7<<===|%B $0 has requested your info 7|===>>") #msg $0 You have requested my details...can I help you $0? } #ServercolorMsg - by [c1p8] & c4 on ^servermsg "*muzzled*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*killed*" xecho -win 0 $cparse("** %R-->14 $*%N %R<--") on ^servermsg "*Pong*" xecho -win 0 $cparse("** %B$*%N") on ^servermsg "*link*" xecho -win 0 $cparse("** 6$*%N") on ^servermsg "*opped*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*kicked*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*Clones*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*banned*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*set*" xecho -win 0 $cparse("** %C$*%N") on ^servermsg "*removed*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*changed*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*Pinging*" xecho -win 0 $cparse("** %M$*%N") on ^servermsg "*nuked*" xecho -win 0 $cparse("** %R$*%N") on ^servermsg "*reloaded*" xecho -win 0 $cparse("** %Y$*%N") alias sayc { eval say $cparse("$*") } alias get_rand_color { ^local CNUM $rand(8) if ([$CNUM] == [0]) { return %R } if ([$CNUM] == [1]) { return %G } if ([$CNUM] == [2]) { return %Y } if ([$CNUM] == [3]) { return %B } if ([$CNUM] == [4]) { return %M } if ([$CNUM] == [5]) { return %P } if ([$CNUM] == [6]) { return %C } if ([$CNUM] == [7]) { return %W } } alias cs { /msg chanserv } alias os { /msg operserv } alias ol { /oplist } alias ns { /msg nickserv } alias sr { ^local mychar ^local mystr fec ($*) mychar { ^assign mystr $mystr$get_rand_color()$mychar } sayc $mystr } alias sw { ^local myword ^local mystr fe ($*) myword { ^assign mystr $mystr $get_rand_color()$myword } sayc $mystr } alias sl { sayc $get_rand_color()$* } alias c (level, nick) { switch ($level) { (0) {setuserlevel $nick leech} (1) {setuserlevel $nick user} (2) {setuserlevel $nick moderator} (3) {setuserlevel $nick admin} (4) {setuserlevel $nick elite} (*) { xecho -b 7Uso: /c - leech(0)/user(1)/moderator(2)/admin(3)/elite(4) } } } alias killoff { raw 205 operserv usermode -kill xecho -b 6Kills Disattivati [Off] } alias killon { raw 205 operserv usermode kill xecho -b 6Kills Riattivati [On] } ^on -pong "*" { @check=[$0] if (finditem(checkusr $check) < [0]) { @setitem(checkusr $numitems(checkusr) $check) @setitem(rep $numitems(rep) $check) } @checkusritm = finditem(checkusr $check) @repi = getitem(rep $checkusritm) + 1 @setitem(rep $checkusritm $repi) switch ($repi) { (1) { timer 20 { @delarray(rep) @delarray(checkusr) } } (2) { } (3) { raw 610 $0 Antiping_Bot! } (*) { raw 610 $0 Antiping_Bot! } } } # Auto-rejoin on kick ^assign TRUE 1 ^assign FALSE 0 on #-servermsg 666 'You were kicked from channel *' { ^assign chan $5 @ kicker = tr(/\://$7) if (AUTO_REJOIN) { join $chan } if ([$KICK_BACK]==[1]) { raw 829 $chan $kicker "do you like it?" } } alias kickback { switch ($0) { (on){@ KICK_BACK = true} (off){@ KICK_BACK = false} } } @ KICK_BACK = true alias look { {gu -e} {gu -a} {gu -m} } ^on ^public "*" { if ([$0] == [$N]) { echo 54[-152$strftime(%X)-154]-1 55<-1$055>-1 $2- } { echo 55[-152$strftime(%X)-155]-1 54<-1$054>-1 $2- } } # this counts the number of users in the room. (ice) fe ($tmp_users) tmp { ^assign count ${count + 1} } #Programmed Announce assign annuncio Attenzione il server dreamteam.servebeer.com, deve chiudere per riavvio, per favore cambiate server grazie! assign global Attention the server dreamteam.servebeer.com now gone down for reboot, plz switch server thx! alias annuncio { /announce $annuncio } alias global { /announce $global } # WALLOP PASTE/QUERY! By Spike. 03/12/02 # Toggle it with /wp for paste and /wq for query. :) # Now you can paste entire things from a webpage in wallop. #************************************************************* ASSIGN WALL_PASTE 0 ASSIGN WALL_QUERY 0 alias wp (arg, void) { switch ($tolower($arg)) { (0) (off) { ^assign WALL_PASTE 0 } (1) (on) { ^assign WALL_PASTE 1 } (*) { @WALL_PASTE = WALL_PASTE ? [0] : [1] } } xecho -b Wallop paste is now ${WALL_PASTE ? [[ON]] : [[OFF]]} } alias wq (arg, void) { switch ($tolower($arg)) { (0) (off) { ^assign WALL_QUERY 0 } (1) (on) { ^assign WALL_QUERY 1 } (*) { @WALL_QUERY = WALL_QUERY ? [0] : [1] } } xecho -b Wallop query is now ${WALL_QUERY ? [[ON]] : [[OFF]]} } on ^paste "*" { if (WALL_PASTE) { wal $1- }{ say $1- } } on ^input "*" { if (WALL_QUERY && !match($CMDCHARS* $0)) { sendline $CMDCHARS\wal $* }{ sendline $* } } server -add iow.myip.org:2345 server -add iow.myip.org:7777 server -add 192.168.1.1:39461 server -add moonraker.sytes.net:9999 server -add paciuga.myip.org:7777 server -add colisquid.no-ip.org:8888 #AutoLoader assign SHARE_DIR C:\mymusic\Rap-HipHop alias autoshare { input " 8=-> Ciao $N oggi vuoi sharare i tuoi files? [Y/N] " { switch ($0) { (Y) { xecho -b ok sharo $SHARE_DIR /share $SHARE_DIR timer 25 /share -share } (N) { xecho -b non sharo...nn rompere se ti killano :p } (*) { xecho -b Devi rispondere si o no... /autoshare } } } } /autoshare /window double on /j italian /j Alternative /j Admins