Jump to content

chain

Administrators
  • Posts

    6031
  • Joined

  • Last visited

  • Days Won

    17

Everything posted by chain

  1. Now Playing script for internet radio stations. It uses a SHOUTcast admin page for a given station. Just Played. Will show up to the last 9 songs played on the given station. Commands: !np or !nowplaying will show current song !np [station name] [c,count,l,listner] Shows current listner count. !np [station name] url will show the url of said site. !np [station name] status will show the current status of the stream [Online or Offline] !jp or !justplayed or !lp or !lastplayed will show previous 3 songs !jp [1-9] will show previous 1 or up to 9 previous songs. Default settings allow normal/voice to call up to 5 previous songs. Op/Owners can call up all 9 previous songs. Flood protection is added in to keep a user from calling up the history list more than once in a short period of time. !np [help] Code may look long and complicated, I just have added a lot of notes and comments for future modifications and so I remember what I did. 2012-05-08 - v2.1 Original creation Released to the public. 2012-05-24 - v3.0 Released. Merged personal Just playing script with Now Playing script to create a full feature script. See bottom of script for Version history ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Now Playing ;;;;;;;;;;;;via SHOUTcast ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;ft JustPlayed;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;eqrunner;;;;;;;;;;;;v 3.0;;;;;;;;;;;;;;;;;;;;; /* !nowplaying !nowplaying [station name] [s|c|L] !nowplaying [help|?] !justplayed !justplayed [1-9] */ ;alias np { on $*:TEXT:/^[!](nowplaying|np|justplayed|jp|justheard|lastplayed|lastplay|lp|previous|previousplay|previousplayed|history|played)/Si:#:{ ;=== Set up the station Information: === set %np_station SHOUTdrive set %np_ip sanjose.oontz.shoutdrive.com set %np_port 80 set %np_url http://www.shoutdrive.com ;=== End station Information === ; === Nothing below needs to be modified, unless you wish to modify the output, in which case, go down to the sockclose alias. === set %np_nick $nick set %np_chan $chan set %np_network $network ;-- Merges multiple commands down to two commands !nowplaying and !justplayed --; ;- Nowplaying merge var %np_np_list !nowplaying !np if ($1 isin %np_np_list) set %np_command !nowplaying ;- Justplayed merge var %np_jp_list !justplayed !jp !justheard !lastplayed !lastplay !lp !previous !previousplay !previousplayed !played !history if ($1 isin %np_jp_list) set %np_command !justplayed ;--- Help Parameters if ($2 == ?) || ($2 == help) { nowplaying_help | halt } ;--- !nowplaying Parameters --- if (%np_command == !nowplaying) { set %np_sock_GET /7.html HTTP/1.0 } ;--- Variable $3 Parameters --- if ($3 != $null) { if ($3 == s) || ($3 == status) set %np_3 status if ($3 == url) set %np_3 url if ($3 == c) || ($3 == count) || ($3 == listner) || ($3 == l) set %np_3 count } ;--- !justplayed Parameters --- ;- Limits voice and normal to only seeing a max of 5. Allows OPS a max of 10 -- ;-- Helps prevent standard user flooding ;- IF no number is givin, then set to the default amount of 3 if (%np_command == !justplayed) { set %np_sock_GET /played.html HTTP/1.0 if ($2 isnum 1-9) { var %np_oplist isop ishop isowner if (%np_nick isop %np_chan) || (%np_nick isowner %np_chan) { set %np_2 $2 } if (%np_nick isvoice %np_chan) || (%np_nick isreg %np_chan) { if ($2 > 5) { set %np_2 5 } if ($2 <= 5) { set %np_2 $2 } } } if ($2 == $null) { set %np_2 3 } } ;--- Flood Protection if (%np_command == !justplayed) && (%npdelay > 0) { .notice $nick Previous songs already listed. See above. | unset %np_* | halt } ;--- Socket Preperation sockclose nowplaying sockopen nowplaying %np_ip %np_port } ;========== SOCK OPEN ========== on *:SOCKOPEN:nowplaying:{ sockwrite -n $sockname GET %np_sock_GET sockwrite -n $sockname User-Agent: Mozilla sockwrite -n $sockname $crlf } ;========== SOCK READ ========== on *:sockread:nowplaying:{ ;--- !nowplaying Sock Read ---- if (%np_command == !nowplaying) { if ($sockerr > 0) { notice %np_nick %tegn.1 $+ %radio.navn $+ %tegn.2 %tegn.midt %tegn.1 Stream Is Offline %tegn.2 NOTE1 return } :nextread sockread -f %scasttemp1 if ($sockbr == 0) return if (%scasttemp1 == $null) %scasttemp1 = empty set %scasttemp1 $remove(%scasttemp1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>) if ((HTTP/1.* !iswm %scasttemp1) && (content-type* !iswm %scasttemp1) && (%scasttemp1 != empty)) { set %np_listeners1 $gettok(%scasttemp1,1,44) set %np_status1 $gettok(%scasttemp1,2,44) set %np_peak1 $gettok(%scasttemp1,3,44) set %np_max1 $gettok(%scasttemp1,4,44) set %np_ulistners1 $gettok(%scasttemp1,5,44) set %np_kbps $gettok(%scasttemp1,6,44) set %np_asong1 $gettok(%scasttemp1,7-,44) set %np_song1 $replace(%np_asong1,&,$chr(38),',$chr(39)) } goto nextread } ;--- !justplayed Sock Read ---- if (%np_command == !justplayed) { sockread -f %jp_temp if ($regex(%jp_temp,/(?i)<td>(.+)<\/td>/)) { ;echo -s $regml(1) ;--- Strips down the code /* Strips down the code down to the needed info with § seperators to be used by the $gettok. Yes, I could of combined this in to one or two lines. But I kept it seperate to help keep it understandable and easy to trouble shoot. -Removes all close tags in the code </*> -Removes all <tr> and <b> tags from the code -Replaces all <td> and <br> with § character -Counts total § characters to be referenced below in the while loop. */ var %jp_stripped $regsubex($regml(1),/</[^>]*>/g,$chr(0)) var %jp_stripped $replace(%jp_stripped,<tr>,$chr(0),<b>,$chr(0)) var %jp_stripped $replace(%jp_stripped,<td>,$chr(167),<br>,$chr(167)) set %jp_167count $count(%jp_stripped,$chr(167)) ;----Sets the first song (current song) /* Have to as the 'Current song' at the end, screws up the count for the remainder. (Song 1 time and song is at 3 and 4 (odd then even), as the rest are at 6 and 7 (even than odd) */ set %jp_time1 $gettok(%jp_stripped,3,167) set %jp_song1 $gettok(%jp_stripped,4,167) var %jp_line_var = 6 var %jp_songline_var = 2 ;---Sets the remainder of the songs, plus extra junk. /* =While the line_var is less than the total number of § characters -Sets the time variable -Increases the token count number -Sets the Song Varible -Increases the token count and song line count */ while (%jp_line_var < %jp_167count) { set $+(%,jp_time,%jp_songline_var) $gettok(%jp_stripped,%jp_line_var,167) inc %jp_line_var set $+(%,jp_song,%jp_songline_var) $gettok(%jp_stripped,%jp_line_var,167) inc %jp_line_var inc %jp_songline_var } ;set %jp_stripped3 $regsubex($regml(1),/§[^>]*§/g,$chr(167)) } } } ;========== SOCK CLOSE ========== on *:sockclose:nowplaying:{ ;=== Station Fail ==== ;-- If station is offline then: if (%np_status1 == 0) { msg %np_chan %np_station $+ : Stream Is Offline goto np_end } ;=== User had added a 3rd parameter to their message. Aka !nowplaying [station] [s,status,url,c,count,listern] ;-- If user has added an S or Status as the 3rd parameter. Then the status of station will show. if (%np_3 == status) { if (%np_status1 == 0) { var %np_status2 = Offline } elseif (%np_status1 == 1) { var %np_status2 = Online } msg %np_chan %np_station Status: %np_status2 ;msg %np_chan %np_station Status: %np_status2 $chr(124) Listeners: %np_listeners1 $chr(124) Peak: %np_peak1 $chr(124) Limit: $+ %np_max1 $chr(124) Stream: $+ %np_kbps $+ kbps } ;-- If user has URL as 3rd parameter, then url of site will show. if (%np_3 == url) { msg %np_chan %np_station $+ : %np_url } ;-- If user has C, Count, or L, then listener count will show. if (%np_3 == count) { msg %np_chan %np_station listener count: %np_listeners1 ( %np_ulistners1 unique ) } ;-- IF user has only asked for !np, or !np [station], then the current song will show. if (%np_3 == $null) { ;--- IF !nowplaying if (%np_command == !nowplaying) { msg %np_chan %np_station $+ : %np_song1 } ;--- IF !justplayed if (%np_command == !justplayed) { inc -z %npdelay $calc(%np_2 * 10) var %jp_t = 1 var %jp_list2_var = 2 while (%jp_t <= %np_2) { .timer 1 %jp_t msg %np_chan %jp_list_var : $($+(%,jp_time,%jp_list2_var),2) : $($+(%,jp_song,%jp_list2_var),2) inc %jp_t inc %jp_list2_var } } } :np_end unset %np_* unset %jp_* } ;============================ ;=== Help Section =========== ;============================ alias nowplaying_help { .timer 1 0 .msg %np_nick --- Now Playing HELP --- .timer 1 1 .msg %np_nick Use command: !nowplaying to see what is currently playing. .timer 1 3 .msg %np_nick Use commands: !justplayed or !lastplayed to see the previous 3 songs .timer 1 4 .msg %np_nick You can add a number on the end to see a specific amount of previous songs. Limit 5 for users, 10 for ops .timer 1 5 .msg %np_nick EX: !justplayed 5 = will give you previous 5 songs. .timer 1 6 .msg %np_nick --- END of Now Playing Help --- %np_tunage_cleanup } /* ==================================== v 2.1 Released to public. Fully working Nowplaying v 3.0 Rewrittin, Now includes Playlist history and HELP ==================================== Notes: Two actions read from seperate pages, but use the same common SOCKOPEN/SOCKREAD. !nowplaying GET's from /7.html !justplayed GET's from /playe
  2. 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 } } }
  3. 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 } }
  4. 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! } }
  5. 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)) } }
  6. !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)),\) } }
  7. 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
  8. 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 } }
  9. 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))
  10. chain

    epeen

    ;;; 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!
  11. 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
  12. 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
  13. its not released yet 😔
  14. chain

    IRC Snippets

    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.
  15. 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 } } } }
  16. 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 } .-
  17. 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 } }
  18. 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
  19. 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 } } }
  20. 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. } }
  21. 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 } }
  22. 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 } } }
  23. 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) } }
×
×
  • Create New...