chain
-
Posts
6034 -
Joined
-
Last visited
-
Days Won
17
Content Type
Profiles
Forums
Downloads
Gallery
Events
Articles
Posts posted by chain
-
-
This feeder was made for me and then i lost a file so had to learn err0r and i've updated it.
-
Im a big fan of feeders so I decided to look at what a friend did for mine and learned to make more. I made it for Buzzen
Displays what new in music and artists hope you have fun with it.
-
Just to let you all know deVilScript 3.0 has been released
looking to read more about the script please go to
www.devilscript.com for more info and insights on the script 👍
-
> ;********************************** ;Type in /chanstats ;Make sure active window is a channel ;************************************ alias chanstats { if ($active == $chan) { var %c = $chan echo -a $str(=,50) echo -a Channel Statistics for %c / Mode: $chan(%c).mode echo -a Total Users: $nick(%c,0) / $iif($chan(%c).limit,$chan(%c).limit,No Limit Set) echo -a Op(s): $nick(%c,0,o) echo -a Halfop(s): $nick(%c,0,h) echo -a Voice(s): $nick(%c,0,v) echo -a Regular(s): $nick(%c,0,r) echo -a $str(=,50) } else { echo -a Current active window is not a channel! } } < -
; Color Talker v1.1 - by entropy 2018 ; Only use this script on channels where you are chan op! (or you might get banned) menu channel { - Color Talker $chr(9) $+([,$iif($group(#talker).status == on,On,Off),]) .Turn $iif($group(#talker).status == on,Off,On) { $iif($group(#talker).status == on,.disable,.enable) #talker | echo -a * Color Talker is now: $iif($group(#talker).status == on,On,Off) } .- .Color $chr(9) $+([,%color,]) ..Color 00 (White) { %color = 00 | mymsg %color } ..Color 01 (Black) { %color = 01 | mymsg %color } ..Color 02 (Navy) { %color = 02 | mymsg %color } ..Color 03 (Green) { %color = 03 | mymsg %color } ..Color 04 (Red) { %color = 04 | mymsg %color } ..Color 05 (Brown) { %color = 05 | mymsg %color } ..Color 06 (Purple) { %color = 06 | mymsg %color } ..Color 07 (Orange) { %color = 07 | mymsg %color } ..Color 08 (Yellow) { %color = 08 | mymsg %color } ..Color 09 (Light Green) { %color = 09 | mymsg %color } ..Color 10 (Teal) { %color = 10 | mymsg %color } ..Color 11 (Light Blue) { %color = 11 | mymsg %color } ..Color 12 (Blue) { %color = 12 | mymsg %color } ..Color 13 (Pink) { %color = 13 | mymsg %color } ..Color 14 (Dark Grey) { %color = 14 | mymsg %color } ..Color 15 (Grey) { %color = 15 | mymsg %color } - } alias mymsg { if ($1 == 00) { echo -a * Color: 00 - White } if ($1 == 01) { echo -a * Color: 01 - Black } if ($1 == 02) { echo -a * Color: 02 - Navy } if ($1 == 03) { echo -a * Color: 03 - Green } if ($1 == 04) { echo -a * Color: 04 - Red } if ($1 == 05) { echo -a * Color: 05 - Brown } if ($1 == 06) { echo -a * Color: 06 - Purple } if ($1 == 07) { echo -a * Color: 07 - Orange } if ($1 == 08) { echo -a * Color: 08 - Yellow } if ($1 == 09) { echo -a * Color: 09 - Light Green } if ($1 == 10) { echo -a * Color: 10 - Teal } if ($1 == 11) { echo -a * Color: 11 - Light Blue } if ($1 == 12) { echo -a * Color: 12 - Blue } if ($1 == 13) { echo -a * Color: 13 - Pink } if ($1 == 14) { echo -a * Color: 14 - Dark Grey } if ($1 == 15) { echo -a * Color: 15 - Grey } } #talker off on *:input:*:{ if (/* !iswm $1) { var %c = $+($chr(3),%color,$1-,$chr(3)) !msg $target $iif(c isincs $chan($target).mode,$strip(%c),%c) halt } } #talker end ; Color Talker v1.1 - by entropy 2018 ; Only use this script on channels where you are chan op! (or you might get banned) menu channel { - Color Talker $chr(9) $+([,$iif($group(#talker).status == on,On,Off),]) .Turn $iif($group(#talker).status == on,Off,On) { $iif($group(#talker).status == on,.disable,.enable) #talker | echo -a * Color Talker is now: $iif($group(#talker).status == on,On,Off) } .- .Color $chr(9) $+([,%color,]) ..Color 00 (White) { %color = 00 | mymsg %color } ..Color 01 (Black) { %color = 01 | mymsg %color } ..Color 02 (Navy) { %color = 02 | mymsg %color } ..Color 03 (Green) { %color = 03 | mymsg %color } ..Color 04 (Red) { %color = 04 | mymsg %color } ..Color 05 (Brown) { %color = 05 | mymsg %color } ..Color 06 (Purple) { %color = 06 | mymsg %color } ..Color 07 (Orange) { %color = 07 | mymsg %color } ..Color 08 (Yellow) { %color = 08 | mymsg %color } ..Color 09 (Light Green) { %color = 09 | mymsg %color } ..Color 10 (Teal) { %color = 10 | mymsg %color } ..Color 11 (Light Blue) { %color = 11 | mymsg %color } ..Color 12 (Blue) { %color = 12 | mymsg %color } ..Color 13 (Pink) { %color = 13 | mymsg %color } ..Color 14 (Dark Grey) { %color = 14 | mymsg %color } ..Color 15 (Grey) { %color = 15 | mymsg %color } - } alias mymsg { if ($1 == 00) { echo -a * Color: 00 - White } if ($1 == 01) { echo -a * Color: 01 - Black } if ($1 == 02) { echo -a * Color: 02 - Navy } if ($1 == 03) { echo -a * Color: 03 - Green } if ($1 == 04) { echo -a * Color: 04 - Red } if ($1 == 05) { echo -a * Color: 05 - Brown } if ($1 == 06) { echo -a * Color: 06 - Purple } if ($1 == 07) { echo -a * Color: 07 - Orange } if ($1 == 08) { echo -a * Color: 08 - Yellow } if ($1 == 09) { echo -a * Color: 09 - Light Green } if ($1 == 10) { echo -a * Color: 10 - Teal } if ($1 == 11) { echo -a * Color: 11 - Light Blue } if ($1 == 12) { echo -a * Color: 12 - Blue } if ($1 == 13) { echo -a * Color: 13 - Pink } if ($1 == 14) { echo -a * Color: 14 - Dark Grey } if ($1 == 15) { echo -a * Color: 15 - Grey } } #talker off on *:input:*:{ if (/* !iswm $1) { var %c = $+($chr(3),%color,$1-,$chr(3)) !msg $target $iif(c isincs $chan($target).mode,$strip(%c),%c) halt } } #talker end Clipboard -
/* ** mIRC Automated Execution Script v1.1.0 ** ** Author: Sierra Brown [ SierraKomodo ] ** Website: https://gist.github.com/SierraKomodo/18c877055a49629758260d0690bc9ba6 ** IRC: SierraKomodo @ irc.freenode.net ** ** Provides some better control over automated functions to occur when you start mirc, connect to a ** server, or join a channel. Everything is stored into separated .ini files stored in ** scripts/config by default (Change the global variable %glo.ConfigPath to set a new location - ** Make sure the folder exists.) ** ** Refer to the example entries in the autoconnect, autocommand, and autojoin ini files. ** ** Implemented features: ** * Auto connect on start, including delayed autoconnections, support for multiple servers, and ** full support for most features of the /server command ** * Auto join on connection to server, including delayed auto joins and support for channel keys ** * Auto command on connection to server, allowing executing any IRC commands - Essentially runs ** /raw command here */ ; INI file paths alias -l locGlobalConfig return $+(%glo.ConfigPath, autoexec.ini) alias -l locGlobalConfig.AutoConnect return $+(%glo.ConfigPath, autoexec-autoconnect.ini) alias -l locServerConfig return $+(%glo.ConfigPath, $network, /autoexec.ini) alias -l locServerConfig.AutoJoin return $+(%glo.ConfigPath, $network, /autoexec-autojoin.ini) alias -l locServerConfig.AutoCommand return $+(%glo.ConfigPath, $network, /autoexec-autocommand.ini) alias -l locChannelConfig return $+(%glo.ConfigPath, $iif($2, $2, $network), /, $iif($1, $1, $chan), /autoexec.ini) alias -l locError return $+(%glo.ConfigPath, error.log) on *:START: { if (%glo.ConfigPath == $null) { mkdir scripts mkdir scripts/config var -g %glo.ConfigPath = scripts/config/ } ; Write default config entries/generate files if ($readini($locGlobalConfig, n, Config, bAutoConnect) == $null) { writeini $locGlobalConfig Config bAutoConnect 0 } if ($readini($locGlobalConfig, n, Config, iAutoConnectDelay) == $null) { writeini $locGlobalConfig Config iAutoConnectDelay 5 } if ($readini($locGlobalConfig, n, Config, sAutoConnectList) == $null) { writeini $locGlobalConfig Config sAutoConnectList ExampleServer writeini $locGlobalConfig.AutoConnect ExampleServer sAddress irc.example.com writeini $locGlobalConfig.AutoConnect ExampleServer iPort 6667 writeini $locGlobalConfig.AutoConnect ExampleServer sPassword Password writeini $locGlobalConfig.AutoConnect ExampleServer bSSL 0 writeini $locGlobalConfig.AutoConnect ExampleServer sNick Nickname writeini $locGlobalConfig.AutoConnect ExampleServer sAltNick Alternate Nickname writeini $locGlobalConfig.AutoConnect ExampleServer sRealName Real Name writeini $locGlobalConfig.AutoConnect ExampleServer sIdent Ident writeini $locGlobalConfig.AutoConnect ExampleServer iDelay 5 } ; Auto Connect if (($readini($locGlobalConfig, n, Config, bAutoConnect)) && ($readini($locGlobalConfig, n, Config, sAutoConnectList) != $null)) { ; If autoconnect global delay is set, delay auto connection by X seconds - This delay exists to allow mIRC to load up fully before executing connections. if ($readini($locGlobalConfig, n, Config, iAutoConnectDelay) > 0) { timerglo.AutoConnect -o 1 $v1 atimer.AutoConnect } else { atimer.AutoConnect } } } on *:CONNECT: { if (!$exists(%glo.ConfigPath $+ $network)) { mkdir %glo.ConfigPath $+ $network } ; Write default config entries/generate files if ($readini($locServerConfig, n, Config, bAutoJoin) == $null) { writeini $locServerConfig Config bAutoJoin 0 } if ($readini($locServerConfig, n, Config, iAutoJoinDelay) == $null) { writeini $locServerConfig Config iAutoJoinDelay 3 } if ($readini($locServerConfig, n, Config, sAutoJoinList) == $null) { writeini $locServerConfig Config sAutoJoinList #Example writeini $locServerConfig.AutoJoin #Example sKey Password writeini $locServerConfig.AutoJoin #Example iDelay 5 } if ($readini($locServerConfig, n, Config, bAutoCommand) == $null) { writeini $locServerConfig Config bAutoCommand 0 } if ($readini($locServerConfig, n, Config, iAutoCommandDelay) == $null) { writeini $locServerConfig Config iAutoCommandDelay 1 } if ($readini($locServerConfig, n, Config, sAutoCommandList) == $null) { writeini $locServerConfig Config sAutoCommandList ExampleCommand writeini $locServerConfig.AutoCommand ExampleCommand 1 privmsg NickServ identify password writeini $locServerConfig.AutoCommand ExampleCommand 2 other command to send to the server } ; Auto Join if (($readini($locServerConfig, n, Config, bAutoJoin)) && ($readini($locServerConfig, n, Config, sAutoJoinList) != $null)) { ; If autojoin global delay is set, delay auto join by X seconds - This delay exists to allow mIRC to finish processing any on CONNECT scripts before executing joins. if ($readini($locServerConfig, n, Config, iAutoJoinDelay) > 0) { timer [ $+ [ $cid ] $+ ] .AutoJoin 1 $v1 atimer.AutoJoin } else { atimer.AutoJoin } } ; Auto Command if (($readini($locServerConfig, n, config, bAutoCommand)) && ($readini($locServerConfig, n, Config, sAutoCommandList) != $null)) { ; If autocommand delay is set, delay commands by X seconds - This delay exists to allow mIRC to finish processing any on CONNECT scripts before executing any other commands if ($readini($locServerConfig, n, Config, iAutoCommandDelay) > 0) { timer [ $+ [ $cid ] $+ ] .AutoCommand 1 $v1 atimer.AutoCommand } else { atimer.AutoCommand } } } alias atimer.AutoConnect { ; Cycle through each server name entry in [Config] sAutoConnectList var %loc.AutoConnectList = $readini($locGlobalConfig, n, Config, sAutoConnectList) var %loc.NewWindow = 0 var %loc.Count = 1 while (%loc.Count <= $gettok(%loc.AutoConnectList, 0, 32)) { var %loc.Current = $gettok(%loc.AutoConnectList, %loc.Count, 32) ; Check if the server name provided exists in the autoconnect ini file if ($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sAddress) != $null) { var %loc.Address = $v1 var %loc.Port = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, iPort) != $null, $v1, 6667) var %loc.Password = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, sPassword) var %loc.SSL = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, bSSL) != $null, $v1, 0) var %loc.Nick = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, sNick) var %loc.AltNick = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sAltNick), $v1, $+(%loc.Nick, _)) var %loc.RealName = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sRealName), $v1, mIRC $version) var %loc.Ident = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sIdent), $v1, mirc) var %loc.Delay = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, iDelay) ; Connect to the server if (%loc.Delay != $null) { if (%loc.Nick != $null) { timerglo.AutoConnect. [ $+ [ %loc.Current ] ] -o 1 %loc.Delay server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password -i %loc.Nick %loc.AltNick $+(%loc.Ident, @fake-ident-email.com)) %loc.RealName } else { timerglo.AutoConnect. [ $+ [ %loc.Current ] ] -o 1 %loc.Delay server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password } } else { if (%loc.Nick != $null) { server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password -i %loc.Nick %loc.AltNick $+(%loc.Ident, @fake-ident-email.com)) %loc.RealName } else { server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password } } ; Set the 'New Window' flag to open all future server connections in a new connection window. if (%loc.NewWindow == 0) %loc.NewWindow = 1 unset %loc.Address %loc.Port %loc.Password %loc.SSL %loc.Nick %loc.AltNick %loc.RealName %loc.Ident } ; Go to next entry unset %loc.Current inc %loc.Count continue :error echo -a * AutoExec Error in atimer.AutoConnect %loc.Current : $error write $locError $logstamp - AutoExec Error in atimer.AutoConnect %loc.Current : $error unset %loc.Current ; reseterror inc %loc.Count continue } return :error echo -a * AutoExec Error in atimer.AutoConnect : $error write $locError $logstamp - AutoExec Error in atimer.AutoConnect : $error ; reseterror } alias atimer.AutoJoin { ; Cycle through each channel entry in [Config] sAutoJoinList var %loc.AutoJoinList = $readini($locServerConfig, n, Config, sAutoJoinList) var %loc.Count = 1 while (%loc.Count <= $gettok(%loc.AutoJoinList, 0, 32)) { var %loc.Current = $gettok(%loc.AutoJoinList, %loc.Count, 32) ; Check if already in channel if ($me !ison %loc.Current) { var %loc.Key = $readini($locServerConfig.AutoJoin, n, %loc.Current, sKey) var %loc.Delay = $readini($locGlobalConfig.AutoJoin, n, %loc.Current, iDelay) ; Join the channel if (%loc.Delay != $null) { timer [ $+ [ $cid ] $+ ] .AutoJoin. [ $+ [ %loc.Current ] ] join %loc.Current %loc.Key } else { join %loc.Current %loc.Key } } ; Go to next entry inc %loc.Count continue :error echo -a * AutoExec Error in atimer.AutoJoin %loc.Current ( CID: $cid ) : $error write $locError $logstamp - AutoExec Error in atimer.AutoJoin %loc.Current ( CID: $cid ) : $error ; reseterror inc %loc.Count continue } return :error echo -a * AutoExec Error in atimer.AutoJoin ( CID: $cid ) : $error write $locError $logstamp - AutoExec Error in atimer.AutoJoin ( CID: $cid ) : $error ; reseterror } alias atimer.AutoCommand { ; Cycle through each command entry in [Config] sAutoCommandList var %loc.AutoCommandList = $readini($locServerConfig, n, Config, sAutoCommandList) var %loc.Count = 1 while (%loc.Count <= $gettok(%loc.AutoCommandList, 0, 32)) { var %loc.Current = $gettok(%loc.AutoCommandList, %loc.Count, 32) ; Loop through each command line var %loc.Count2 = 1 while ($readini($locServerConfig.AutoCommand, n, %loc.Current, %loc.Count2) != $null) { raw $readini($locServerConfig.AutoCommand, n, %loc.Current, %loc.Count2) inc %loc.Count2 continue :error echo -a * AutoExec Error in atimer.AutoCommand %loc.Current entry %loc.Count2 ( CID: $cid ) : $error write $locError $logstamp - AutoExec Error in atimer.AutoCommand %loc.Current entry %loc.Count2 ( CID: $cid ) : $error ; reseterror inc %loc.Count2 continue } inc %loc.Count continue :error echo -a * AutoExec Error in atimer.AutoCommand %loc.Current ( CID: $cid ) : $error write $locError $logstamp - AutoExec Error in atimer.AutoCommand %loc.Current ( CID: $cid ) : $error ; reseterror inc %loc.Count continue } return :error echo -a * AutoExec Error in atimer.AutoCommand ( CID: $cid ) : $error write $locError $logstamp - AutoExec Error in atimer.AutoCommand ( CID: $cid ) : $error ; reseterror } -
on *:TEXT:*:#: { if (($nick !isop $chan) && ($me isop $chan)) { if ($mhighlightcheck($chan,$1-) > 5) { ban -k $chan $nick 3 [AutoKick] Mass Highlight. } } } alias mhighlightcheck { ;$1 chan ;$2 text ;returns number of highlighted nicks ; var %count = 0, %x = 1, %text = $replace($strip($2-),$chr(44),$chr(32)) while ($numtok(%text,32) > 0) { if ($gettok(%text,%x,32) ison $1) { inc %count } else { } var %text $remtok(%text,$v1,0,32) } return %count -
; Whois mods by Sebastien (xplo) ; $comchan alias from someone in a help chan somewhere. ; If you touch at something below this line, you WILL fuckup something. ; Example: http://i.imgur.com/tLi75RP.png ; /w nick alias w { .enable #whois | whois $1 $1 } #whois off raw 311:*: { echo $color(notice) -ai2 14[7###14] $iif($me == $2,Looking at yourself?,/whois7 $2) echo -ai2 2Nick:14 $2 echo -ai2 2Address:14 $3 $+ @ $+ $4 echo -ai2 2FullName:14 $6- halt } raw 379:*:{ echo -ai2 2Is using modes:14 $6- | halt } raw 378:*:{ echo -ai2 2Is Connecting from:14 $6- | halt } raw 319:*: { echo -ai2 2Channels:4 $sorttok($3-,32,c) $iif($2 == $me,halt,echo -ai2 2Common Channels:11 $AdoComChan($2)) halt } raw 312:*: { echo -ai2 2Server:14 $3 echo -ai2 2Description:14 $4- halt } raw 330:*:{ echo -ai2 2Username: 4 $+ $3 $+ | halt } raw 338:*:{ echo -ai2 2Host:14 $3 | halt } raw 307:*:{ echo -ai2 3 $+ $2 $3- | halt } raw 301:*:{ echo -ai2 2 $+ $2 is away:7 $3- | halt } raw 313:*:{ echo -ai2 2Status:14 $5- | halt } raw 310:*:{ echo -ai2 2 $+ $2 14 $+ $3- | halt } raw 320:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt } raw 335:*:{ echo -ai2 2 $+ $2 14 Is a Bot on $network (4BOT14) | halt } raw 671:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt } raw 317:*:{ echo -a 2Idle time:4 $duration($3) if ($4 isnum) echo -ai2 2Online time:14 $asctime($4) halt } raw 318:*:{ echo $color(notice) -ai2 14[7###14] End of Whois for7 $2 linesep -a .disable #whois halt } alias AdoComChan { var %AdoComCh = 1 while (%AdoComCh <= $comchan($1,0)) { var %AdoComLi = %AdoComLi $comchan($1,%AdoComCh) inc %AdoComCh } if (%AdoComLi == $null) { return None } else { return %AdoComLi } } #whois end #EOF
-
; Script to display whois information in an @window ; - Ook ; ; All the whois raws are captured but only the nick, address, idle, server, channels info is shown ; with a little tinkering more can easily be added. ; ; v1.0 ; - First release ; v1.1 ; - fixed possible error in endofwhois when $address fails. ; - added some more error output. ; - changed tabs to cut off text that exceeds limits. ; - changed code to update horiz scrollbar on end of whois (doesnt display whole line still, this is mircs fault) ; - channel name no longer needed, will take active window as channel if no channel name given. ; ; /whoischan <chan> ; $1 = chan alias whoischan { if ($0 > 1) { echo -aqmlbfti2 [whoischan] Usage: /whoischan <#channel> | halt } var %i = 1, %c = $iif($0,$1,$active) window -lM -t20,100,130,170 @whoischan clear @whoischan aline @whoischan $+( Nick,$chr(9),Address,$chr(9),Idle Time,$chr(9),Server,$chr(9),Channels) aline @whoischan while ($nick(%c,%i) != $null) { var %n = $v1 aline @whoischan $+(%n,$chr(9),$iif($address(%n,5) != $null,$v1,unknown),$chr(9),0,$chr(9),-,$chr(9),$chr(160)) _pushwhois %n %n inc %i } !return :error !echo 4 -s whoischan: $error } alias -l _nnet { !if ($network != $null) return $v1 !elseif ($server($server).group != $null) { !if ($v1 !isnum) return $v1 } !return Default :error !echo 4 -s _nnet: $error } ; start temp data hashtable functs ; $1 = var (delete temp var) alias -l tdel !if ($hget(whoischan)) hdel whoischan $1 ; $1 = var wildcard (del temp vars that matcvh wildcard) alias -l twdel !if ($hget(whoischan)) hdel -w whoischan $1 ; $1 = var, $2- = data (add a temp var) alias -l tadd !hadd whoischan $1- ; $1 = var (get the contents of a temp var) alias -l tget !return $hget(whoischan,$1-) ; end temp data hashtable functs alias -l _pushwhois { !var %cid = $cid !hadd -m $+(%cid,-whois-queue) $1 $1- if (!$timer($+(%cid,-pushwhois))) $+(.timer,%cid,-pushwhois) 1 0 _pushwhois.dump !return :error !echo 4 -s _pushwhois: $error } alias -l _pushwhois.dump { !var %cid = $cid, %limit = $tget($+(%cid,-maxtarget-WHOIS)) !if (!%limit) var %limit = 1 !if ($tget($+(%cid,enable_combined_whois))) { ; if the network supports it combine the /whois into one !while ($hget($+(%cid,-whois-queue),1).data != $null) { !var %n = $v1 !if ($numtok(%n,32) == 1) { ; single nick /whois nick style, these can be combined. !var %whois = $addtok(%whois,%n,44) !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item !if ($numtok(%whois,44) == %limit) break } ; otherwise its /whois nick nick style, these can't be combined. !elseif (%whois != $null) break !else { !var %whois = %n !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item !break } !inc %cnt } } !else { ; otherwise do a single whois & pause before next !var %whois = $hget($+(%cid,-whois-queue),1).data !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item } if ($hget($+(%cid,-whois-queue),0).item > 0) $+(.timer,%cid,-pushwhois) 1 2 _pushwhois.dump else hfree $+(%cid,-whois-queue) if (%whois != $null) whois %whois !return :error !echo 4 -s _pushwhois.dump: $error } RAW 5:*: { !if ($hget(whoischan) == $null) hmake whoischan 100 !var %cid = $cid, %tmp = $matchtokcs($1-,SILENCE,1,32) if (%tmp) tadd $+(%cid,-silence) $gettok(%tmp,2,61) else tadd $+(%cid,-silence) 0 !var %tmp = $matchtokcs($1-,TOPICLEN,1,32) if (%tmp) tadd $+(%cid,-topiclen) $gettok(%tmp,2,61) else tadd $+(%cid,-topiclen) 0 !var %tmp = $matchtokcs($1-,NICKLEN,1,32) if (%tmp) tadd $+(%cid,-nicklen) $gettok(%tmp,2,61) else tadd $+(%cid,-nicklen) 0 !var %tmp = $matchtokcs($1-,UHNAMES,1,32) if (%tmp) tadd $+(%cid,-uhnames) 1 else tadd $+(%cid,-uhnames) 0 !var %tmp = $matchtokcs($1-,TARGMAX,1,32) !if (%tmp) { !var %cnt = 1, %tmp = $gettok(%tmp,2,61) !while ($gettok(%tmp,%cnt,44) != $null) { tadd $+(%cid,-maxtarget-,$gettok($v1,1,58)) $gettok($v1,2,58) !inc %cnt } } else twdel $+(%cid,-maxtarget-*) !var %tmp = $matchtokcs($1-,MAXLIST,1,32) !if (%tmp) { !var %cnt = 1, %tmp = $gettok(%tmp,2,61) !while ($gettok(%tmp,%cnt,44) != $null) { !var %t = $+(%cid,-maxlist-,$gettok($v1,1,58)) tadd %t $gettok($v1,2,58) if ($tget(%t) == $null) tadd %t 1 !inc %cnt } } else twdel $+(%cid,-maxlist-*) !var %tmp = $matchtokcs($1-,AWAYLEN,1,32) if (%tmp) tadd $+(%cid,-awaylen) $gettok(%tmp,2,61) else tadd $+(%cid,-awaylen) 0 !var %tmp = $matchtokcs($1-,KICKLEN,1,32) if (%tmp) tadd $+(%cid,-kicklen) $gettok(%tmp,2,61) else tadd $+(%cid,-kicklen) 0 !var %nnet = $_nnet !if ($istok(DALnet UnderNet BeyondIRC IRCHighway SwiftIRC Genscripts,%nnet,32)) { ; net supports combined whois tadd $+(%cid,enable_combined_whois) 1 !if ($tget($+(%cid,-maxtarget-WHOIS)) == $null) { ; max targets wasn't set for some reason, try a known value for that network. if (%nnet == Undernet) tadd $+(%cid,-maxtarget-WHOIS) 12 elseif (%nnet == Genscripts) tadd $+(%cid,-maxtarget-WHOIS) 20 else tadd $+(%cid,-maxtarget-WHOIS) 4 } } else tdel $+(%cid,enable_combined_whois) } ; output line = nick address idle-time server channels ;275 HighwayIRC RPL_WHOISSECURE "<TheirNick> is using a secure connection (SSL)" raw 275:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;301 RPL_AWAY "<nick> :<away message>" raw 301:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;307 DALnet RPL_WHOISREGNICK Registered Nick “:<nick> is a registered nick raw 307:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;308 DALnet RPL_WHOISADMIN Server Admin (may be dropped) raw 308:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;309 DALnet RPL_WHOISSADMIN Services Admin (may be dropped) “: <nick> is a services adminstrator raw 309:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;310 DALnet RPL_WHOISHELPOP "%s :looks very helpful.", “<nick> <help status msg>" - A sample reply is: “White_Dragon looks very helpful.” raw 310:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;311 RPL_WHOISUSER "<nick> <user> <host> * :<real name>" - The '*' in RPL_WHOISUSER is there as the literal character and not as a wild card raw 311:*: { !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { var %l = $v1 haltdef rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160),5,9) } } ;312 RPL_WHOISSERVER "<nick> <server> :<server info>" raw 312:*: { ;echo -s whoischan312: $1- !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { var %l = $v1 haltdef rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $3,4,9) } } ;313 RPL_WHOISOPERATOR "<nick> :is an IRC operator" raw 313:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;316 RPL_WHOISCHANOP raw 316:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;317 RPL_WHOISIDLE "<nick> <integer> :seconds idle" raw 317:*: { ;echo -s whoischan317: $1- !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { var %l = $v1 haltdef rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $duration($3),3,9) } } ;318 RPL_ENDOFWHOIS "<nick>(,nick,nick,...) :End of /WHOIS list" raw 318:*: { ;echo -s whoischan318: $1- !var %i = 1 !while ($gettok($2,%i,44) != $null) { !var %n = $v1 !if ($fline(@whoischan,$+(%n,$chr(9),*),1,1) != $null) { var %l = $v1 haltdef if ($address(%n,5) != $null) rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $v1,2,9) } inc %i } } ;319 RPL_WHOISCHANNELS "<nick> :{[@|+]<channel><space>}" raw 319:*: { !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { var %l = $v1 haltdef var %txt = $line(@whoischan,%l) rline @whoischan %l $puttok(%txt,$addtok($gettok(%txt,5,9),$3-,32),5,9) window -b @whoischan } } ;330 Undernet/Quakenet RPL_WHOISACCOUNT "<source> 330 <target> <nick> <account> :is authed as" returned when using the WHOIS command on UnderNet "is logged in as" is shown as text raw 330:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;335 RPL_WHOISBOT raw 335:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;338 RPL_WHOISACTUALLY ":%s 338 %s :%s is actually %s@%s [%s]" raw 338:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;615 HighwayIRC RPL_WHOISMODES "<TheirNick> is using modes <modes>" raw 615:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef ;616 HighwayIRC RPL_WHOISREALHOST "<TheirNick> real hostname <host> <ip>" raw 616:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef
-
Luv this script working on the translation
-
Get ready the buzzies are coming as we are working hard on the different topics and more creative then last year. let the games begin 🤣
-
-
Our server is down until we update the panel and get things rolling. As soon as i Have an update ill inform all when coders-irc has its chanserv linked up and all.
-
We have seen a lot of scripts site closing and all the snippets leave with them, Our goal now is to collect from various script sites and in any language and try to preserve the scripts and snippets. After hawkee closed it was devastating to see all that work and codes lost forever. so it's now my goal to look everywhere and get as much stored in our data base and preserve them all if you know of a scripting site let us know.
-
Im one of the Staff that help with Buzzen chat. We had a rough year in 2024 and a lot of drama has gone and passed, 2025 looks like a great promising year with new chatter's comming in. We offer a lot at Buzzen we offer free chat and we offer free owner created rooms. we also made it that you can present your profile to anyway you wish. And you can also open your own blog on buzzen. we have great developers that maintain and run buzzen, our server is always being updated and we have saftey and privacey. Come and give us a try we also allow mIRC using our address but do not allow VPN's If your looking to open a script room well there is one on Buzzen, it's called IRCommunity which is run by err0r the owner of TG007. If your looking for trivia we have it, if your looking to join a radio station we have it. So if I have peeked your curosity come on in and try us!!www.buzzen.net
-
I've been with these guys for 3 yrs and they always have challanges that still need to be claimed. Butt its a great place to study stuff and see what people do for hack challanges.
-
We are setting into the new years and we at coders-irc like to wish all a very happy new years and all the best and thanks for continuing with us and supporting Coders-irc
-
alias giris { return giris } on !1:JOIN:#: { window -De @Giris var %mask = $mask($fulladdress,2) var %nfname = $mask($fulladdress,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$nick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) ; update the nicks writeini -n giris.txt %mask nicks %nicks ; update the seen time writeini -n giris.txt %mask seentime $date ; update the fullname writeini -n giris.txt %mask fullname %fname echo -t @giris 4Bağlanan 5 $nick ------------------------------------------ echo -t @giris 4IP Adresi 5 %mask echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks) echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname) echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime) echo -t @giris 4Kanal:5 $chan echo -t @giris 2End $nick ------------------------------------------ } alias ntrack { var %mask = $address($1,2) var %nfname = $address($1,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$nick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) echo -a 12 $1 on the ip %mask has used the nicks: $readini(giris.txt, %mask, nicks) and the full names: $readini(giris.txt, %mask, fullname) and was last seen on $readini(giris.txt, %mask, seentime) } menu nicklist { NickTrack:ntrack $$1 } alias giris.txt { return giris.txt } on !1:nick: { window -De @giris var %mask = $mask($fulladdress,2) var %nfname = $mask($fulladdress,0) ; get the previous nicks var %nicks = $readini(giris.txt, %mask, nicks) ; get the pervious full names var %fname = $readini(giris.txt, %mask, fullname) ; add the new nick ($addtok will take care of duplicates) var %nicks = $addtok(%nicks,$newnick,32) ; add the new fname ($addtok will take care of duplicates) var %fname = $addtok(%fname,$ial(%mask).user,32) ; update the nicks writeini -n giris.txt %mask nicks %nicks ; update the seen time writeini -n giris.txt %mask seentime $date ; update the fullname writeini -n giris.txt %mask fullname %fname echo -t @giris 4Bağlanan 5 $nick ------------------------------------------ echo -t @giris 4IP Adresi 5 %mask echo -t @giris 4Önceki Nick:5 $readini(giris.txt, %mask, nicks) echo -t @giris 4Kullanıcı Adı:5 $readini(giris.txt, %mask, fullname) echo -t @giris 4Son Görülen Zaman 5 $readini(giris.txt, %mask, seentime) echo -t @giris 4Kanal:5 $chan echo -t @giris 2End $nick ------------------------------------------ }
-
on ^&*:text:*:*:{ var %text = $mid($rawbytes, $calc($pos($rawbytes, $chr(32), 3) + 2)) if (!$isutf(%text)) { echo -mbflirt $iif(#, #, $nick) $+(< , $left($nick(#, $nick, a, r).pnick, 1), $nick, >) $turkish(%text) haltdef } } alias turkish $iif($isid, return, echo -a) $utfdecode($utfencode($1-, 162))
-
raw 352:*:{ proxy $4 } on *:snotice:*Client connecting*: { .who +I $9 } alias proxy { var %rand $rand(0,99999) sockopen $+(ktor,%rand) www.checkingtools.com 80 sockmark $+(ktor,%rand) $1 } on *:sockopen:ktor*: { var %komut sockwrite -nt $sockname, %post $+(ip=,$sock($sockname).mark,&GO%21=GO%21) %komut POST /ip_check HTTP/1.1 %komut Host: www.checkingtools.com %komut Connection: keep-alive %komut Content-Length: $len(%post) %komut Cache-Control: max-age=0 %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %komut Origin: http://www.checkingtools.com %komut User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.64 Safari/537.31 %komut Content-Type: application/x-www-form-urlencoded %komut Accept-Encoding: gzip,deflate,sdch %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.3 %komut Cookie: PHPSESSID=90b5ae6ed385b312ea3dcccb50c126e1; ck_lang=en; __atuvc=18%7C1 %komut %komut %post } on *:sockread:ktor*: { var %x | sockread %x | tokenize 32 %x if $regex($1-,/(XBL|SBL|XBL|SPAMCOP|CBL|NJABL|SURBL|HTTP:BL).+red/i) { gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. if !$window(@prxy-tor) { window -neg1 @prxy-tor } | echo @prxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. sockclose $sockname halt } }
-
on ^1:SNOTICE:*:{ if (Connecting isin $1-) { if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis } echo 2 -t @Giris/Cikis 3Giriş :2 Nick:4[4 $8 4] 2Network:4[3 $7 4] 2Host:4[3 $9 4] | halt } if (exiting isin $1-) { if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis } echo 2 -t @Giris/Cikis 14Çıkış: 7Host:4[7 $8 4]7 Network:4[7 $7 4] | halt | halt } }
Kodu remoteye ekliyorsunuz. Oper yetkiniz olması lazım. giriş çıkışlar görünmüyorsa : /mode Nickiniz +s nfF şeklinde kendinize mod vermelisiniz.
-
on ^1:SNOTICE:*:{ if (/whois isin $1-) { if ($window(@Whois) == $null) { window -ne @Whois } echo 2 -t @Whois 4Whois Çeken Nick 2[ $2 ]4 Ip: 2[ $3 ] | halt } if (his/her isin $1-) || (Failed isin $1-) || (Denied isin $1-) || (tkl isin $1-) || (Q: isin $1-) || (used isin $1-) || (OperOverride isin $1-) || (Mismatch: isin $1-) || (is now isin $1-) || (Received isin $1-) { if ($window(@Opers) == $null) { window -ne @Opers } echo 2 @Opers $1- | halt } if (gecos isin $1-) { if ($window(@Bilgi) == $null) { window -ne @Bilgi } echo 2 -t @Bilgi 4 Fullname Değişimi:1 $1 tarafından1 $6 $+ 1'nin fullnamesi değiştirilerek:4 $10- 1 $+ yapıldı. | halt } if (virtual isin $1-) { if ($window(@Bilgi) == $null) { window -ne @Bilgi } echo 2 -t @Bilgi 4 Host Değişimi:1 $1 tarafından1 $7 $+ 1'nin hostu değiştirilerek:4 $11- 1 $+ yapıldı. | halt } if (Locops isin $1-) { if ($window(@UyarI) == $null) { window -ne @UyarI } echo 2 -t @UyarI $1- | halt } if (G:Line isin $1-) || (Z:line isin $1-) || (K:line isin $1-) { if ($window(@XLine) == $null) { window -ne @XLine } echo 2 -t @XLine $1- | halt } if (removed isin $1-) { if ($window(@XLine) == $null) { window -ne @XLine } if (%unbanip isin $1-) || (%xlinex isin $1-) { echo -a *** 12 $+ %xlinex 5Adresinin Banı Açıldı. | unset %xline* | unset %unban* } echo 2 -t @XLine $1- | halt } if (tried isin $1-) { if ($window(@baskakanal) == $null) { window -ne @baskakanal } echo 2 -t @baskakanal $1- | halt } if (banned isin $1-) { if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis } echo 2 -t @Giris/Cikis $1- | halt } if (obtained isin $1-) { if ($window(@SupasGirdi) == $null) { window -ne @SupasGirdi } echo 2 -t @SupasGirdi $1- | halt } if (exiting isin $1-) { if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis } echo 2 -t @Giris/Cikis 14Çıkış: 7Nick:4[14 $gettok($8,1,33) 4]7 Network:4[14 $7 4] | halt | halt } if (Connecting isin $1-) { if ($window(@Giris/Cikis) == $null) { window -ne @Giris/Cikis } echo 2 -t @Giris/Cikis 3Giriş :2 Nick:4[4 $8 4] 2Network:4[3 $7 4] 2Host:4[3 $9 4] | halt } if (Forbidding isin $1-) || (Q:lined isin $1-) { if ($window(@Q-Lined) == $null) { window -ne @Q-Lined } echo 2 -t @Q-Lined $1- | halt } if (Expiring isin $1-) || (Shun isin $1-) { if ($window(@XLine) == $null) { window -ne @XLine } echo 2 -t @XLine 2Shun :2 Nick:4[4 $6 4] 2Network:4[3 $7 4] 2Uygulayan:4[3 $9 4] | halt } if (Spamfilter isin $1-) { if ($window(@Spam) == $null) { window -ne @Spam } echo 2 -t @Spam $1- halt } if (is now isin $1-) { write oper.txt $date $timestamp $1- } }
-
on *:TEXT:selam*:#: { /msg $chan Aleykum Selam Hoş Geldin $nick }
Oto selam alma remotesini mircten remote kısmına eklediğinizde hemen çalışmaya başlıyacaktır.
İkinci olarak Nick seslenme uyarısı nı paylaşacağım.
Bu remotede neredeyse bütün mirclerde kullanılmaktadır. Farak Bizdeki remote birazdaha gelişmiş
ve daha çok işlev görmektedir.on *:text:$(* $+ $me $+ *):*:{ if $active != $iif($left($target,1) != $chr(35),$nick,$target) && !$istok(Nick1 Nick2 Nick3 ,$nic
Mirc seslenme uyarısı kodu yukardaki gibidir. Bu kodun 2 farklı özelliği vardır
1) hem kanal hemde özelde selenmelere uyarı vermektedir.
2) Kodun içerisinde yer alan ” Nick1 Nick2 Nick3 ” Olan yerlere size seslenildiğinde uyarı vermesini
istemediğiniz nickleri yazabilirsiniz. Özellikle bot nicklerini kullanıyorum ben.Şimdi kendi kullandığım yine ustteki kod kadar özel olan bir remote paylaşacağım. Bu remote Help kanalına user geldiğinde uyarı veriyor fakat help kanalına gelen Helper , oper veya admin ise uyarı vermiyor ve karışıklık olmuyor.
on !*:join:#Help: if !$regex($address($nick,5),/oper|admin/i) { $+(.timer,$nick) 1 1 chex $chan $nick } alias chex { if $2 ison $1 && $2 isreg $1 && $2 !isvoice $1 { var %i = 1 while %i < = $nick($1,0) { if $regex($nick($1,%i).pnick,/(%|@)/i) && !$regex($nick($1,%i).pnick,/(&|~)/i) { set %onicks %onicks $nick($1,%i) } inc %i } echo -a %uyari 15,1 • 7 $2 15,1 #HeLp 7,1 kanalından yardım bekliyor.. unset %onicks } }Bu kodu da diğerleri gibi remote kısmına atmanız yeterli. Özellikle Türk Helperlerinde olmazsa olmaz kodlardan birtanesidir. sitemizdeki türkçe mirc scripttede kullandığım bir koddur. türkçe mirc 6.35 versionunda çok iş yapıyor.
Şimdi paylaşacağım kodda mirc ile sohbet eden neredeyse butun oper admin ve helperlerde mevcut olan bir kodun gelişmiş halidir. Bu kod ile /amsg Komutunu uyguladığımızda seçtiğimiz kanallara mesajın gitmesini engelliyor. Ornek olarak #Help veya #Operhelp kanalı gibi.
alias amsg { var %ahua = 1 while $chan(%ahua) { if !$istok(#xLine #helpEgitim #help #sales #OperHelp #Yardim #heLpSinav #HelpStaff #helpteam #mircheLp #Logs #Bots ,$v1,32) { msg $chan(%ahua) $1- } inc %ahua } }
Kodu yine aynı şekilde remote kısmına ekleyip tamam dediğimizde çalışmaya başlıyacaktır. belirtilen kanallar kendi kullandığım kanallar olup istediğiniz gibi değişiklik yapabilirsiniz.
Kısa remote kodlarının devamı için diğer konuya geçebilirsiniz. sayfa çok uzun olmasın diye ordan devam edeceğim. -
alias rasgele { if $nick($active,0) < 3 { echo -a Kanalda üç kişi bile yok ne rasgelesi !!! | halt } if $me !isop $chan { echo -a $me sen bir op ol ondan sonra voice dağıtırsın :) | halt } var %rasgele $nick($active,$rand(1,$nick($active,0))) if %rasgele !isreg $active { halt } if %rasgele == $me { var %rasgele $nick($active,$rand(1,$nick($active,0))) } if %rasgele !isreg $active { halt } mode $active +v %rasgele .var %sure $rand(99,300) .timer -h 1 750 msg $active Benden rasgele voice kazandınız: %rasgele :) Voicenizin süresi: %sure saniye .timer $+ %rasgele 1 %sure if %rasgele ison $active mode $active -v %rasgele $chr(124) if %rasgele ison $active msg $active Rasgele voicenizin süresi doldu: %rasgele }
@nfact
in Buzzen
Posted
; ============================================== ; Napa182's Updated By Chain 2025 FUNNY NICK FACTS – BUZZEN READY v3 ; NO INTERNET | NO SOCKETS | WORKS 100% ; ============================================== alias -l nfact { var %nick = $1 var %gender = $2 ; === MALE FACTS === if (%gender == m) { var %facts = secretly runs a underground fight club every Friday|was once banned from 3 zoos for feeding the animals pizza|has a PhD in meme theory|can solve a Rubik's cube in 7 seconds blindfolded|once arm-wrestled a bear and won|invented the word "yeet" in 2003|has a tattoo of his own nickname in Comic Sans|can quote every Star Wars movie backwards|sleeps with a nightlight shaped like a lightsaber|believes pineapple belongs on pizza and will die on that hill } ; === FEMALE FACTS === elseif (%gender == f) { var %facts = has a secret lair under her bed full of glitter bombs|can make any outfit look like it cost $10,000|once won a staring contest with a cat|runs a black market for cute stickers|can parallel park a tank|has a playlist for every mood, including "revenge"|taught her phone to say "yas queen" on command|owns 47 shades of lipstick and named them all|can silence a room just by raising one eyebrow|once beat a GPS at navigation } ; === OTHER / NON-BINARY / NEUTRAL === else { var %facts = communicates with squirrels using only clicks|has a pet rock named Kevin and takes it on vacation|can turn any argument into a rap battle|invented a dance move called "The Glitch"|runs on caffeine, chaos, and cosmic vibes|once hacked reality with a paperclip|believes in 7 impossible things before breakfast|has a backup personality just in case|can fold a fitted sheet in under 10 seconds|speaks fluent sarcasm and emoji } ; Pick random fact & replace $1 with nick var %fact = $gettok(%facts, $rand(1, $numtok(%facts, 124)), 124) return 10@nfact: 15 $+ %nick $+ $replace(%fact, $1, 15 $+ %nick $+ ) } ; ============================================== ; TRIGGER: @nfact Nick m/f/o ; ============================================== on $*:text:/^@nfact\s+(\S+)\s+([mfo])$/iS:#: { var %nick = $regml(1) var %gender = $lower($regml(2)) var %chan = # if (%nick ison %chan) { var %fact = $nfact(%nick, %gender) msg %chan %fact } else { notice $nick Sorry, 15 $+ %nick is not in 15 $+ %chan } } ; ============================================== ; LOAD MESSAGE ; ============================================== on *:load: { echo 12 -a 15Napa182'sUpdated By Chain Funny Nick Facts v3 4(INSTANT • OFFLINE • BUZZEN READY) echo 12 -a 14Type: @nfact YourNick m (or f/o) echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+ $chr(171) $+ $chr(164) $+ $chr(88) $+ $chr(167) $+ $chr(199) $+ $chr(174) $+ $chr(238) $+ $chr(254) $+ $chr(116) $+ $chr(48) $+ $chr(174) $+ $chr(167) $+ $chr(88) $+ $chr(164) $+ $chr(187) º0,1¯15,1¯14,1¯) $+ $chr(153) }