chain

Been working on easy script for quite a few months, doing english translation been having fun. Also customizing it to my needs. tell me what you all think about it!!

I have retested the downloads and it seems to be working, there have been people telling me there's issues. So i have tested it and seems to work fine. Please let me know if there's anymore issues with the archive downloads

Here's a Zip file of some old IRC Scripts if your interested in keeping for your own archives. I take no responsibility to any damage caused by any noobs running somethings that I might upload for the mIRC community as I did not make even a dent of what I will be sharing. Anything I know for sure is dangerous I will surely Mark it as Such and if I do Heed the Warning. Like GtBots. for instance those can be dangerous toys if not used properly. This is for your own warning. coders-Resources is not responsible when or how you use these scripts. 1325329690_mIRCScripts.zip

we've been on for years & we have moved up with a few more chatter's coming but nothing like other server's. Mind you it would be nice to see it grow. Would have to discuss it with my partner Eyecu he dose all the updates and server stuff!

Today I went to go see an old italian scripting site and seen that it hasn't been used in quite some time and has been let go. and all of the downloads shut down. Same has happen with Hawkee spammers left and right and no one controlling the forums. This is why I've been collecting all the snippets and codes from various script sites to keep all the codes in archives for reference and just to save them. My good friend err0r from Tg007 has done that also. it's a shame to see scripting websites closing and not as popular as they use to be, it saddens me that people that have spend all that time coding will be lost and forgotten. Hawkee - A Writing Platform for Web Developers https://calabria-irc.forumfree.it/ very popular scripting sites in the day!!

Last night I had fun chatting with a huge group on gotalk.to with some Rizon IRC users Was a blast talking about how script's and websites and coding. I'm pretty much on a lot of server's and i even have a server, and hearing that chat isn't truly dead made me realize it's truly not you just have to find the right rooms on the right server. Geekshed is quite active and also Rizon I believe all servers have some chat but just locating them is what you need to do. I find scripting rooms less active as they mainly chat on script forum then in there room, but there still there watching in case you need a help in coding. I've made quite a lot of new friends on each server and have caught up with a few from hawkee well know scripter's. And there still active and continue to be active just that they work and some have families so time is less. But isn't that with everyone now. So I believe chat hasn't died its just the time schedule that effects user's now. but go on weekends and wow chat has risen

THERE are not many sites that keep abreast of IRC. Many wrongly assume that it barely exists anymore, but it has been around for a very long time. As netsplit.de puts it: “Internet Relay Chat (short: IRC) [...] a chat protocol that was developed in 1988 and that’s internationally used for text based communication over the Internet.” Here’s a list of currently-known networks “in alphabetical order” (Techrights has only just been added, but like many other networks it was “unseen” for a long time). Based on these known networks alone, the number of users peaks at around third of a million: “The largest of them that take part in our comparison of IRC networks are contained in the top 100 list,” the page says, “but there are also some IRC networks that are big and run out of competition.”

;---------< Robo-X - Topic Command: >----------- on 1:text:@topic *:#robots: { if ( $nick isop $chan || $nick ishop $chan ) { set %topic $2- topic $chan Topic: 4 %topic / 7 %status / 3 %static-a / 9 %static-b } } on 1:text:@status *:#robots: { if ( $nick isop $chan || $nick ishop $chan ) { set %status $2- topic $chan Topic: 4 %topic / 7 %status / 3 %static-a / 9 %static-b } } on 1:text:@static-a *:#robots: { if ( $nick isop $chan || $nick ishop $chan ) { set %static-a $2- topic $chan Topic: 4 %topic / 7 %status / 3 %static-a / 9 %static-b } } on 1:text:@static-b *:#robots: { if ( $nick isop $chan || $nick ishop $chan ) { set %static-b $2- topic $chan Topic: 4 %topic / 7 %status / 3 %static-a / 9 %static-b } }

alias sil { if ($me isop $chan) || ($me ishop $chan) { if (!$1) || (!$2) { echo -at * Error: Incorrect syntax used, /sil <nick> <timer in minutes> } elseif ($1) || ($2) { mode $chan +bb ~q: $+ $address($1,2) ~n: $+ $address($1,2) writeini Silence.ini $$1 chan $active if ($$1 ishop $active) { writeini Silence.ini $1 status HOP | mode $active -h $1 } if ($$1 isvoice $active) { writeini Silence.ini $1 status VOP | mode $active -v $1 } $iif($$1 isreg $active,writeini Silence.ini $1 status REG) .timer 1 $calc($2 * 60) desil $1 $address($1,2) $chan } } } on *:JOIN:#: { if ($ini(Silence.ini,$nick,chan)) { if ($readini(Silence.ini,$nick,status) == HOP) { mode $chan -h $nick } elseif ($readini(Silence.ini,$nick,status) == VOP) { mode $chan -v $nick } } } alias -l desil { if ($1 ison $3) { if ($readini(Silence.ini,$1,status) == HOP) { mode $$3 +h $1 | remini Silence.ini $1 } if ($readini(Silence.ini,$1,status) == VOP) { mode $$3 +v $1 | remini Silence.ini $1 } mode $3 -bb ~q: $+ $2 ~n: $+ $2 } elseif ($1 !ison $3) { mode $3 -bb ~q: $+ $2 ~n: $+ $2 | remini Silence.ini $1 } }

MuteBanEnforce by Ford_Lawnmower irc.GeekShed.net #Script-Help menu nicklist { .$iif(!$hget(MuteEnforce,$+($network,$chan,$address($$1,2))),$style(2)) RemoveMute $$1: { var %mask $+($network,$chan,$address($$1,2)) hdel MuteEnforce %mask if ($timer(%mask).com) { $v1 .notice $$1 Your ban has been lifted early! You may now speak in $+($chan,.) Please try not to repeat the same activity that caused you to be muted. $+(.timer,%mask) off } else mode $chan -b $+(~q:,$address($$1,2)) } .Mute $$1 ..3 Minutes:mute $$1 180 $$?="Reason for Muting $$1" ..5 Minutes:mute $$1 300 $$?="Reason for Muting $$1" ..10 Minutes:mute $$1 600 $$?="Reason for Muting $$1" ..30 Minutes:mute $$1 1800 $$?="Reason for Muting $$1" ..60 Minutes:mute $$1 3600 $$?="Reason for Muting $$1" ..Forever:mute $$1 $$?="Reason for Muting $$1" } alias mute { clipboard $$1 var %nick $cb(1) if (%nick ison $chan) { ialcheck %nick var %usermodes $replace($remove($nick(#,%nick).pnick,%nick),~,q,&,a,!,a,@,o,%,h,+,v), %addy $iif($address(%nick,2),$v1,%nick) mode $chan $+(+b-,%usermodes) $+(~q:,%addy) $str($+(%nick,$chr(32)),$len(%usermodes)) hadd -m MuteEnforce $+($network,$chan,%addy) mute if ($$2 isnum) { $+(.timer,$network,$chan,%addy) 1 $$2 removeMute $+($network,$chan,%addy) $chan $+(-b+,%usermodes) $+(~q:,%addy) $str($+(%nick,$chr(32)),$len(%usermodes)) msg $chan $+(,%nick,) You have been Muted! Duration: $duration($2) Reason: $3- } else msg $chan %nick You have been Muted! $+(Reason:,$2-) } else echo -a %nick is not on $chan } alias -l ialcheck { if (!$ial($1)) .who $1 } alias -l removeMute { if ($($+($,$0),2) !ison $2) mode $2 -b $4 else mode $2- hdel MuteEnforce $1 } alias -l parseMode { tokenize 32 $1 var %start 1, %finish $len($1), %+-, %modes -1, %location $+(parseMode,$chr(3),$network,$chr(3),$chan) while (%start <= %finish) { if ($mid($1,%start,1) isin +-) { %+- = $replace($v1,+,1,-,-1) | inc %modes } elseif ($mid($1,%start,1) isin qaohvb) { var %mode $+($v1,$($+($,$calc(%start - %modes)),2)) hadd -m %location %mode $calc($hget(%location,%mode) + %+-) } inc %start } var %hash $regsubex($regsubex($str(.,$hget(%location,0).item),/(.)/g,$+($hget(%location,\n).data,$hget(%location,\n).item,$chr(32))),/(\b0[^\s]*)/g,) if ($hget(%location)) hfree $v1 var %count 1, %max $numtok(%hash,32), %return, %temp while (%count <= %max) { %temp = $gettok(%hash,%count,32) %return = $+(%return,$chr(32),$iif($left(%temp,1) == -,$+(-,$mid(%temp,3)),$+(+,$mid(%temp,2)))) inc %count } return %return } On !*:rawmode:#: { checkMutes $network $chan $parsemode($1-) } alias -l checkMutes { var %network $1, %chan $2, %modes $3- tokenize 32 %modes checkMute %network %chan $* } alias -l checkMute { var %mode $left($3,2), %target $mid($3,3) if ((%mode isincs +v+h+o+a+q) && ($hget(MuteEnforce,$+($1,$2,$address(%target,2))))) mode $2 $replace(%mode,+,-) %target elseif ((%mode == -b) && ($hget(MuteEnforce,$+($1,$2,$gettok(%target,-1,58))))) mode $chan +b %target }

menu channel { Peak Script v1.1:peakdia } alias -l peakdia { $iif($dialog(multi_peak),dialog -v,dialog -m multi_peak) multi_peak } dialog multi_peak { title "Peak Dialog by Danneh" size -1 -1 144 122 option dbu box "Peak Setup", 4, 2 20 140 100 combo 5, 5 38 60 50, sort size text "Networks:", 6, 5 28 25 8 button "Add", 7, 5 90 30 12 button "Del", 8, 36 90 30 12 combo 9, 78 38 60 50, size text "Channels:", 10, 78 28 24 8 button "Add", 11, 78 90 30 12 button "Del", 12, 109 90 30 12 button "Ok", 13, 29 104 37 12, ok button "Cancel", 14, 78 104 37 12 box "Master Switch:", 15, 2 2 63 17 check "On/Off", 16, 16 8 36 10 box "Setting:", 17, 79 2 63 17 check "Op's Only Switch", 18, 82 8 59 10 menu "File", 1 item "Unset All", 2, 1 item "Exit", 3, 1 } on *:DIALOG:multi_peak:init:*: { var %a = $numtok(%peak.networks,44) while (%a) { did -a $dname 5 $gettok(%peak.networks,%a,44) dec %a } if (%peakmaster == on) { did -c $dname 16 } if (%peakmaster == $null) { did -b $dname 5,7-9,11,12,18 } if (%peakops == on) { did -c $dname 18 } } on *:DIALOG:multi_peak:menu:2,3: { if ($did == 2) { unset %peak.* did -r $dname 5,9 } if ($did == 3) { dialog -x multi_peak multi_peak } } on *:DIALOG:multi_peak:sclick:5,7,8,11,12,16,18: { if ($did == 5) { did -r $dname 9 var %a = $numtok(%peak. [ $+ [ $did($dname,5).text ] ],44) while (%a) { did -a $dname 9 $gettok(%peak. [ $+ [ $did($dname,5).text ] ],%a,44) dec %a } } if ($did == 7) { if (!$did($dname,5).text) { noop $input(Please enter a Network to add for Peaks.,o) } elseif ($istok(%peak.networks,$did($dname,5).text,44)) { noop $input(The Network you entered is already setup for Peaks.,o) } else { set %peak.networks $addtok(%peak.networks,$did($dname,5).text,44) did -a $dname 5 $did($dname,5).text } } if ($did == 8) { if (!$did($dname,5).text) { noop $input(Please enter a Network to remove from Peaks.,o) } elseif (!$istok(%peak.networks,$did($dname,5).text,44)) { noop $input(The Network you wish to remove is not in the Peak setup.,o) } else { set %peak.networks $remtok(%peak.networks,$did($dname,5).text,44) did -r $dname 5 var %a = $numtok(%peak.networks,44) while (%a) { did -a $dname 5 $gettok(%peak.networks,%a,44) dec %a } $iif(%peak.networks == $null,unset %peak.networks) } } if ($did == 11) { if (!$did($dname,5).text) { noop $input(Please select a Network to add channels to.,o) } elseif (!$did($dname,9).text) { noop $input(Please enter a channel to add to the Peak Setup.,o) } elseif ($istok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)) { noop $input(The Selected channel name is already setup for Peaks.o) } else { set %peak. [ $+ [ $did($dname,5).text ] ] $addtok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44) did -a $dname 9 $did($dname,9).text } } if ($did == 12) { if (!$did($dname,5).text) { noop $input(Please select a Network to remove channels from.,o) } elseif (!$did($dname,9).text) { noop $input(Please enter a channel to remove from the Peak Setup.,o) } elseif (!$istok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)) { noop $input(The Selected channel name is not in the setup for Peaks.o) } else { set %peak. [ $+ [ $did($dname,5).text ] ] $remtok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44) unset %peak. [ $+ [ $did($dname,5).text ] $+ ] . [ $+ [ $did($dname,9).text ] $+ ] .* did -r $dname 9 var %a = $numtok(%peak. [ $+ [ $did($dname,5).text,44) while (%a) { did -a $dname 9 $gettok(%peak. [ $+ [ $did($dname,5).text ] ],%a,44) dec %a } $iif(%peak. [ $+ [ $did($dname,5).text ] ] == $null,unset %peak. [ $+ [ $did($dname,5).text ] ]) } } if ($did == 16) { if ($did(16).state == 0) { unset %peakmaster noop $input(Peak script has been disabled.,o,Success!) did -b $dname 5,7-9,11,12,18 } if ($did(16).state == 1) { set %peakmaster on noop $input(Peak script has been enabled.,o,Success!) did -e $dname 5,7-9,11,12,18 } } if ($did == 18) { if ($did(18).state == 0) { unset %peakops noop $input(Peak trigger now works for everyone.,o,Success!) } if ($did(18).state == 1) { set %peakops on noop $input(Peak trigger now works for Ops only.,o,Success!) } } } on *:JOIN:#: { if ($istok(%peak. [ $+ [ $network ] ],$chan,44)) { if (!%peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak) { set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak $nick($chan,0) set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime $ctime } else { if ($nick($chan,0) <= %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak) { HALT } else { set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak $nick($chan,0) msg $chan New Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Last Peak: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago. .timer 1 3 set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime $ctime } } } } on *:TEXT:!Peak:#: { if ($istok(%peak. [ $+ [ $network ] ],$chan,44)) { if (%peakops == on) { if ($nick isop $chan) { msg $chan Current Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Peak Set: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago. } } if (%peakops == $null) { msg $chan Current Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Peak Set: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago. } } }

menu * { Away Dialog:awaydia } dialog awaydia { title "Away Dialog" size -1 -1 200 180 option pixels tab "Set Away", 1, 0 0 199 150 tab "Set Back", 12 button "Ok", 4, 31 151 65 25, ok flat button "Cancel", 5, 103 151 65 25, cancel flat box "Away", 6, 6 27 184 110, tab 1 edit "", 7, 72 41 110 20, tab 1 text "Away Nick:", 8, 12 42 55 17, tab 1 text "Away Msg:", 9, 11 65 55 17, tab 1 edit "", 10, 72 64 108 20, tab 1 button "Set Away", 11, 65 99 65 25, tab 1 box "Back", 13, 6 27 184 110, tab 12 text "Back Nick:", 14, 12 42 55 17, tab 12 edit "", 15, 72 41 110 20, tab 12 button "Set Back", 16, 65 82 65 25, tab 12 menu "File", 2 item "Exit", 3, 2 } on *:DIALOG:awaydia:init:*: { if (!%away.nick) && (!%back.nick) { set %away.nick $$?="Please enter your away nick:" set %back.nick $$?="Please enter your normal nick:" did -a $dname 7 %away.nick did -a $dname 15 %back.nick } else { did -ra $dname 15 %back.nick did -ra $dname 7 %away.nick } } on *:DIALOG:awaydia:sclick:11,16: { if ($did == 11) { if (!$did($dname,10).text) { scon -a nick $did($dname,7).text } else { scon -a away $did($dname,10).text scon -a nick $did($dname,7).text } } if ($did == 16) { if ($away == $true) { scon -a away scon -a nick $did($dname,15).text } else { scon -a nick $did($dname,15).text } } } on *:DIALOG:awaydia:menu:3: { dialog -x awaydia awaydia } alias -l awaydia { $iif($dialog(awaydialog),dialog -v,dialog -m awaydia) awaydia }