Jump to content

Chain

Sysops
  • Posts

    37
  • Joined

  • Last visited

Everything posted by Chain

  1. Chain

    KVIrc

    so I've modified my KVIrc client and getting more & more into modifying it.
  2. Chain

    msn sCRIPT

    Got that working now the old whisper box
  3. Chain

    msn sCRIPT

    Fixed a part of it now im just missing the emoticons on bottom
  4. Chain

    msn sCRIPT

    A script made to look like MSN Chat
  5. An older gent had an appointment to see a urologist who shared an office with several other doctors. The waiting room was filled with patients. He approached the receptionist desk. The receptionist was a large imposing woman who looked like a wrestler. He gave her his name. In a very loud voice the receptionist said, "Yes, I see your name here. You want to see the doctor about impotence, right?" All of the patients in the waiting room snapped their head around to look at the very embarrassed man. He recovered quickly though, and in an equally loud voice replied, "No, I've come to inquire about a sex change operation and I'd like the same doctor that did yours!"
  6. Looking for a good IRC script with a lot of functions. This is a solid and nicely put together mIRC script Download from Here
  7. From coders-irc-lounge to all chatters on Koach.com we wish you all a Merry Christmas and Happy New Year
  8. ; Invite Script v1.0 - by entropy 2020 - updated: 6/19/20 ; Change: \"#test\" to the channel you want it to work on ; Then: !i <nickname> ; RAWs for /INVITE raw 443:*:{ if (%x_nick) { .notice %x_nick $2 is already on $3 | halt } } raw 341:*:{ if (%x_nick) { .notice %x_nick $qt($2) has been invited to $3 | halt } } raw 401:*:{ if (%x_nick) { .notice %x_nick No such nickname $qt($2) on IRC | halt } } ; Events for /INVITE on *:input:#test:{ if (!i * iswm $1- && $server) { doinvite $2 $me } } on *:text:!i *:#test:{ doinvite $2 $nick } ; Alias alias -l doinvite { if ($me !isop $chan) { .notice $2 I am not a channel operator on $chan } else { set -u3 %x_nick $2 | invite $1 $chan } }
  9. menu * { Rejoin channels . on $network : rejoin $network .on all networks : .scon -at1 rejoin $!network } alias rejoin { var %rejoin.network = $iif($1,$1,$network) var %a = 1, %b = $ini(mirc.ini,chanfolder,0) while %a <= %b { var %channel = $readini(mirc.ini,chanfolder,$ini(mirc.ini,chanfolder,%a)) var %aj = $gettok(%channel,-1,44) var %network = $noqt($gettok(%channel,$iif(%aj isnum,-2,-1),44)) var %channel = $noqt($gettok(%channel,1,44)) if %network == %rejoin.network && %channel !ischan && %aj isnum { .timer -m 1 $calc(500 * %a) join %channel } inc %a } } Have you ever re-connected to a network, only to find that some of your favorite channels are in +R mode? If, like me, you've come across this, even if you have a registered nick, mIRC's favorites folder tries to connect you to those channels whether you have identified for your nick or not. Once you've identified for your nick, simply run this little script, and it'll connect you to all of the channels that are in your favorites.. even handles multiple networks. This can be used from the menu system, or using the /rejoin alias. If isn't specified, then the current network will be used by default. 500 millisecond delay added to the join command for networks that are fussy regarding joining lots of channels quickly. Code By: RusselB
  10. so many options, so many ways you can play with it!
  11. Or simple way of doing it is like this on *:CONNECT:{ if ($network == chat3.koach.com) { msg NickServ identify <password> } if ($network == irc.rizon.org) { msg NickServ identify <password> } if ($network == irc.coders-irc.net) { msg NickServ identify <password> } }
  12. menu * { Auto Identify:/dialog -m _auto_ident _auto_ident } dialog -l _auto_ident { title "Auto Identify" size -1 -1 92 96 option dbu list 1, 2 8 89 34, size vsbar box "", 2, 0 0 92 87 edit "", 3, 3 43 50 10, disable autohs edit "", 4, 3 53 50 10, disable pass autohs text "Nickname", 5, 53 45 36 8, right text "Password", 6, 53 55 36 8, right button "Add", 8, 2 73 16 12, disable button "Edit", 9, 39 73 17 12, disable button "Cancel", 10, 56 73 33 12, disable button "Del", 20, 18 73 21 12, disable edit "", 21, 3 63 50 10, disable autohs text "Network", 22, 53 65 36 8, right text "Developed by Nikolas/updated by Chain", 23, 1 87 90 8, disable center } on *:dialog:_auto_ident:*:*:{ if ($devent == init) { _auto_ident_init } elseif ($devent == sclick) { if ($did == 8) { if (!$hget(_auto_ident,$+($did($dname,3).text,.,$did($dname,21).text))) { hadd -m _auto_ident $+($did($dname,3).text,.,$did($dname,21).text) $did($dname,4).text did -r $dname 3,4,21 did -b $dname 8 _auto_ident_refresh _auto_ident_save } else { noop $input("This Nickname is allready added on your list on the same network,o,Auto Identify) } } elseif ($did == 1) && ($did($dname,1).seltext) { set %_auto_ident_edit 1 var %name = $gettok($did($dname,1).seltext,1,32) var %network = $remove($gettok($did($dname,1).seltext,2,32),$chr(40),$chr(41)) did -ra $dname 3 %name did -ra $dname 4 $+($chr(1),$chr(2),$chr(3),$chr(4)) did -ra $dname 21 %network did -e $dname 9,10,4,20 did -b $dname 3,8 } elseif ($did == 9) { hadd -m _auto_ident $+($did($dname,3).text,.,$did($dname,21).text) $iif($did($dname,4).text == $+($chr(1),$chr(2),$chr(3),$chr(4)),$hget(_auto_ident,$did($dname,3).text),$v1)) did -r $dname 3,4,21 | did -b $dname 9,10,8,20 | did -e $dname 3 | did -u $dname 1 set %_auto_ident_edit 0 _auto_ident_refresh _auto_ident_save } elseif ($did == 10) { did -r $dname 3,4,21 did -b $dname 9,10,8,20 did -e $dname 3 did -u $dname 1 set %_auto_ident_edit 0 } elseif ($did == 20) { hdel _auto_ident $+($did($dname,3).text,.,$did($dname,21).text) did -r $dname 3,4,21 did -b $dname 9,10,8,20 did -e $dname 3 did -u $dname 1 set %_auto_ident_edit 0 _auto_ident_refresh _auto_ident_save } } elseif ($devent == edit) { if ($did($dname,3).text) && ($did($dname,4).text) && ($did($dname,21).text) && (%_auto_ident_edit != 1) { did -e $dname 8 } else { did -b $dname 8 } } } alias -l _auto_ident_init { if (!$hget(_auto_ident)) hmake _auto_ident if ($exists(_auto_ident.hsh)) hload _auto_ident _auto_ident.hsh else hsave _auto_ident _auto_ident.hsh if ($dialog(_auto_ident)) { did -e _auto_ident 3,4,21 _auto_ident_refresh } } alias -l _auto_ident_refresh { did -r _auto_ident 1 var %i = 1 var %e = $hfind(_auto_ident,*,0,w) while (%i <= %e) { var %entry = $hfind(_auto_ident,*,%i,w) var %value = $hget(_auto_ident,%entry) did -a _auto_ident 1 $gettok(%entry,1,46) ( $+ $gettok(%entry,2,46) $+ ) inc %i } } alias -l _auto_ident_save { hsave _auto_ident _auto_ident.hsh } on *:notice:*:?:{ if ($nick == NickServ) && (*This nickname is registered and protected* iswm $1-) { if (!$hget(_auto_ident)) { _auto_ident_init } .msg NickServ identify $$hget(_auto_ident,$+($me,.,$network)) } } This add-on allows you to store your identifies for every nick you have on a network you will specify. The passwords are getting stored in plain text mode, but this wont be a problem. This add-on creates a file called _auto_ident.hsh containing the data of your Nicknames and Identifies on each network.
  13. on *:connect:{ .msg NickServ IDENTIFY urpasshere }
  14. Wow lot of nics I remember and haven't seen in ages
  15. ; Oper Tools for TheArkNet ; by Raccoon 2019 ; This script assumes that opers are not subject to excess flood disconnect. ; You can access this tool from menu by right-clicking the channel chat area. ; Actions are logged to operclosechan.log ; Example: /operclosechan #badchan You guys are misbehaving! ; /OperCloseChan <#channel_name> <reason_required> ALIAS OperCloseChan { var %chan = $1, %reason = $2- if (!%chan) { echo -atic notice * Usage: /OperCloseChan #channel_name This channel is closed due to violation. | return } if (!%reason) { echo 4 -ati * OperCloseChan: You MUST specify a reason for closing the channel! | return } if ($left(%chan,1) !isin $chantypes) { echo 4 -ati * OperCloseChan: %chan is an invalid channel name! | return } if ($me !ison %chan) { set -eu10 %_operclosechan. $+ %chan %reason !JOIN %chan return } ; ----- MSG %chan This channel has been determined to be in violation of the terms of service for this network and is being closed. $& If you have any questions please join #Help and speak to an IRCop. (Reason: %reason $+ ) CS CLEAR %chan USERS CS CLEAR %chan BANS CS DROP %chan %chan MODE %chan +muski $regsubex(randomstring,$str(x,10),/x/g,$r(a,z)) PART %chan echo -stic info * OperCloseChan: Closed channel %chan for %reason write operclosechan.log $asctime %chan %reason } ; by Raccoon 2019 ; End of /NAMES (you joined a channel) RAW 366:*: { var %chan = $2 if ($($+(%,_operclosechan.,%chan),2)) { unset $+(%,_operclosechan.,%chan) OperCloseChan %chan $v1 } ; ... } ; by Raccoon 2019 MENU Channel { - Oper Tools .Close Channel: { OperCloseChan $& $$input(Enter channel to permanently close.,ews,$active,Oper Tools: Close Channel,$active) $& $$input(Enter reason for closing the channel.,ews,$active,Oper Tools: Close Channel) } ;... } ; by Raccoon 2019 ; eof
  16. enjoying the view

    chain.JPG

  17. Chain

    My KVIrc

    This is my Updated KVIrc Client i use 😀
  18. on *:load:{ set %email $$?="enter your email address" set %nspass $$?="enter your nickserv password" set %dnick $$?="enter your default nick" echo -a 6-=- Your Default Password Is: %nspass 6-=- echo -a 6-=- Your Default Email Is: %email 6-=- echo -a 6-=- Your default Nick is %dnick 6-=- nick %dnick } on *:start: { nick %dnick } Menu * { Nickname .Register Nick ..Register: /msg nickserv register %nspass %email ..Group Nick: /msg nickserv group %dnick %nspass ..Check Info: echo -a 6-=- Your Default Password Is: %nspass 6-=- | echo -a 6-=- Your Default Email Is: %email 6-=- | echo -a 6-=- Your default Nick is %dnick 6-=- ..Change Info ...Change Pass: set %nspass $$?="enter your nickserv password" | echo -a 6-=- Your Default Password Is: %nspass 6-=- ...Change Email: set %email $$?="enter your email address" | echo -a 6-=- Your Default Email Is: %email 6-=- ...Change Default Nick: set %dnick $$?="enter your default nick" | echo -a 6-=- Your default Nick is %dnick 6-=- .Ghost Nick: /msg nickserv ghost %dnick %nspass | .timer 1 3 nick %dnick .Auto Identify ..On: enable #autoid ..Off: disable #autoid } on *:NOTICE:*Your nick* isn't registered*:*:{ if ($me == %dnick) { .timer 1 3 echo -a 6-=- Your Nickname Is Not Registered On This Server: $server 6-=- } if ($me != %dnick) { msg nickserv info %dnick all if (Time registered isin $1-) { .timer 1 3 echo -a 6-=- Your Default Nickname %dnick Is Registered On This Server: $server 6-=- } if (isn't registered isin $1-) { .timer 1 3 echo -a 6-=- Your Defalut Nick %dnick And Current Nick $me Are Not Registered 6-=- } } } #autoid on on *:connect:{ /msg nickserv identify %nspass } #autoid end
×
×
  • Create New...