chain

This is a forum request made by maria who wishes to have the latest comment checked via reddit.com. The script will then send the info to a channel with its title, short link and by whom. I thought I'd make this a snippet submission to benefit those who find it useful or usable. Usage: right-click on your channel or nick list to toggle "Reddit On" and "Reddit Off" to get started. alias -l reddit { var %i = 1, %socks = reddit reddit2 while ($gettok(%socks,%i,32)) { var %v1 = $v1 if ($sock(%v1)) sockclose $v1 sockopen %v1 www.reddit.com 80 sockmark %v1 msg $1 inc %i } } alias -l trans { return $replace($1,&lt;,<,&gt;,>,&quot;,",&nbsp;,$chr(160),&amp;,&,&amp;#39;,') } on *:sockclose:reddit*:{ if ($sock($sockname).name == reddit) { if ($hget(data2)) && ($hget(data3)) && ($hget(data4)) { $sock($sockname).mark $+($chr(2),Latest Comment:,$chr(2)) $& [ [ $remove($+($hget(data2,1).item,$chr(32),$hget(data2,1).data),r/) ] ] $sock($sockname).mark $+($chr(2),Latest Post:,$chr(2)) $& $+($hget(data3,1).item,$chr(32),$hget(data3,1).data) - $& $hget(data4,1).item by $hget(data5,1).item hfree -w data* } } else { if ($sock(reddit2)) sockclose $v1 sockopen reddit2 www.reddit.com 80 sockmark reddit2 msg $1 } } menu channel,nicklist { Reddit .ON { if (!%reddits) { set -e %reddits $$?"Which Reddit to Watch?" set -e %reddittime $$?"How often do you want the latest post checked $& and sent to the channel in seconds?" $+(.timer,#,$network) 0 %reddittime reddit # echo 2 # * Reddit Set for: $+($chr(2),%reddits) echo 2 # * Time Interval in Seconds: $+($chr(2),%reddittime) if (%true) unset $v1 } else echo 4 # * Reddit is Already Switched On! } .OFF { if (%reddits) { $+(.timer,#,$network) off echo 2 * Reddit Has Been Turned Off! unset %reddit* %true } else echo 4 # * Reddit is Already Switched Off! } } on *:sockopen:reddit*:{ if ($sockerr) { echo 4 $gettok($sock(reddit).mark,2,32) Error Connecting to $sock(reddit).addr sockclose reddit } if ($sock($sockname).name == reddit) { var %reddit = sockwrite -nt reddit %reddit GET $+(/r/,%reddits,/comments?limit=1) HTTP/1.0 %reddit Connection: close %reddit Host: $+($sock(reddit).addr,$str($crlf,2)) } else { var %reddit2 = sockwrite -nt reddit2 %reddit2 GET $+(/r/,%reddits,/new.json?sort=new) HTTP/1.0 %reddit2 Connection: close %reddit2 Host: $+($sock(reddit).addr,$str($crlf,2)) } } on *:sockread:reddit*:{ if ($sockerr) { echo 4 $gettok($sock(reddit).mark,2,32) Error Reading $sock(reddit).addr sockclose reddit } if ($sock($sockname).name == reddit) { sockread &reddit var %g = $regsubex($bvar(&reddit,1-).text,/\/r\/|&#\d+;/g,) if ($regex(%g,/<\/div><\/form><ul class="flat-list buttons">(.*)/)) { hadd -m data $+($sock(reddit).addr,/tb/,$gettok($iif($regex($regml(1),$& /\/comments\/(\S+)\//),$trans($regml(1))),1,47)) } if ($regex(%g,/class="title" rel="nofollow" >(.*)class="author/)) { hadd -m data2 $gettok($trans($regml(1)),1,60) - $& $!+($chr(3),12,$hget(data,1).item,$chr(3)) by $+($chr(3),05,$& $iif($regex($regml(1),/\/user\/(\S+)"/),$regml(1))) } } else { sockread &reddit2 var %g2 = $bvar(&reddit2,1-).text if ($regex(%g2,/"title"\: "(.*)"/)) { hadd -m data3 $gettok($trans($regml(1)),1,34) } if ($regex(%g2,/"id"\: "(.*)"/)) { hadd -m data4 $+($chr(3),12,$gettok($+(http://redd.it/,$& $trans($regml(1))),1,34),$chr(3)) sockclose $sockname } if ($regex(%g2,/"author"\: "(.*)"/)) { hadd -m data5 $+($chr(3),05,$gettok($regml(1),1,34)) } } } on me:*:join:#:{ if (%true) notice $me Reddit has been toggled off. Right-click on $& the nicklist or channel to toggle it on. | unset %true } on *:disconnect: if (%reddits) $+(.timer,#,$network) off | set -e %true 1 on me:*:part:#: if (%reddits) $+(.timer,#,$network) off | set -e %true 1 on *:kick:#:{ if ($knick == $me) && (%reddits) $+(.timer,#,$network) off set -e %true 1 } on *:quit:{ if ($nick == $me) && (%reddits) { var %c = 1 while ($comchan($me,%c)) { $+(.timer,$v1,$network) off set -e %true 1 inc %c } } }

This work below is yet another forum request that I've decided to submit as a part of my snippet collection. For those who find this snippet useful, It's for the bot client, and the trigger is either !facts, @facts, .facts or !jokes, @jokes, .jokes. on $*:text:/^[!@.](fact|joke)s$/iS:#:{ if (!%f) { inc -u3 %f var %s = $+(rjf,$str($ticks,2),$site) if ($sock(%s)) sockclose $v1 sockopen %s www.randomfunfacts.com 80 sockmark %s .msg # $regml(1) } } on *:sockclose:rjf*:{ tokenize 32 $sock($sockname).mark var %s = $+(rjf,$str($ticks,2),$site) if ($sock(%s)) sockclose $v1 sockopen %s www.jokesclean.com 80 sockmark %s $1-2 } on *:sockopen:rjf*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $1-2 Error: Connection Issue... sockclose $sockname } else { if ($3 == fact) { var %rjf = sockwrite -nt $sockname %rjf GET / HTTP/1.1 %rjf Connection: close %rjf Host: $+($sock($sockname).addr,$str($crlf,2)) } else { var %rjf = sockwrite -nt $sockname %rjf GET /OneLiner/Random/ HTTP/1.0 %rjf Host: $+($sock($sockname).addr,$str($crlf,2)) } } } on *:sockread:rjf*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $1-2 Error: Issues in Reading... sockclose $sockname halt } goto $iif($3 == fact,fact,joke) :fact sockread &rjf var %info = $regsubex($bvar(&rjf,1-).text,/<[^>]*>|\t$& $+ RLOpenInNewWindow|"1";|var RLRepeatKeywords/g,$chr(32)) if ($gettok($replace(%info,&nbsp;,$chr(94)),2,94)) { $1-2 $remove($gettok($v1,11-,32),24c6) sockclose $sockname | halt :joke var %jokes sockread %jokes if ($regex(%jokes,/(.*)<\/font><\/p>/)) { $sock($sockname).mark $replace($gettok($regml(1),3-,62),&nbsp;,$chr(32)) sockclose $sockname } halt } }

This script will send a boring, random message to the active channel when the irc server pings you. (You must have your client looking at the active channel window) It's useful when your nickname idles in a quiet channel, where activity is scarce and that you're away from keyboard every so often. Below are some random ones emitted when you get pinged by the server: I'm in Illinois hello hello! Is there evrybody some there see ya Hola desde España Holy Sh*t!! I feel like such a spy...if your really live...grab your head.. Are you workin' hard or hardly workin'? CATS MEOW MEOW MEOW**Usage:** right-click on your nick list or channel to toggle the script on and off. on me:*:part:#:{ if (%random) { $+(.timer,$network) off set -e %randommsg 1 } } on *:quit:{ if ($nick == $me) && (%random) { $+(.timer,$network) off set -e %randommsg 1 } } on *:disconnect:{ if (%random) $+(.timer,$network) off set -e %randommsg 1 } on me:*:join:#:{ if (%randommsg) { notice $me Random Message has been toggled off. $& Right-click on the nicklist or channel to toggle it on. unset %random* } } on *:kick:#:{ if ($knick == $me) && (%random) $+(.timer,$network) off set -e %randommsg 1 } on *:sockread:rm:{ var %rm sockread %rm if ($regex(%rm,/<h1>(.*)<\/h1>/)) { [ [ $sock(rm).mark ] ] sockclose rm } } alias -l randommsg { if ($sock(rm)) sockclose $v1 sockopen rm www.randommessages.com 80 sockmark rm amsg $!regml(1) } on *:sockopen:rm:{ tokenize 94 $left($str(sockwrite -nt rm^,2),-1) var %- 1, %` GET / HTTP/1.1^Host: $!+($sock(rm).addr,$str($crlf,2)) while $gettok(%`,%-,94) { [ [ $+($,%-,$chr(32),$v1) ] ] inc %- } } menu channel,nicklist { Random Message .ON { if (!%random) { set -e %random $$?"Input the trigger time in seconds:" $+(.timer,$network) 0 %random randommsg echo 2 # * Time Interval in Seconds: $+($chr(2),%random) if (%randommsg) unset $v1 } else echo 4 # * Random Message is Already Switched On! } .OFF { if (%random) { $+(.timer,$network) off echo 2 * Random Message Has Been Turned Off! unset %random* } else echo 4 # * Random Message is Already Switched Off! } }

on $*:text:/^!define o(n|ff)$/iS:#:{ if ($nick isop #) { if ($regml(1) == n) { if (!$istok(%chan,#,44)) { set %chan $addtok(%chan,#,44) .notice $nick # has been added! } else .notice $nick the channel $qt(#) has already been added! } else { if ($istok(%chan,#,44)) { set %chan $remtok(%chan,#,1,44) .notice $nick # has been removed. } else .notice $nick the channel $qt(#) has already been removed. } } else .notice $nick Access Denied. This command is reserved for OP only. } on *:sockopen:ud*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $5-6 Socket Error! halt } $2-4 GET $+(/v0/define?term=,$1) HTTP/1.0 $2-4 Host: $+($sock($sockname).addr,$str($crlf,2)) $2-4 Connection: close } on $*:text:/^[!@.]define( |$)/iS:%chan,?:{ if (!$($+(%,-,$site,.,$cid,.,$nick),2)) { inc -u3 $+(%,-,$site,.,$cid,.,$nick) var %ud = $+(ud,$str($ticks,3)) $+(sock,$iif($sock(%ud),close,open) %ud api.urbandictionary.com 80) sockmark %ud $replace($strip($2-),$chr(32),+) $& sockwrite -nt %ud .msg $iif(#,#,$nick) } } on *:sockread:ud*:{ sockread &ud tokenize 32 $sock($sockname).mark if ($sockerr) { $5-6 Socket Error! } elseif (no_results isin $bvar(&ud,1-).text) { $5-6 $qt($1) is undefined! } elseif ($regex($bvar(&ud,1-).text,/"definition":"(.*)/)) { tokenize 34 $regml(1) $gettok($sock($sockname).mark,5-6,32) $regsubex($1,/\Q\r\n\E/g,$chr(32)) } }

!define dani A person with lots of layers of goodness, like an onion without the crying and the smell. @define Hawkee Hawkee is undefined! !define smart alec A nicer way to say smart ass. You can use this in an office or when kids are around instead of saying smart ass or if you are a stick in the mud and don't cuss. The command is self-explanatory and can be prefixed with !, @, or . to trigger. PM and channel supported. on *:sockopen:ud*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $5-6 Socket Error! halt } $2-4 GET $+(/v0/define?term=,$1) HTTP/1.0 $2-4 Host: $+($sock($sockname).addr,$str($crlf,2)) $2-4 Connection: close } on $*:text:/^[!@.]define( |$)/iS:*:{ if (!$($+(%,-,$site,.,$cid,.,$nick),2)) { inc -u3 $+(%,-,$site,.,$cid,.,$nick) var %ud = $+(ud,$str($ticks,3)) $+(sock,$iif($sock(%ud),close,open) %ud api.urbandictionary.com 80) sockmark %ud $replace($strip($2-),$chr(32),+) $& sockwrite -nt %ud .msg $iif(#,#,$nick) } } on *:sockread:ud*:{ sockread &ud tokenize 32 $sock($sockname).mark if ($sockerr) { $5-6 Socket Error! } elseif (no_results isin $bvar(&ud,1-).text) { $5-6 $qt($1) is undefined! } elseif ($regex($bvar(&ud,1-).text,/"definition":"(.*)/)) { tokenize 34 $regml(1) $gettok($sock($sockname).mark,5-6,32) $remove($regsubex($1,/\x5C(r|n{1,2})/gi,$chr(32)),\) } }

Was high one day, decided to make a grats script. Syntax: [!@.]grats|gratz|congrats|congratz [level|skill] [level|skill] eg. !grats 99 fishing !congratz dungeoneering 115 Enjoy:) script91.zip

Acronym snippet -Tested works- The colors are ♥♥red orange and yellow♥♥ and black background color on *:Input:*:{ If ($1 == ty) { msg $active 4,1♥♥thank 7you♥♥ $2- | halt } If ($1 == wb) { msg $active 4,1♥♥Welcome 7back♥♥ $- | halt } If ($1 == brb) { msg $active 4,1♥♥Be 7right 8back♥♥ $2- | halt } If ($1 == bbs) { msg $active 4,1♥♥be 7back 8soon♥♥ $2- | halt } If ($1 == gtg) { msg $active 4,1♥♥got 7to 8go♥♥ $2- | halt } If ($1 == pos) { msg $active 4,1♥♥parents 7over 8shoulder♥♥ $2- | halt } If ($1 == ib) { msg $active 4,1♥♥im 7bored♥♥ $2- | halt } If ($1 == hay) { msg $active 4,1♥♥how 7are 8you♥♥ $2- | halt } If ($1 == omg) { msg $active 4,1♥♥oh 7my 8god♥♥ $2- | halt } If ($1 == sfl) { msg $active 4,1♥♥scarred 7for 8life♥♥ $2- | halt } If ($1 == smd) { msg $active 4,1♥♥suck 7my 8dick♥♥ $2- | halt } If ($1 == omfg) { msg $active 4,1♥♥oh 7my 8fucking 4god♥♥ $2- | halt } If ($1 == imb) { msg $Active 4,1♥♥im 7bored♥♥ $2- | halt } If ($1 == lol) { msg $active 4,1♥♥laughing 7out 8loud♥♥ $2- | halt } If ($1 == fml) { msg $active 4,1♥♥Fuck 7my 8life♥♥ $2- | halt } If ($1 == tmi) { msg $active 4,1♥♥to 7much 8info♥♥ $2- | halt } If ($1 == pin) { msg $active 4,1♥♥parents 7in 8here♥♥ $2- | halt } If ($1 == atm) { msg $active 4,1♥♥at 7the 8minute♥♥ $2- | halt } If ($1 == stfu) { msg $active 4,1♥♥Shut 7the 8 fuck 4up♥♥ $2- | halt } If ($1 == smh) { msg $active 4,1♥♥Shaking 7my 8head♥♥ $2- | halt } If ($1 == lmao) { msg $active 4,1 ♥♥laughing 7 my 8 ass 7 off♥♥ $2- | halt } If ($1 == wtf) { msg $active 4,1 ♥♥what 7 the 8 fuck♥♥ $2- | halt } if ($1 == gtfo) { msg $active 4,1♥♥Get 7 the 8 fuck 4out♥♥ $2- | halt } If ($1 == ily) { msg $active 4,1♥♥I 7love 8 You♥♥ $2- | halt } if ($1 == idk) { msg $active 4,1♥♥I 7dont 8know♥♥ $2- | halt } }

Just a VERY basic aligned theme.... Looks best in a light gray BG.. *****NOTE**** YOU HAVTA have fixed width font!!! Windows = New Courier Linux = FreeMono (which i use!) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;Code By: KronicDreamer ;;$regex credit to napalm ;; ;;rip/thrash/trash or break i dont care just dont take credit kthnx! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; on ^*:TEXT:*:#: { echo -i36 # $thstamp $thspace $thop $+ $nick $+ 7: $1- | halt } on ^*:TEXT:*:?: { echo -i36 $nick $thstamp $thspace $thop $+ $nick $+ 7: $1- | halt } on ^*:ACTION:*:#: { echo -i36 # $thstamp $thspace $thop $+ $nick $+ 7: * $1- | halt } on ^*:JOIN:*: { echo # $thstamp $thjpq 7: Join $nick ( $+ $address $+ ) | halt } on ^*:PART:*: { echo # $thstamp $thjpq 7: Part $thop $+ $nick ( $+ $address $+ ) | halt } on &*:INPUT:#: { if (/* !iswm $1) { echo -i36 # $thstamp $thspme $thop $+ $me $+ 7: $1- .msg $active $1- halt } } on &*:INPUT:?: { if (/* !iswm $1) { echo -i36 $nick $thstamp $thop $+ $thspme $me $+ 7: $1- .msg $target $1- halt } } ;;;; Edited in 9/26/08 raw 301:*: { echo -ai36 $thstamp $th2(4) Away7: Yes: ( $+ $3- $+ ) halt } raw 307:*: { echo -a $thstamp $th2(10) Registered7: Yes. halt } raw 310:*: { echo -a $thstamp $th2(10) IRC Helper7: Yes. halt } raw 311:*: { echo -a $thstamp $th2(10) ----------7:---------- echo -a $thstamp $th2(6) Whois 7- $2 echo -a $thstamp $th2(8) NickName7: $2 echo -a $thstamp $th2(8) RealName7: $6- echo -a $thstamp $th2(5) Ident7: $3 echo -a $thstamp $th2(7) Address7: *!*@ $+ $4 halt } raw 378:*: { echo -ai36 $thstamp $th2(8) Hostmask7: $6 echo -ai36 $thstamp $th2(2) IP7: $7 halt } raw 379:*: { echo -ai36 $thstamp $th2(5) Modes7: $6- halt } raw 671:*: { echo -a $thstamp $th2(3) SSL7: Yes halt } raw 312:*: { echo -a $thstamp $th2(6) Server7: $3 echo -ai36 $thstamp $th2(11) Description7: $4- halt } raw 313:*: { echo -a $thstamp $th2(8) Net Rank7: $5-9 halt } raw 319:*: { echo -a $thstamp $th2(8) Channels7: $Replace($3-,~,~,&,&,@,@,%,%,+,+) halt } raw 317:*: { echo -a $thstamp $th2(9) Signed on7: $asctime($4,dddd mm/dd/yyyy HH:nn:sstt) echo -a $thstamp $th2(4) Idle7: $duration($3) echo -a $thstamp $th2(6) Online7: $duration($calc($ctime - $4)) halt } raw 335:*: { echo -a $thstamp $th2(3) Bot7: Yes. halt } raw 318:*: { echo -a $thstamp $th2(6) Whois 7- End echo -a $thstamp $th2(10) ----------7:---------- halt } alias th2 return $str($chr(160),$calc(16 - $1)) ;;;;;;;; End Edit 9/26/08 alias thop { if (!$regex($nick($chan,$nick).pnick,[~\&@%\+])) return $chr(160) if ($regex($nick($chan,$nick).pnick,[~\&@%\+])) return $left($nick($chan,$nick).pnick,1) } alias thspme return $str($chr(160),$calc(15 - $len($me))) alias thspace return $str($chr(160),$calc(15 - $len($nick))) alias thstamp return $asctime(hh:nn) alias thjpq return $str($chr(160),16))

;;; E-peen by KronicDreamer .... bordem! alias sepeen { var %epeen = $ceil($calc($uptime(system,3) / 100000)) echo My system Epeen is %epeen inches long! } alias mepeen { var %mepeen = $ceil($calc($uptime(mirc,3) / 100000)) echo My mIRC Epeen is %mepeen inches long! } ;; /sepeen for system epeen! ;; /mepeen for mirc epeen!

Product of boredom. /fin [-c] -c = close ;the finger alias fin { var %win @Fuck if ($1 == -c) { fin.close | return } elseif (!$window(%win)) window -dBpfk0 %win 1 1 188 210 titlebar %win You the.finger } alias fin.close { .timerfin off unset %fin* close -@ @Fuck } alias the.finger { set %fin.sc + set %fin.c 1 var %win @Fuck , %x 1 , %w 5 clear %win drawrect -ndf %win 1 4 68 10 36 100 drawrect -ndf %win 1 4 2 90 168 90 drawrect -ndf %win 0 4 5 127 162 50 while (%x <= 5) { drawrect -ndf %win 0 4 %w 93 30 45 inc %w 33 inc %x 1 } drawrect -ndf %win 0 4 71 13 30 150 drawrect -nd %win 1 2 74 16 23 19 4 5 drawtext -np %win 1 Arial 20 8 183 2m4IR8C hates 3YOU :) drawdot %win .timerfin -m 0 50 fin.sc %fin.sc } alias -l fin.sc { if (!$window(@Fuck)) { fin.close return } else { if (%fin.c == 18) { %fin.sc = $iif(%fin.sc == +,-,+) | %fin.c = 1 } drawscroll @Fuck $+(%fin.sc,1) 0 0 0 199 180 inc %fin.c } } on 1:CLOSE:@Fuck:fin.close ;EOF

This snippet slaps a user with anything but a large trout. Syntax: /slap NickName If a user is not provided, it slaps the user(s) selected in the nicklist. If no user is selected/provided then nothing happens. ;Slapper ;napalm - 14 JUN 2011 alias slap { var %n $iif($1,$1,$$snicks) if ($sock(slap)) sockclose slap sockopen slap www.watchout4snakes.com 80 sockmark slap $active %n } alias slap.error echo $color(kick) -at /SLAP: Sock $+ $2 Error. $sock($1).wsmsg on *:sockopen:slap:{ if ($sockerr) || ($sock($sockname).status != active) { slap.error $sockname open | return } sockwrite -n $sockname GET /CreativityTools/RandomWord/RandomPhrase.aspx HTTP/1.1 sockwrite -n $sockname Host: www.watchout4snakes.com sockwrite -n $sockname User-Agent: mIRC $version sockwrite -n $sockname $crlf } on *:sockread:slap:{ var %r | sockread %r | tokenize 32 %r if ($sockerr) || ($sock($sockname).status != active) { slap.error $sockname read | return } elseif ($regex(%r,main_lblPhrase.+>(.+)</span>)) { tokenize 32 $sock($sockname).mark $regml(1) describe $1 slaps $2 around a bit with $+(a,$iif($regex($left($3,1),[aeiou]),n)) $3- return } elseif ($1 == </HTML>) sockclose $sockname } ;EOF

its not released yet 😔

So as of lately i've been looking for all types of mIRC snippets in various languages to archive most of them due to IRC website slowly closing. I'am also trying to get Hawkee site to keep running and have been messageing Scott = Hawkee if he needs help or wants to sell. there's so much history in that site wouldnt want to see it go to waste. So if you know old sites that are closing and have snippets let me know i'll grab them and add them here.

on *:load: { .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Küfür Koruması$chr(40) $+ v5.4 $+ $chr(41)) echo -a _____________________________________________________________________________________ echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Add-On yükleniyor... echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 0,1 Web: 15www.0,1Turkirc.com echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=- 15,1 Copyright 12©15 1999-2018 echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyası oluşturarak siteadresiniz.com adresinizin ana dizinine atınız. echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ } Menu Channel { - $iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma [Açık],Kufur Koruma [Kapalı]) { $iif($group(#Kufurkoruma) == on, .disable #Kufurkoruma, .enable #Kufurkoruma) } - } #Kufurkoruma off on @*:text:*:#: bw $1- on @*:action:*:#: bw $1- on @*:notice:*:#: bw $1- #Kufurkoruma end on *:sockopen:bw*:{ if (!$sockerr) { tokenize 96 $str($chr(96) sockwrite -n $sockname,2) $1 GET /kufur.txt HTTP/1.1 $2 Host: $+($sock($sockname).addr,$str($crlf,2)) } } alias -l bw { var %b = $+(bw,$site,$r(1,9999),$ticks) if ($sock(%b)) sockclose $v1 sockopen %b sitenizinadi.com 80 set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktır! } on *:sockread:bw*:{ if (!$sockerr) { if (!$sock($sockname).mark) { var %b | sockread %b if (!%b) sockmark $sockname 1 | halt } while ($sock($sockname).rq > 0) { sockread -fn &bw if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) { %1-- | unset %1* | sockclose $sockname } } } }

menu channel { .Kanal Mod ..CTCP( +f [5c#M3]=7 ):/mode # +f [5c#M3]:7 ..Flood Giriş( +f [6j#R3]=4 ):/mode # +f [6j#R3]:4 ..KNOCK( +f [4k]=8 ):/mode # +f [4k]:8 ..Mesaj Flood Genel( +f [10m#m5]=6 ):/mode # +f [10m#m5]:6 ..Nick Değiştirme( +f [3n#N1]=10 ):/mode # +f [3n#N1]:10 ..Mesaj Flood 1 kullancı( +f [5t#b]=5):/mode #kanaladı +f [5t#b]:10 ..- ..$iif(B isincs $chan(#).mode,$style(1)) +B (Büyük Harf Yasağı): if (B isincs $chan(#).mode) { mode # -B } | else { mode # +B } ..$iif(n isincs $chan(#).mode,$style(1)) +n (Kanalda bulunmayan birinden gelecek mesajlarin bloklandigi kanal): if (n isincs $chan(#).mode) { mode # -n } | else { mode # +n } ..$iif(t isincs $chan(#).mode,$style(1)) +t (Sadece +hoaq kiplerini almis kullanicilarin /topic komutunu kullanabilecegi kanal): if (t isincs $chan(#).mode) { mode # -t } | else { mode # +t } ..$iif(s isincs $chan(#).mode,$style(1)) +s (Gizli bir kanal): if (s isincs $chan(#).mode) { mode # -s } | else { mode # +s } ..$iif(p isincs $chan(#).mode,$style(1)) +p (Ozel bir kanal): if (p isincs $chan(#).mode) { mode # -p } | else { mode # +p } ..$iif(i isincs $chan(#).mode,$style(1)) +i (Sadece davetle girilebilen kanal): if (i isincs $chan(#).mode) { mode # -i } | else { mode # +i } ..$iif(m isincs $chan(#).mode,$style(1)) +m (Sadece +vhoaq kiplerini almis kullanicilarin konusabilecegi kanal ): if (m isincs $chan(#).mode) { mode # -m } | else { mode # +m } ..$iif(l isincs $chan(#).mode,$style(1)) +l (Kanala girebilicek olan maximum kullanici sayisini belirler $chr(8) $chan(#).limit ): if (l isincs $chan(#).mode) { mode # -l } | else { mode # +l $$?=" Limit? " } ..$iif(k isincs $chan(#).mode,$style(1)) +k ( = Kanala giris icin gereken anahtar $chr(8) $chan(#).key ): if (k isincs $chan(#).mode) { mode # -k $chan(#).key } | else { mode # +k $$?=" Şifre? " } ..$iif(R isincs $chan(#).mode,$style(1)) +R (Sadece kayitli (+r) kullanicilarin girebilecegi kanal.): if (R isincs $chan(#).mode) { mode # -R } | else { mode # +R } ..$iif(Q isincs $chan(#).mode,$style(1)) +Q (Kick atilmayan kanal.): if (Q isincs $chan(#).mode) { mode # -Q } | else { mode # +Q } ..$iif(N isincs $chan(#).mode,$style(1)) +N (Nick degisikligi yapilamayan kanal): if (N isincs $chan(#).mode) { mode # -N } | else { mode # +N } ..$iif(M isincs $chan(#).mode,$style(1)) +M (Sadece kayitli (+r) veya voice'i olan (+v) kullanicilarin konusabilecegi kanal): if (M isincs $chan(#).mode) { mode # -M } | else { mode # +M } ..$iif(G isincs $chan(#).mode,$style(1)) +G (Yasak kelimelerin sansurlenecegi kanal): if (G isincs $chan(#).mode) { mode # -G } | else { mode # +G } ..$iif(C isincs $chan(#).mode,$style(1)) +C (CTCp metinlerini engeller): if (C isincs $chan(#).mode) { mode # -C } | else { mode # +C } ..$iif(L isincs $chan(#).mode,$style(1)) +L #kanal2 (Kanal linkleme. (kanal dolu ise, sonraki kullanici otomatik olarak girer.)): if (L isincs $chan(#).mode) { mode # -L } | else { mode # +L $$?="Yönlendirilecek Kanal" } ..$iif(f isincs $chan(#).mode,$style(1)) +f ([*]: = Flood korumasi.): if (f isincs $chan(#).mode) { mode # -f } | else { mode # +f $$?=" satır:saniye 3:5 " } ..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u } ..$iif(D isincs $chan(#).mode,$style(1)) +D (/me veya /ame mesajlarinin kanala gonderilmesini engeller): if (D isincs $chan(#).mode) { mode # -D } | else { mode # +D } ..$iif(c isincs $chan(#).mode,$style(1)) +c (Kanal icerisinde renk kullanimini engeller): if (c isincs $chan(#).mode) { mode # -c } | else { mode # +c } ..$iif(A isincs $chan(#).mode,$style(1)) +A (Sadece Sunucu/Ag yoneticilerinin girebilecegi kanal. (Yoneticiler icin.)): if (A isincs $chan(#).mode) { mode # -A } | else { mode # +A } ..$iif(z isincs $chan(#).mode,$style(1)) +z (Sadece Guvenli Baglanti (SSL) kullananlarin girebilecegi kanal): if (z isincs $chan(#).mode) { mode # -z } | else { mode # +z } ..$iif(K isincs $chan(#).mode,$style(1)) +K (KNOCK komutuna izin verilmeyen kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u } ..$iif(O isincs $chan(#).mode,$style(1)) +O (Sadece IRCoplarin girebilecegi kanal (Yoneticiler icin.) ): if (K isincs $chan(#).mode) { mode # -K } | else { mode # +K } ..$iif(S isincs $chan(#).mode,$style(1)) +S (Renkli yazilarin, renkli kodlardan arindirilip kanala gonderilmesini saglar): if (S isincs $chan(#).mode) { mode # -S } | else { mode # +S } ..$iif(V isincs $chan(#).mode,$style(1)) +V (INVITE 'in kapali oldugu kanal): if (V isincs $chan(#).mode) { mode # -V } | else { mode # +V } ..$iif(T isincs $chan(#).mode,$style(1)) +T (Noticenin komutunun kullanilamayacagi kanal): if (T isincs $chan(#).mode) { mode # -T } | else { mode # +T } ..$iif(u isincs $chan(#).mode,$style(1)) +u (Kanal yonetici kiplerinin gizli oldugu kanal): if (u isincs $chan(#).mode) { mode # -u } | else { mode # +u } .-

C++ #################### menu menubar { Admin Paneli:/Adminmenu } #################### ## Admin Paneli:Adminmenu alias Adminmenu { dialog -m Adminmenu Adminmenu } dialog Adminmenu { title "Admin Paneli" size -1 -1 247 223 option dbu button "« « KAPAT » »", 10, 3 208 242 13, flat ok list 1, 2 10 71 139, size text "Nickin üstünü Tıklayın ve işlem yapın", 8, 5 153 122 8, center button "Gline", 2, 2 164 64 13, flat button "Shun", 4, 69 164 63 13, flat button "Kill", 3, 135 164 58 13, flat button "Tüm Kanaldan Çıkar", 5, 2 180 64 12, flat button "Tüm Kanallara Al", 6, 69 180 63 12, flat button "Ban (+b)", 7, 194 180 51 12, flat text "Tüm Nickler", 11, 3 2 69 8, center list 12, 73 10 56 139, size text "Ident", 13, 73 2 56 8, center list 14, 129 10 65 139, size text " ip", 15, 130 2 65 8, center text "", 16, 137 153 53 7, center box "", 17, 2 148 129 14 box "", 18, 135 148 58 14 button "Değiştir", 20, 135 195 58 12, flat edit "", 19, 69 195 63 10, multi autohs text "User Nicki değistir :", 21, 4 196 55 8, center box "", 22, 3 192 61 14 text " Global Odalar", 23, 194 2 50 8, center list 24, 194 10 51 66, size text " Yönetici odaları", 25, 194 76 53 8, center list 26, 194 84 51 40, size button " Sajoin", 27, 194 151 51 12, flat button "Sapart", 28, 194 165 51 12, flat button "Bütün +b Kaldır", 29, 135 180 58 12, flat button "Alban (+b)", 30, 194 195 51 12, flat list 31, 194 125 51 24, size box "", 9, 392 89 0 88 } ;alias sonuc { noop $tip(b, %kn_, Kanalından4 $iif(%k-nick,%k-nick, $iif(%bnick, %bnick, Kullanıcı)) Ban Yedi,9999999999999) } ;alias knk { .timerbnb 1 2 sonuc } on *:ban:#:{ unset %k-nick | set -e %bnick $bnick | set -e %kn_ # } on *:kick:#:{ set -e %k-nick $knick } on *:dialog:Adminmenu:sclick:26:{ if $did(Adminmenu,26).sel { did -u Adminmenu 24 | did -u Adminmenu 31 } } on *:dialog:Adminmenu:sclick:24:{ if $did(Adminmenu,24).sel { did -u Adminmenu 26 | did -u Adminmenu 31 } } on *:dialog:Adminmenu:sclick:31:{ if $did(Adminmenu,31).sel { did -u Adminmenu 26 | did -u Adminmenu 24 } } on *:dialog:Adminmenu:sclick:30:{ albans $did(1).seltext } alias albans { var %l_ 1, %l- $did(Adminmenu,24).lines while %l_ &lt;= %l- { samode $did(Adminmenu,24,%l_).text +b $1 | inc %l_ } } alias -l ksec { if $did(24).sel { return $did(24).seltext } elseif $did(26).sel { return $did(26).seltext } elseif $did(31).sel { return $did(31).seltext } } on *:dialog:Adminmenu:sclick:29:{ .bn #Radyo #Kelime #isLam #Test #Bilgi #Yarisma #SaNCaK #Admin #Services #Kontrol #Help #Opers #Dj } alias bn { var %a 1 ,%b $numtok($1-,32) while %a &lt;= %b { var %c 1 while %c &lt;= $ibl($gettok($1-,%a,32),0) { samode $gettok($1-,%a,32) -b $ibl($gettok($1-,%a,32),%c) | inc %c } inc %a } } on *:dialog:Adminmenu:sclick:27:{ if $did(1).sel &amp;&amp; $did(24).sel || $did(26).sel || $did(31).sel { sajoin $did(1).seltext $ksec } } on *:dialog:Adminmenu:sclick:28:{ if $did(1).sel &amp;&amp; $did(24).sel || $did(26).sel || $did(31).sel { sapart $did(1).seltext $ksec } } on *:dialog:Adminmenu:sclick:1: { did -c $dname 1 $did(1).sel | did -c $dname 12 $did(1).sel | did -c $dname 14 $did(1).sel } on *:dialog:Adminmenu:dclick:1: { !query $$did(1).seltext } on *:dialog:Adminmenu:dclick:24: { join $$did(24).seltext } on *:dialog:Adminmenu:dclick:26: { join $$did(26).seltext } on *:dialog:Adminmenu:dclick:31: { join $$did(31).seltext } on *:dialog:Adminmenu:sclick:12: { did -c $dname 12 $did(12).sel | did -c $dname 14 $did(12).sel | did -c $dname 1 $did(12).sel } on *:dialog:Adminmenu:sclick:14: { did -c $dname 1 $did(14).sel | did -c $dname 14 $did(14).sel | did -c $dname 12 $did(14).sel } on *:dialog:Adminmenu:*:*: { if $devent == init { set %Adminmenu on | who +I mdx MarkDialog $dname mdx SetDialog $dname bgcolor $rgb(237,241,219) mdx SetFont $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 +b Turkish 15 950 Tahoma mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 textbg $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,24,25,26,27,28,29,30,31,32,33,33,34 background $rgb(237,241,219) mdx SetColor $dname 1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(0,0,0) mdx SetColor $dname 11,13,15,16,8,21,23,25l text $rgb(199,92,2) did -a $dname 24 #Radyo did -a $dname 24 #Sohbet did -a $dname 24 #Chat did -a $dname 24 #Felsefe did -a $dname 24 #İzmir did -a $dname 24 #İstanbul did -a $dname 24 #SaNCaK did -a $dname 26 #Master did -a $dname 26 #Xline did -a $dname 26 #Admin did -a $dname 26 #OperSohbet did -a $dname 31 #Operhelp did -a $dname 31 #Help } if $devent == sclick &amp;&amp; $status == connected { if $did == 2 { gzline $did(1).seltext 8,115Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } if $did == 3 { kill $did(1).seltext Kill } if $did == 20 { /operserv badnick $did(1).seltext } if $did == 30 { cs unban $did(24).seltext,$did(26).seltext$did(31).seltext all } if $did == 4 { shun $did(1).seltext 8,115Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir4.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir. 4Lutfen 15Sohbet kurallarina Uyunuz. } if $did == 5 { set %offlan $did(Adminmenu,1).seltext kapats } if $did == 6 { set %offlan $did(Adminmenu,1).seltext yetergir } if $did == 7 { if $did(24).sel { ksecb $did(Adminmenu,24).seltext } elseif $did(26).sel { ksecb $did(Adminmenu,26).seltext } elseif $did(31).sel { ksecb $did(Adminmenu,31).seltext } else { ksecb $active } } } if $devent == close { write -c wholist.txt unset %Adminmenu } } alias ksecb { os mode $1 +b $did(Adminmenu,1).seltext } raw 352:*: { if (%Adminmenu == on) { if ($8 == 1) { halt } if ($6 == S-Bot) { halt } if ($3 == SekerShell) { halt } if (*B* iswm $7) { halt } write wholist.txt $6 did -a Adminmenu 16 Toplam = $lines(wholist.txt) Kişi did -a Adminmenu 1 $6 did -a Adminmenu 12 $3 did -a Adminmenu 14 $4 .timer 1 2 unset %Adminmenu /halt } } raw 315:*: { /halt } alias yetergir { set %veri4 1 set %veri5 $chan(0) while %veri4 &lt;= %veri5 { if $regex($chan(%veri4),/operhelp|opers|log|services|x|dj|op|admin|help|kontrol/i) { halt } sajoin %offlan $chan(%veri4) inc %veri4 } } alias kapats { set %kapats1 1 set %kapats2 $chan(0) while %kapats1 &lt;= %kapats2 { sapart %offlan $chan(%kapats1) inc %kapats1 } }

Kodu eklemeniz gereken kısım; ALT+R => Remote => kendi oluşturduğunuz .ini dosyası veya boş bir ini dosyasına yapıştırabilirsiniz menu status,menubar,channel { - } dialog glist { title "Ban Listesi" size -1 -1 423 162 option dbu list 1, 2 10 82 126, size text "Gline Listesi", 4, 4 2 45 8 button "« « KAPAT » »", 5, 170 116 82 20, flat ok list 2, 86 10 82 126, size list 3, 254 10 82 126, size text "Shun Listesi", 6, 86 2 71 8 text "Zline Listesi", 7, 254 2 54 8 text "Kaldirmak istediginiz Banin ip numarasinin Uzerine Cift tiklayinca Ban Kalkacak.", 8, 72 140 266 8 list 9, 170 10 82 103, size text "G-Zline Listesi", 10, 170 2 65 8 list 11, 338 10 82 126, size text "Kline Listesi", 12, 338 2 60 8 edit "", 13, 116 150 147 10, read } on *:dialog:glist:*:*:{ if $devent == init { mdx MarkDialog $dname mdx SetDialog $dname bgcolor $rgb(240,240,240) mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 +b Turkish 13 950 Tahoma mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 textbg $rgb(240,240,240) mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 background $rgb(240,240,240) mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13 text $rgb(0,0,0) mdx SetColor $dname 8 text $rgb(199,92,2) mdx SetColor $dname 13 text $rgb(255,0,0) if !$regex($usermode,/o/) { did -a $dname 13 Bu islemi Yapmaniz icin Admin olmalisiniz.. | return } set %gkontrol on | .enable #bangizle | .stats g | .stats s | .stats k | .stats Z .timer 1 1 .disable #bangizle if $devent == dclick { if $did == 1 { gline $+(-*@, $did(1).seltext) did -d $dname 1 $did(1).sel } if $did == 2 { shun $+(-*@, $did(2).seltext) did -d $dname 2 $did(2).sel } if $did == 3 { zline $+(-*@, $did(3).seltext) did -d $dname 3 $did(3).sel } if $did == 9 { gzline $+(-*@, $did(9).seltext) did -d $dname 9 $did(9).sel } if $did == 11 { kline $+(-*@, $did(11).seltext) did -d $dname 11 $did(11).sel } } if $devent == close { write -c gline.txt write -c zline.txt write -c shun.txt write -c gzline.txt write -c kline.txt } } raw 223:*: { if ($2 isincs G) && (%gkontrol == on) && ($dialog(glist)) { did -a glist 1 $gettok($3,2,64) | write gline.txt $gettok($3,2,64) .timer 1 3 unset %gkontrol } if ($2 isincs z) && (%gkontrol == on) && ($dialog(glist)) { did -a glist 3 $gettok($3,2,64) | write zline.txt $gettok($3,2,64) } if ($2 isincs s) && (%gkontrol == on) && ($dialog(glist)) { did -a glist 2 $gettok($3,2,64) | write shun.txt $gettok($3,2,64) } if ($2 isincs Z) && (%gkontrol == on) && ($dialog(glist)) { did -a glist 9 $gettok($3,2,64) | write gzline.txt $gettok($3,2,64) } if ($2 isincs K) && (%gkontrol == on) && ($dialog(glist)) { did -a glist 11 $gettok($3,2,64) | write kline.txt $gettok($3,2,64) } /halt } alias glist { dialog -m glist glist } #bangizle off raw 223:*: { /halt } raw 249:*: { /halt } raw 219:*: { /halt } raw 216:*: { /halt } #bangizle end

on *:text:*:#KANAL:{ if !proxyekle* iswm $1- { if $read(proxy.txt,w,$2-) { .msg $chan $2 Proxy Listesinde zaten ekli. } else { write proxy.txt $2- .msg #KANAL $2 Proxy Listesine Eklendi. .gzline $2 Proxy PERM } } if !proxysil* iswm $1- { if !$read(proxy.txt,w,$2-) { .msg #KANAL $2 Maskı Zaten Proxy Listesinde yok. } else { write $+(-,dw,$2-) badnick.txt .msg #KANAL $2 Maskı Proxy Listesinden Silindi. .gzline $2 } } }

kanalınıza girmesini istemediğiniz kişileri otomatik olarak banlaması ve nick değiştirse dahi kanala girişini engellemektir. Kişiye özel akick listesi diyebiliriz. on *:input:#: { if $regex($1,/^([.!-]ban)/Si) { if !$2 { echo -a 2Lütfen parametre belirtiniz.4 !ban kayit|liste|sil Örnek : !ban Liste | return } } if $2 == liste { if $lines(ban.txt) = 0 { echo -a 2Belirtilen ban mevcut değil. | halt } echo -a 2ban listesi siralaniyor. var %banla 1 while (%banla <= $lines(ban.txt)) { echo -a %banla $read(ban.txt,%banla) inc %banla } } if $2 == ekle { if !$3 { echo -a 2Lütfen nick belirtiniz.4 !ban ekle nick | return } if $read(ban.txt,w, $+ * $+ $nick $+ * $+ ) { echo -a 2Eklemeye çalıştığınız nick zaten listede ekli bulunuyor. | halt } write ban.txt $3 | mode # +b $3 | kick # $3 4,1Kişisel Ban listeme eklendiniz. echo -a 4 $+ $3 $+ , 2ban listesine eklenmiştir. } if $2 == sil { if !$3 { echo -a $nick 2Lütfen nick belirtiniz.4 !ban sil numara | return } if $lines(ban.txt) = 0 { echo -a 2Ban kaydı bulunamadi. | halt } write $+(,-dl,$3,) ban.txt echo -a $3 $+ , 2Numaralı nickin ban kaydı silindi. } } on *:join:#: { if ($read(ban.txt,w,$nick)) { mode # +b $nick | kick # $nick 4,1 Kişisel Ban Listemdesiniz. } } on *:nick: { if $read(ban.txt,w,$nick) { echo -a Ban listesindeki $nick $newnick nickini aldığı için ban listesine eklendi. | write ban.txt $newnick | mode # +b $newnick | kick # $newnick 4,1Nick değiştirip kanalıma girmeye çalıştığınızı tespit ettim. } }

Başlıkta belirrtiğim gibi bir kanalda yetkili oldugunuzda veya yetkiniz aldığında size bilgi vermeye yarayan güzel bir kod on 1:op:#: { if ($opnick != $me) { halt } else { /echo -a 11,1 - 15,1 Dikkat! 11,1 - 11,1 - 0,1 # 15Kanalında $nick tarafından 0op 15oldunuz. 11,1 - | halt } } on 1:deop:#: { if ($opnick != $me) { halt } else { /echo -a 11,1 - 15,1 Dikkat! 11,1 - 11,1 - 0,1 # 15Kanalında $nick tarafından 0deop 15oldunuz. 11,1 - | halt } }

Sunucu üzerinde Sqline listesini tek bir komut ile tek seferde tüm Sqline listesini temizleyebilirsiniz . Kullanımı : /sqlinedell alias Sqlinedell { .set -u3 %:sqline on | echo -a Sqline listesi siliniyor. | os sqline list } on *:notice:*:?:{ if %:sqline == on { if ($nick == OperServ) && (SQLINE listesinden silindi !isin $strip($1-)) { if (Aktüel liste: isin $1-) { return } os sqline del $1 } } }

Kodun amacı bir kanalda !preferix yazdınığınızda size otomatik olarak bu modeleri verir. Veye !depreferix yazdığınızda sizden bu modeleri tekrar geri alır. on *:input:#:{ if ($regex($1,^(!preferix|!deprefefrx)$)) { mode # $iif($left($1,3) = !de,-,+) $+ qaohve $str($+($me,$chr(32)),6) } }

Seçmiş olduğunuz kanala giriş yapan kullanıcıyı belirlediğiniz kanallara Random olarak sajoin edebilirsiniz . on !*:join:#Kanal:{ var %q = #kanal1 #kanal2 #kanal3 #kanal4 #kanal5,%t = $calc($numtok(%q,32)+1) inc -e %r $iif(%r != %t,sajoin $nick $gettok(%q,%r,32),unset %r) }