My friend has this cool amsg script and back script and I recently ask him to give me what he has and he gave me this. I can't decipher it, but I know there's some IRC people here please help me. If these code of scripts don't work/wrong, then sorry for waisting your time. [hide=Very Long. Said it had all his scripts] menu status {
~DarK 1.24~
.Turn off DarK 1.24:/.disable #Dark | echo -a DarK IRC disabled.
.Turn on DarK 1.24:/.enable #Dark | dwindow | echo @DarkIRC DarK IRC enabled.
}
#Dark on
;| | Dark 1.23 | |;
ctcp *:VERSION:?: {
ctcpreply $nick VERSION $Dline created by Dan N., CopyRight 2006.
}
;|||||||||| -=-=-=-||-=-=-=- ||||||||||||;
; ; Written by Dan N., all rights reserved, CopyRight 2006. ; ;
; ~+::-::+~ ~+::-::+~ ~+::-::+~ /|-|.. ~+::-::+~ ~+::-::+~ ~+::-::+~ ;
; ~+::-::+~ ~+::-::+~ ~+::-::+~ /|-|.. ~+::-::+~ ~+::-::+~ ~+::-::+~ ;
; /server irc.swiftirc.net 6667 -j #seclan
;; Aliases needed for scripts to function ;;
alias mesg {
if ($me isop $1) {
/echo -tl $1 ,,12,,̢̮â¬Å¡Ãâë,,,,7 ,,4@,,3 $+ $me ,,12,,̢̮â¬Å¡Ãâû,,,, $2-
.msg $1 $2-
}
else {
if ($me ishop $1) {
/echo -tl $1 ,,12,,̢̮â¬Å¡Ãâë,,,,7 ,,3,,%,,,,3 $+ $me ,,12,,̢̮â¬Å¡Ãâû,,,, $2-
.msg $1 $2-
}
else {
if ($me isvoice $1) {
/echo -tl $1 ,,12,,̢̮â¬Å¡Ãâë,,,,7 ,,10,,+,,,,3 $+ $me ,,12,,̢̮â¬Å¡Ãâû,,,, $2-
.msg $1 $2-
}
else {
if ($me isreg $1) {
/echo -lt $1 ,,12,,̢̮â¬Å¡Ãâë,,,,3 $me ,,12,,̢̮â¬Å¡Ãâû,,,, $2-
.msg $1 $2-
}
else { if ($me !ison $1) {
/echo -lt $1 ,,12,,̢̮â¬Å¡Ãâë,, ,,7??,,3 $+ $me ,,12,,̢̮â¬Å¡Ãâû,,,, $2-
.msg $1 $2-
}
}
}
}
}
}
alias amesg {
var %MyChans = $comchan($me,0)
var %MyChanz = 1
while (%MyChanz <= %MyChans) {
.echo -t $comchan($me, %MyChanz) ,,12,,̢̮â¬Å¡Ãâë,,,,3 $me ,,12,,̢̮â¬Å¡Ãâû,,,, ,,14[,,3G,,5lobal,,14] $1-
inc %MyChanz
}
.amsg ,,14[,,3G,,5lobal,,14] $1-
}
alias nsh {
.set %nspass yes
set %nspass. [ $+ [ $network ] ] $$?*="What is your password with NickServ on $network $+ ?"
dwindow
echo @DarkIRC -=-=- $! is saved as your NickServ identifier password for $network $+ . To change it, type /setpass PASSWORD. -=-=-
}
alias darkhelp {
run darkhelp.txt
}
alias setpass {
set %nspass. [ $+ [ $network ] ] $$?*="What is your password with NickServ on $network $+ ?"
}
alias id {
.msg NickServ identify %nspass. [ $+ [ $network ] ]
}
alias kcount {
inc %kcount
return ,,,,10(,,,,2Kicks,,4:,,7 %kcount $+ ,,,,10),, $+
}
alias Dline {
return ,,,,7,1{,,,,9D,,7,,},,,,4ar,,7,,{,,,,9K,,7,,},,,,8 ,,0:,,,,8:,,,,0: ,,15,,(,,,,7,,,,1,,4,,.,,7,,24,,,,15 $+ )
}
alias ajoin {
/join $1
/write channelsL [ $+ [ $network ] $+ ] .txt $$1-
inc %overlist. [ $+ [ $network ] ]
dwindow
echo -t @DarkIRC You are set to automatically join $1 $+ .
}
alias unajoin {
/part $1
/write -ds [ $+ [ $1 ] ] channelsL [ $+ [ $network ] $+ ] .txt
/inc %overlist. [ $+ [ $network ] ] -1
dwindow
echo -t @DarkIRC You are no longer set to automatically join $1 $+ .
}
alias delajoin {
/write -dc channelsL [ $+ [ $network ] $+ ] .txt
/unset %overlist. [ $+ [ $network ] ]
dwindow
echo -t @DarkIRC You have cleared your autojoin channels on $network $+ .
}
alias unban {
mode $chan -bbbbbb $1 $+ !*@* $1 $+ *!*@* $address($1,2) $address($1,3) $address($1,4) $address($1,1)
dwindow
echo -t @DarkIRC DarK IRC SmartUnban has removed common bantypes on $1 $+ .
}
alias k {
if (%kicktype == $null) {
set %kicktype Kicked
}
raw -q kick $chan $1 $2- - %kicktype $kcount
unset %kicktype
}
alias kb {
mode $chan -ee $address($1,2) $address($1,3)
mode $chan +bb $address($1,2) $address($1,3)
set %kicktype Banned
k $1 $2-
dwindow
echo -t @DarkIRC You have banned $1 on $chan $+ .
}
alias tb {
if ($2 !isnum) {
var %tbtime = $$?="How many minutes to tempban $1 for?"
mode $chan -ee $address($1,2) $address($1,3)
ban -u $+ $calc(%tbtime * 60) $chan $1 2
ban -u $+ $calc(%tbtime * 60) $chan $1 3
set %kicktype $! minute tempban
k $1 $2-
}
else {
mode $chan -ee $address($1,2) $address($1,3)
.mode $chan +bb $address($1,2) $address($1,3)
.timer 1 $calc($2 * 60) mode $chan -bb $address($1,2) $address($1,3)
set %kicktype $2 minute tempban
k $1 $3-
}
dwindow
echo -t @DarkIRC You have tempbanned $1 for $iif(%tbtime == $null, $2, %tbtime) minute(s) on $chan $+ .
}
alias startserver {
/set %startserver $1
}
alias calc {
echo -a ,,7The ,,14answer to " $+ $1- $+ " ,,7is $calc($1-) $+ . $Dline
}
alias o {
/raw -q mode $chan + $+ $str(o,12) $$1-
}
alias do {
/raw -q mode $chan - $+ $str(o,12) $$1-
}
alias v {
/raw -q mode $chan + $+ $str(v,12) $$1-
}
alias dv {
/raw -q mode $chan - $+ $str(v,12) $$1-
}
alias h {
/raw -q mode $chan + $+ $str(h,12) $$1-
}
alias dh {
/raw -q mode $chan - $+ $str(h,12) $$1-
}
alias m {
/raw -q mode $chan $1-
}
alias j {
/raw -q join #$1
}
alias p {
/raw -q part $chan $$1-
}
alias s {
/server $1-
}
alias n {
//echo -ta ,,7̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,, ,,5-To $1 $+ - $2-
.notice $1 $2-
}
alias t {
/topic $chan $1-
}
alias mute {
if ($1 ison $chan) {
if ($2 == $null) {
.echo -ta $me you [wagon], you forgot how long to set the mute for...
halt
}
else {
set %silence. [ $+ [ $chan ] ] $+ . [ $+ [ $1 ] ] yes
.timer 1 $calc($2 * 60) /unset %silence. [ $+ [ $chan ] ] $+ . [ $+ [ $1 ] ]
if ($1 isop $chan) {
.raw mode $chan +b ~q: $+ $address($1,2)
.raw mode $chan +b ~n: $+ $address($1,2)
.raw mode $chan -ahov $1 $1 $1 $1
.timer 1 $calc($2 * 60) /mode $chan -b+o ~q: $+ $address($1,2) $1
.timer 1 $calc($2 * 60) /mode $chan -b+o ~n: $+ $address($1,2) $1
.mesg $chan $1 $+ , you are silenced for $2 minute(s).
halt
}
elseif ($1 ishop $chan) {
.raw mode $chan +b ~q: $+ $address($1,2)
.raw mode $chan +b ~n: $+ $address($1,2)
.raw mode $chan -ahov $1 $1 $1 $1
.timer 1 $calc($2 * 60) /mode $chan -b+h ~q: $+ $address($1,2) $1
.timer 1 $calc($2 * 60) /mode $chan -b+h ~n: $+ $address($1,2) $1
.mesg $chan $1 $+ , you are silenced for $2 minute(s).
halt
}
elseif ($1 isvoice $chan) {
.raw mode $chan +b ~q: $+ $address($1,2)
.raw mode $chan +b ~n: $+ $address($1,2)
.raw mode $chan -av $1 $1
.timer 1 $calc($2 * 60) /mode $chan -b+v ~q: $+ $address($1,2) $1
.timer 1 $calc($2 * 60) /mode $chan -b+v ~n: $+ $address($1,2) $1
.mesg $chan $1 $+ , you are silenced for $2 minute(s).
halt
}
elseif ($1 isreg $chan) {
.raw mode $chan +b ~q: $+ $address($1,2)
.raw mode $chan +b ~n: $+ $address($1,2)
.timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
.timer 1 $calc($2 * 60) /mode $chan -b ~n: $+ $address($1,2)
.mesg $chan $1 $+ , you are silenced on $chan for $2 minute(s).
halt
}
}
dwindow
echo -t @DarkIRC You have silenced $1 for $2 minute(s) on $chan $+ .
}
}
alias dwindow {
if (!$window(@DarkIRC)) {
window -we @DarkIRC
}
}
;; Mute/Silence script continuation ;;
on *:VOICE:#: {
if (%silence. [ $+ [ $chan ] $+ ] . [ $+ [ $vnick ] ] == yes) {
.mode $chan -v $vnick $vnick
}
}
..:#: {
if (%silence. [ $+ [ $chan ] $+ ] . [ $+ [ $hnick ] ] == yes) {
.mode $chan -h $hnick $hnick
}
}
on *:OP:#: {
if (%silence. [ $+ [ $chan ] $+ ] . [ $+ [ $opnick ] ] == yes) {
.mode $chan -oa $opnick $opnick
}
}
;; CoNnEcTiOn ScRiPtS ;;
..: {
dwindow
/sback
set %idle 0
/inc -c %idle
if ($?!="Do you want your TimeStamp to be set by DarK IRC?" == $true) {
.timestamp -f ,,14̢̮â¬Å¡Ãâë,,,,4̢̮â¬Å¡Ãâë,,,,7 (hh:nn:ss TT) ,,,,4̢̮â¬Å¡Ãâû,,,,14̢̮â¬Å¡Ãâû,,
.timestamp -e on
}
if ($?!="Do you want your font to be set by DarK IRC?" == $true) {
.font -zd 12 tahoma
.font -sd 11 tahoma
}
.timer 1 3 echo @DarkIRC ( $+ $asctime(hh:nn:ss TT/mmmm d $+ $chr(44) yyyy) $+ )
.timer 1 3 echo @DarkIRC $Dline is now loaded.
if (%startserver) {
.timer 1 3 //server %startserver
}
.timer 1 3
}
on *:CONNECT: {
if (%nspass. [ $+ [ $network ] ]) {
/id
}
if (%overlist. [ $+ [ $network ] ]) {
set %joinedchannels 1
while (%joinedchannels <= %overlist. [ $+ [ $network ] ]) {
.join $read(channelsL [ $+ [ $network ] $+ ] .txt, %joinedchannels $+ )
inc %joinedchannels
}
set %joinedchannels 1
}
else {
if (!%overlist. [ $+ [ $network ] ]) {
echo -s ,,4-=-=- Note that for your IRC network, you may designate channels to automatically join on connect. -=-=-
echo -s ,,4-=-=- To set a channel for autojoin, just type in a window on the network you want it to be in (must be connected) /ajoin #CHANNEL. -=-=-
echo -s ,,4-=-=- To unset an autojoin channel, just type in a window on the network you'd like to remove the channel from (must be connected) /unajoin #CHANNEL. -=-=-
echo -s ,,4-=-=- To unset all autojoin channels, just type in a window on the network you'd like to remove all channels from (must be connected) /delajoin. -=-=-
}
}
}
;; If there's a NickServ on your server... ;;
on *:CONNECT: {
if (!%nspass. [ $+ [ $network ] ]) {
dwindow
.timer 1 10 echo @DarkIRC -=-=-=- If there are services on this IRC server and NickServ is one of them, type /nsh. -=-=-=-
}
}
raw 433:*: {
if (%nspass. [ $+ [ $network ] ]) && (!%attempt) {
set %oldnick $me
.timer 1 1 //.msg nickserv ghost %oldnick %nspass. [ $+ [ $network ] ]
set %attempt yes
.nick %oldnick
halt
}
}
on *:NOTICE:Access Denied.:?: {
if ($nick == NickServ) && (%attempt) {
.nick %oldnick
unset %oldnick
.timer 1 4 unset %attempt
}
}
on *:NOTICE:*:?: {
if ($nick == NickServ) && ($5 == IDENTIFY) {
/id
}
}
;; AwaY SysteM ;;
Alias Afk {
if (%away == $null) {
unset %back
set %reason $1-
/amesg ,,14[,,3A,,5way,,14] ,,2,,(,,,,07 $+ %reason $+ ,,2,,),,
/set %me $me
/nick $me $+ $chr(91) $+ Away $+ $chr(93)
/inc -c %duration
/set %away reli
//clear @pager
//window -w @pager
//echo @pager ,,This Window will show all the people who tried to talk to you, Please Do not close out of this Window! $Dline
}
else {
.echo -t $active ** You already are set as Away! Please type /back or /sback.
}
}
on *:TEXT:*:#: {
if (%away) && (%me isin $1-) {
if ($readini(away.ini, awaymessage, $nick) != yes) {
.writeini away.ini awaymessage $nick yes
.notice $nick Away: ,,(,, $+ %reason $+ ,,) (,, $+ Gone for $duration(%duration) $+ ,,),,
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ $chan $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
else {
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ $chan $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
}
}
on *:NOTICE:*:?: {
if (%away) && ($readini(away.ini, awaymessage, $nick) != yes) {
.writeini away.ini awaymessage $nick yes
.notice $nick Away: ,,(,, $+ %reason $+ ,,) (,, $+ Gone for $duration(%duration) $+ ,,),,
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ ,,5,0NoTiCeD $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
else {
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ ,,5,0NoTiCeD $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
}
on *:TEXT:*:?: {
if (%away) && (%me isin $1-) {
if ($readini(away.ini, awaymessage, $nick) != yes) {
.writeini away.ini awaymessage $nick yes
.notice $nick Away: ,,(,, $+ %reason $+ ,,) (,, $+ Gone for $duration(%duration) $+ ,,),,
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ PrivMSG $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
else {
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ PrivMSG $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
}
}
on *:ACTION:*:*: {
if (%away) && (%me isin $1-) {
if ($readini(away.ini, awaymessage, $nick) != yes) {
.writeini away.ini awaymessage $nick yes
.notice $nick Away: ,,(,, $+ %reason $+ ,,) (,, $+ Gone for $duration(%duration) $+ ,,),,
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,, ,,0,1 $+ $chan $+ ,,1,0 ,,),, ,,(,, ,,0,1 $+ $network $+ ,,1,0 ,,),, $1-
}
else {
/echo @pager LOGGED == $asctime( ,,{,, :,,|,,: hh:nn:ss tt:,,|,,: ,,},, ) ,,(,,7,, $nick ,,1,,),, ,,(,,,,0,1 $chan ,,1,0,,),, ,,(,,,,0,1 $network ,,1,0,,),,,,6 $1-
}
}
}
Alias Back {
if (%away) {
/amesg ,,14[,,3B,,5ack,,14] from ,,2,,(,,,,7 $+ %reason $+ ,,2,,),, ,,4-,,3 $+ gone for $duration(%duration) $+ ,,4-
/unset %away
/unset %reason
/unset %duration
/nick %me
/remini away.ini awaymessage
halt
}
else {
echo -t $active ** You are not away! To go away, type /afk reason or /safk reason.
}
}
Alias SBack {
if (%away) {
/unset %away
/unset %reason
/unset %duration
/nick %me
/remini away.ini awaymessage
}
else {
.echo -t $active ** You are not away! To go away, type /afk reason or /safk reason.
}
}
Alias SAfk {
if (%away == $null) {
set %reason $1-
//set %duration 0
/inc -c %duration
/set %away reli
/window -w @pager
//echo @pager ,,This Window will show all the people who tried to get to you, Please Do not close out of this Window!,, $Dline
}
else {
.echo -t $active ** You are already away! Please type /back or /sback.
}
}
;; Translator: Text, modes, raws and more! ;;
raw 348:*: {
//echo -ta ,,7,,E,,xception,,L,,ist: ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,,,7 ( $+ $3- $+ ) ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,
halt
}
raw 349:*: {
//echo -tal ,,7//,,4,,E,,nding ,,E,,xception,,L,,ist,,7....
halt
}
raw 219:*: {
//echo -tal ,,12//[,,7End ,,,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 [G] ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12]....
halt
}
raw 367:*: {
if (%banlist == check) {
/mode %chan.banlist -b $3
.timer145787 1 5 /unset %chan.banlist
halt
}
else {
//echo -tal ,,7,,B,,an,,L,,ist ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 ,,(,, $+ $3 $+ ,,),, ,,14set by,,,,12 $4 ,,,,14on $asctime($5) ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,
halt
}
}
raw 368:*: {
if (%banlist) {
halt
}
else {
//echo -tal ,,7//,,4,,E,,nding ,,B,,an,,L,,ist,,7....
halt
}
}
raw 378:*: {
//echo -t @whois-window ,,5**,,7 $2 is connected with the ISP,,14 " $+ $6 $+ " ,,7and the IP Address,,14 " $+ $7 $+ "
halt
}
raw 255:*: {
halt
}
raw 379:*: {
//echo -t @whois-window ,,5** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 is using U-Modes:,,14 $6-
halt
}
raw 312:*: {
//echo -t @whois-window ,,5*** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 is Connected to,,12,, $3 -,,,,14 Description: $4-
halt
}
raw 318:*: {
//echo -t @whois-window ,,5** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 Ending information /WHOIS listing for $2 $+ .
halt
}
raw 311:*: {
if (!$window(@whois-window)) {
.window -k0 @whois-window 9
}
//echo @whois-window ,,14-+-|=|-+-
//echo -t @whois-window ,,5*** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,5 HostMask:,,7 $3 $+ ,,4,,@,,,,7,,,, $+ $4 ,,,,14(,,Name: $6- $+ ,,),,
halt
}
raw 307:*: {
//echo -t @whois-window ,,5*** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,14 $replace($3-, is a registered nick,is registered with $network $+ 's NickServ)
halt
}
raw 319:*: {
//echo -t @whois-window ,,5*** ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $2 ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 is on Channel(s):,,7 $replace($3- ,#,,,,,7#,+,,,,,10+, %,,,3,,%, @,,,,,4@, ?, $null)
if ($comchan($2,0) != 0) {
var %sharedchan = $comchan($2,0)
var %sharedchan.s = 1
//echo -t @whois-window ,,5***,,7 $2 shares,,14 %sharedchan ,,7channel(s) with you.
while (%sharedchan.s <= %sharedchan) {
//echo -t @whois-window ,,5** ,,7Shared ,,14channel ,,#,, [ $+ [ %sharedchan.s ] $+ ] :,,4 $replace($comchan($2,%sharedchan.s), #, ,,,,7#)
inc %sharedchan.s
}
}
halt
}
raw 223:*: {
//echo -a ,,4,,̢̮â¬Å¡Ãâû,,̢̮â¬Å¡Ãâû,,7 [G:Lines] ,,4̢̮â¬Å¡Ãâë,,̢̮â¬Å¡Ãâë,,,,12 $3 ,,--,,,,7 Lasts $asctime($4) ,,--,,,,14 Set on $asctime($5) by $6 $+ .,,4 $iif($7-8 != no reason,Reason:,,7 $7- , $null)
halt
}
raw 353:*: {
echo -ts ,,5*** ,,7Users on,,14 $3 $+ :,,2 $replace($4-,@,,,4,,@,,2,%,,,,,3%,,2,+,,,,,10+,,2)
halt
}
raw 332:*: {
//echo -t $2 ,,5*** ,,7Topic for,,2 $replace($2,#,,,#,,) is: $3-
halt
}
raw 333:*: {
//echo -t $2 ,,5*** ,,7The topic for $replace($2,#,,,#,,) was set by,,2 $3 $+ . ,,14Time/Date set:,,2 $asctime($4)
halt
}
raw 329:*: {
halt
}
raw 335:*: {
.echo @whois-window ,,14**,,7 $2 is recognized ,,14as a bot on,,2 $network $+ .
halt
}
raw 474:*: {
.echo -ts ,,14* ,,7You can not join,,14 $2 $+ . ,,2,,(,,Banned from $2 $+ ,,),,
halt
}
raw 475:*: {
.echo -ts ,,14* ,,7You can not join,,14 $2 $+ . ,,2,,(,,Set Key needed to enter $2 $+ ,,),,
halt
}
raw 477:*: {
.echo -ts ,,14* ,,7You can not join,,14 $2 $+ . ,,2,,(,,Registered nick needed to enter $2 $+ ,,),,
halt
}
raw 486:*: {
.echo -ts ,,14* ,,7You can not PM,,14 $12 $+ . ,,2,,(,,Register your nickname,,),,
halt
}
raw 001:*: {
.echo -ts ,,7You are ,,10connected,,7 to the,,14 $5 ,,10network. ,,,,2(,,Host- $8 $+ ,,),,
halt
}
raw 002:*: {
.echo -ts ,,7You are using the ,,10server,,14,, $remove($5, $chr(44)) $+ ,,.,,2 $remove($5, $chr(44)) is running $8 $+ .
halt
}
raw 461:*: {
.echo -ta ,,5** Incomplete parameters for command,,10,, ",, $+ $2 $+ ,,".
halt
}
raw 003:*: {
halt
}
raw 004:*: {
halt
}
raw 005:*: {
halt
}
raw 251:*: {
halt
}
raw 252:*: {
echo -ts ,,7There are,,10 $2 ,,14IRCops/Administrators connected to this server.
halt
}
raw 254:*: {
echo -ts ,,7There are,,10 $2 ,,14channels that exist on this server.
halt
}
raw 265:*: {
echo -ts ,,7There are,,10 $5 ,,14users on this server.
halt
}
raw 266:*: {
echo -ts ,,7There are,,10 $5 ,,2users on this network. The maximum is,,14 $7 $+ .
halt
}
raw 375:*: {
halt
}
raw 376:*: {
halt
}
raw 372:*: {
echo -ts ,,4,,M,,O,,T,,D $+ $2-
halt
}
raw 404:*: {
echo -t $2 ,,7You are ,,10,,muted,, on,,2 $2 and can not talk. ,,14,,(,, $+ $3- $+ )
halt
}
raw 366:*: {
halt
}
raw 441:*: {
.echo -t $3 ,,14* ,,7Target ,,2" $+ $2 $+ " ,,14not found on $3 $+ .
halt
}
raw 324:*: {
//echo -ts ,,5*** ,,7Modes for,,14 $2 $+ :,,4 $3-
halt
}
raw 313:*: {
//echo -t @whois-window ,,5***,,7 $2 is a(n),,14 $5- ,,7on,,14 $server $+ .
halt
}
raw 310:*: {
//echo -t @whois-window ,,5***,,7 $2 is a ,,14HelpOP ,,7on,,14 $server $+ .
halt
}
raw 317:*: {
//echo -t @whois-window ,,5***,,7 $2 has been ,,14Idle ,,7for,,14 $duration($3) $+ .
halt
}
raw 460:*: {
//echo -tal ,,14** ,,2You are not authorized to use this command. ,,(,,,,7 $+ $2- $+ ,,2,,),,.
halt
}
raw 8:*: {
//echo -ts ,,5** ,,7U-mode +s flags: $3-
halt
}
raw 381:*: {
//echo -ts ,,5*,,*,,* ,,7You have become an ,,14IRC Operator,,7 on $server $+ .
halt
}
raw 341:*: {
//echo -ts ,,5*** ,,7You have invited,,14 $2 ,,4into,,14 $3 $+ ,,7.
halt
}
raw 473:*: {
//echo -tls ,,14* ,,7You can not join,,14 $2 $+ . ,,2,,(,,Invite only channel,,),,
halt
}
raw 520:*: {
//echo -tls ,,14* ,,7You can not join,,14 $5 $+ . ,,2,,(,,Oper only channel,,),,
halt
}
raw 519:*: {
//echo -tls ,,14* ,,7You can not join,,14 $2 $+ . ,,2,,(,,Admin only channel,,),,
halt
}
on ^*:TEXT:*:#: {
if (%idle > 1800) && (!%away) {
/iafk
set %reason Idle for 30+ Minutes
.set %idle 0
}
if ($nick isop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,3,,%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ?? $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
}
}
}
}
}
on *:ACTION:#: {
if ($me isin $1-) {
if ($nick isop $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $replace($1-, $me, ̢̮â¬Å¡Ãâä $+ $me $+ ̢̮â¬Å¡Ãâä)
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,3,,%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $replace($1-, $me, ̢̮â¬Å¡Ãâä $+ $me $+ ̢̮â¬Å¡Ãâä)
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $replace($1-, $me, ̢̮â¬Å¡Ãâä $+ $me $+ ̢̮â¬Å¡Ãâä)
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $replace($1-, $me, ̢̮â¬Å¡Ãâä $+ $me $+ ̢̮â¬Å¡Ãâä)
halt
}
}
}
}
}
else {
if ($nick isop $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $1-
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,3,,%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $1-
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $1-
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,6* ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,,,6 $1-
halt
}
}
}
}
}
}
on *:INPUT:#: {
set %idle 0
inc -c %idle
if (%away == idle) {
sback
}
if ($1 ison $chan) {
mesg $chan $replace($1-, $1, ,,2,,̢̮â¬Å¡Ãâû,,,,,,7̢̮â¬Å¡Ãâä,,,,2 $1 ,,7̢̮â¬Å¡Ãâä,,,,2̢̮â¬Å¡Ãâë,,)
halt
}
elseif (.r{}* !iswm $1) && (!* !iswm $1) && ($chan != #RSMarket) {
mesg $chan $1-
halt
}
elseif (.r{}*:TEXT:*:?: {
.echo -t $nick ,,12,,̢̮â¬Å¡Ãâä,,,,14 $chr(91) $+ $nick $+ $chr(93) ,,12,,̢̮â¬Å¡Ãâä,,,, $1-
halt
}
on *:INPUT:?: {
set %idle 0
inc -c %idle
if (%away == idle) {
sback
}
if (.r{}*:VOICE:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $vnick ,,1a voice.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $vnick ,,1a voice.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,10 ,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $vnick ,,1a voice.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $vnick ,,1a voice.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $vnick ,,1a voice.
halt
}
}
}
}
}
}
..:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $hnick ,,1HalfOP.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7,,,,3 %,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $hnick ,,1HalfOP.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,10 ,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $hnick ,,1HalfOP.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $hnick ,,1HalfOP.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $hnick ,,1HalfOP.
halt
}
}
}
}
}
}
on ^*:OP:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $opnick ,,1OP.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7,,,,3 %,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $opnick ,,1OP.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,10,, +,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $opnick ,,1OP.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $opnick ,,1OP.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has given,,7 $opnick ,,1OP.
halt
}
}
}
}
}
}
on ^*:DEOP:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken OP from,,7 $opnick $+ ,,1.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken OP from,,7 $opnick $+ ,,1.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä ,,,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken OP from,,7 $opnick $+ ,,1.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken OP from,,7 $opnick $+ ,,1.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken OP from,,7 $opnick $+ ,,1.
halt
}
}
}
}
}
}
on ^*:DEVOICE:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken a voice from,,7 $vnick $+ ,,1.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken a voice from,,7 $vnick $+ ,,1.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä ,,,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken a voice from,,7 $vnick $+ ,,1.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken a voice from,,7 $vnick $+ ,,1.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken a voice from ,,7 $vnick $+ ,,1.
halt
}
}
}
}
}
}
on ^*:DEHELP:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâû,,,,1 has taken halfop from,,7 $hnick $+ ,,1.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken halfop from,,7 $hnick $+ ,,1.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä ,,,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken halfop from,,7 $hnick $+ ,,1.
halt
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken halfop from,,7 $hnick $+ ,,1.
halt
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has taken halfop,,7 $hnick $+ ,,1.
halt
}
}
}
}
}
}
on ^*:MODE:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has set the mode(s):,,7,, $1- $+ ,, $+ ,,1.
halt
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has set the mode(s):,,7,, $1- $+ ,, $+ ,,1.
halt
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä ,,,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has set the mode(s):,,7,, $1- $+ ,, $+ ,,1.
haltdef
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has set the mode(s):,,7,, $1- $+ ,, $+ ,,1.
haltdef
}
else {
if ($nick !ison $chan) {
/echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,1 has set the mode(s):,,7,, $1- $+ ,,,,1.
halt
}
}
}
}
}
}
on ^*:KICK:#: {
if ($nick isop $chan) && ($knick != $me) {
/echo -tl $chan ,,5*** ,,4,,̢̮â¬Å¡Ãâä,,,,7 $knick ,,4,,̢̮â¬Å¡Ãâä,,,,1 was kicked from $chan by ,,12,,̢̮â¬Å¡Ãâë,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâû,,,,1 ,,,,14,0[,,,,7 $1- ,,,,14,0],,,,1.
haltdef
}
else {
if ($nick ishop $chan) && ($knick != $me) {
/echo -tl $chan ,,5*** ,,4,,̢̮â¬Å¡Ãâä,,,,7 $knick ,,4,,̢̮â¬Å¡Ãâä,,,,1 was kicked from $chan by ,,12,,̢̮â¬Å¡Ãâë,,,,7 ,,,,3%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâû,,,,1 ,,,,14[,,,,7 $1- ,,,,14,0],,,,1.
haltdef
}
else {
if ($nick isvoice $chan) && ($knick != $me) {
/echo -tl $chan ,,5*** ,,4,,̢̮â¬Å¡Ãâä,,,,7 $knick ,,4,,̢̮â¬Å¡Ãâä,,,,1 was kicked from $chan by ,,12,,̢̮â¬Å¡Ãâë ,,,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâû,,,,1 ,,,,14[,,,,7 $1- ,,,,14,0],,,,1.
haltdef
}
else {
if ($nick isreg $chan) && ($knick != $me) {
//echo -tl $chan ,,5*** ,,4,,̢̮â¬Å¡Ãâä,,,,7 $knick ,,4,,̢̮â¬Å¡Ãâä,,,,1 was kicked from $chan by ,,12,,̢̮â¬Å¡Ãâë,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâû,,,,1 ,,,,14[,,,,7 $1- ,,,,14,0],,,,1.
haltdef
}
else {
if ($knick == $me) {
/echo -tl $chan ,,5*** ,,,,12̢̮â¬Å¡ÃâäYOU̢̮â¬Å¡Ãâä,,,,7 were kicked from $chan by ,,12,,̢̮â¬Å¡ÃâÃÂ«ÃÆÃ¢â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡ÃâÃÂ¤ÃÆÃ¢â¬Å¡Ãâû,,,,1 ,,,,14[,,,,7 $1- ,,,,14,0],,,,1.
halt
}
}
}
}
}
}
on ^*:JOIN:#: {
if ($nick == $me) {
//echo -tl $chan ,,5*** ,,4,,̢̮â¬Å¡ÃâäYOU̢̮â¬Å¡Ãâä,,,,7 have successfully joined $chan $+ .
halt
}
else {
//echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,5 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,4 ,,,,7[,,4,, $replace($address($nick,0), *!, $null) ,,7,,],, ,,1has joined,,7 $chan $+ ,,1.
halt
}
}
on ^*:PART:#: {
var %users = $nick($chan,0,a) - 1
if ($nick == $me) {
//echo -tl $chan ,,5*** ,,̢̮â¬Å¡ÃâäYOU̢̮â¬Å¡Ãâä,,,,7 have left $chan $+ .
halt
}
else {
if ($1) {
//echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,5 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,4 ,,,,7[,,4,, $replace($address($nick,0), *!, $null) ,,7,,],, ,,1has left $chan ,,(,,,,7 $+ $1- $+ ,,),,.,,4 $chr(91) $+ Users Remaining:,, %users $+ ,, $+ $chr(93)
halt
}
else {
if (!$1) {
//echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,5 $nick ,,12,,̢̮â¬Å¡Ãâä,,,,4 ,,,,7[,,4,, $replace($address($nick,0), *!, $null) ,,7,,],, ,,1has left $chan $+ .,,4 $chr(91) $+ Users Remaining:,, %users $+ ,, $+ $chr(93)
halt
}
}
}
}
on ^*:NOTICE:*:?: {
//echo -tlal ,,5*** ,,(,, $+ $network $+ ,,),, ,,12,,̢̮â¬Å¡Ãâä,,,,7,, $nick ,,,,12,,̢̮â¬Å¡Ãâä,,,,,,5 $1-
halt
}
on ^*:NOTICE:*:#: {
//echo -tl $chan ,,5*** ,,12,,̢̮â¬Å¡Ãâä,,,,7,, $nick ,,,,12,,̢̮â¬Å¡Ãâä,,,, ,,7sent:,,5 $1-
halt
}
on ^*:BAN:#: {
if (%[cabbage]listban) && ($nick == $me) {
.writeini Sh1tlist.ini [cabbage]list $banmask yes
//set %[cabbage]listaddress. [ $+ [ %[cabbage]listnick ] ] $banmask
unset %[cabbage]listban
unset %[cabbage]listnick
dwindow
echo -t @DarkIRC ,,7 $+ $banmask ,,14is now a Shitlisted host. $Dline
}
if ($nick isop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has banned:,,7 $banmask
haltdef
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,3,,%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has banned:,,7 $banmask
haltdef
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has banned:,,7 $banmask
haltdef
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâë,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâû,,,, has banned:,,7 $banmask
haltdef
}
}
}
}
}
on ^*:UNBAN:#: {
if ($nick isop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,4@,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has unbanned:,,7 $banmask
haltdef
}
else {
if ($nick ishop $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,3,,%,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has unbanned:,,7 $banmask
haltdef
}
else {
if ($nick isvoice $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 ,,10,,+,,,,7 $+ $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has unbanned:,,7 $banmask
haltdef
}
else {
if ($nick isreg $chan) {
/echo -tl $chan ,,12,,̢̮â¬Å¡Ãâä,,,,7 $nick ,,12,,̢̮â¬Å¡Ãâä,,,, has unbanned:,,7 $banmask
haltdef
}
}
}
}
}
;; Menu bars... ;;
menu nicklist {
(> ̢̮â¬Å¡ÃâÃÂ¤ÃÆÃ¢â¬Å¡ÃâÃÂ»ÃÆÃ¢â¬Å¡Ãâû $1 ̢̮â¬Å¡ÃâÃÂ«ÃÆÃ¢â¬Å¡ÃâÃÂ«ÃÆÃ¢â¬Å¡Ãâä <):/whois $1
-
Control _1_:
.Voice:/v $$1-
.Devoice:/dv $$1-
.Halfop:/h $$1-
.Dehalfop:/dh $$1-
.Op:/o $$1-
.DeOp:/do $$1-
-
Control _2_:
.Kick:/k $$1 No Reason Specified
.KickBan:/kb $$1- No Reason Specified
.TempBan:/var %disable = temporary | /tb $1 $calc(60 * $$?="How many minutes would you like to tempban $1 for?") No Reason Specified
.Silence:/mute $$1 $$?="How long would you like to silence $1 for?"
.Unban:/ub $$1-
-
Channel Commands:
.Part:/part $chan >No Reason Specified<
.Hop:/hop $chan >Rejoining<
.Mode:/mode $chan $$?="What modes would you like to set?"
-
Oper commands (Person):
.G-line:/gline $$1 : $+ $chr(91) $+ $me $+ $chr(93) $$?="What message would you like to G:line $snick with?"
.Kill:/kill $$1 $$?="What message would you like to kill $snick with?"
.SAJoin:/sajoin $$1 $$?="What channel would you like to send $snick to?"
.K-line:/kline $$1
-
Oper commands (Overall):
.Global:/os global $$?="What would you like to send as a global?"
.Wallops:/wallops $$?="What would you like to send as a wallops?"
.Global (Opers):/globops $$?="What would you like to send to the opers?"
}
menu channel {
View Channel Modes:/channel
Part:/part $active >No Reason Specified<
Rejoin:/join $active
Hop:/hop $active >ReJoining<
}
;; Ban Protection ;;
on *:BAN:*: {
if ($nick != $me) {
if ($me isop $chan) || ($me ishop $chan) {
if ($banmask iswm $address($me,5)) {
.mode $chan -b $banmask
.ban -u180 $chan $nick 2
.kick $chan $nick ,,[b,,an ,,P,,rotection,,],, :: $kcount :: $dline
dwindow
echo -t @DarkIRC $nick has banned you in $chan $+ .
}
}
}
}
;; IdlE AFK SysteM ;;
Alias IAfk {
if (%away == $null) {
/afk 30+ Minute Idle Period
/set %away idle
/window -w @pager
//echo @pager ,,This Window will show all the people who tried to get to you, Please Do not close out of this Window!,, $Dline
halt
}
}
;;Other Special stuff, made just for you!;;
; These aren't used within the script code above, but can be used by you. ;
;Clearbans: This command clears all bans in a channel.
alias clearbans {
mode $chan +b
set %chan.banlist $chan
set %banlist check
.timer 1 10 /unset %banlist
.timer 1 10 /unset %chan.banlist
}
; Uptime: This alerts people of your UpTime in places.
alias uptime {
if (!$1) {
/mesg $chan ,,7I have been running on $network ,,(,, $+ $server $+ ,,),, for $uptime(server,1) $+ .
/mesg $chan ,,14I have had mIRC active for $uptime(mirc,1) $+ .
/mesg $chan ,,4I have had my computer online for $uptime(system,1) $+ . $Dline
}
else {
if (- isin $1) {
if (s isin $1) {
/mesg $chan ,,7I have been running on $network ,,(,, $+ $server $+ ,,),, for $uptime(server,1) $+ . $dline
}
if (m isin $1) {
/mesg $chan ,,14I have had mIRC active for $uptime(mirc,1) $+ . $Dline
}
if (c isin $1) {
/mesg $chan ,,4I have had my computer online for $uptime(system,1) $+ . $Dline
}
}
}
}
alias users {
var %users = $nick($chan,0), %ousers = $nick($chan,0,o), %husers = $nick($chan,0,h), %vusers = $nick($chan,0,v), %rusers = $nick($chan,0,r)
mesg $chan ,,2,,(=),, Total Users:,,14 %users
mesg $chan ,,4,,(@),, Opped Users:,,14 %ousers
mesg $chan ,,7,,(%),, Halfopped Users:,,14 %husers
mesg $chan ,,10,,(+),, Voiced Users:,,14 %vusers
mesg $chan ,,3,,(?),, Other users: %rusers
}
menu status {
DarK ChanneL ManageR:/chanmanage
}
alias Chanmanage {
/dialog -md Channelmanage Channelmanage
unset %manage
}
dialog Channelmanage {
title "DarK Channel Manager"
size -1 -1 178 155
option dbu
tab "Settings", 1100, 1 1 170 130, ok
tab "Channel modes", 2200
tab "Commands affecting users", 2400
box "Channel to Manage", 500, 15 25 85 50, tab 1100
edit "#", 12, 26 34 60 10, tab 1100
button "Set Channel", 13, 15 75 40 12, tab 1100
button "Unset Channel", 14, 60 75 40 12, tab 1100 disable
button "Set Key/Password", 22, 15 20 57 10, tab 2200
edit "", 23, 82 20 57 10, tab 2200
button "Set Limit on users", 24, 15 35 57 10, tab 2200
edit "", 25, 82 35 57 10, tab 2200
button "Set invite only ON", 26, 15 50 57 10, tab 2200
button "Set invite only OFF", 27, 82 50 57 10, tab 2200
button "Mods talk only", 28, 15 65 57 10, tab 2200
button "Anyone can talk", 29, 82 65 57 10, tab 2200
button "Anti-Joinflood ON", 30, 15 80 57 10, tab 2200
button "Anti-Joinflood OFF", 31, 82 80 57 10, tab 2200
button "Clear ALL modes", 32, 15 95 57 10, tab 2200
button "Your own modes", 33, 15 110 57 10, tab 2200
edit "", 34, 82 110 57 10, tab 2200
box "Kick/Bans, UCHmodes", 501, 32 22 95 80, tab 2400
button "Kick", 42, 35 30 42 10, tab 2400
button "KickBan", 43, 82 30 42 10, tab 2400
button "Silence/Mute", 44, 35 45 42 10, tab 2400
button "TempBan", 45, 82 45 42 10, tab 2400
button "Op", 46, 35 60 42 10, tab 2400
button "Deop", 47, 82 60 42 10, tab 2400
button "Halfop", 48, 35 75 42 10, tab 2400
button "DeHalfop", 49, 82 75 42 10, tab 2400
button "Voice", 50, 35 90 42 10, tab 2400
button "DeVoice", 51, 82 90 42 10, tab 2400
}
on *:DIALOG:Channelmanage:sclick:13: {
did -e Channelmanage 14
set %manage $did(Channelmanage, 12, text)
did -b Channelmanage 13
did -mr Channelmanage 12
}
on *:DIALOG:Channelmanage:sclick:14: {
did -b Channelmanage 14
did -n Channelmanage 12
unset %manage
did -e Channelmanage 13
}
on *:DIALOG:Channelmanage:sclick:22: {
mode %manage +k $did(Channelmanage, 23, text)
did -r Channelmanage 23
}
on *:DIALOG:Channelmanage:sclick:24: {
mode %manage +l $did(channelmanage, 25, text)
did -r Channelmanage 25
}
on *:DIALOG:Channelmanage:sclick:26: {
mode %manage +i
did -b Channelmanage 26
did -e Channelmanage 27
}
on *:DIALOG:Channelmanage:sclick:27: {
mode %manage -i
did -e Channelmanage 26
did -b Channelmanage 27
}
on *:DIALOG:Channelmanage:sclick:28: {
mode %manage +m
did -b Channelmanage 28
did -e Channelmanage 29
}
on *:DIALOG:Channelmanage:sclick:29: {
mode %manage -m
did -e Channelmanage 28
did -b Channelmanage 29
}
on *:DIALOG:Channelmanage:sclick:30: {
mode %manage +j 1:20
did -b Channelmanage 30
did -e Channelmanage 31
}
on *:DIALOG:Channelmanage:sclick:31: {
mode %manage -j
did -e Channelmanage 30
did -b Channelmanage 31
}
on *:DIALOG:Channelmanage:sclick:32: {
mode %manage - [ $+ [ $remove($chan(%manage).mode, +, $2-) ] ]
}
on *:DIALOG:Channelmanage:sclick:33: {
mode %manage $did(Channelmanage, 34, text)
did -r Channelmanage 34
}
on *:DIALOG:Channelmanage:sclick:42: {
kick %manage $?="Who would you like to kick, and why?" :: Kicked :: $kcount :: $Dline
}
on *:DIALOG:Channelmanage:sclick:43: {
var %kick = $?="Who would you like to KickBan?"
ban %manage %kick 3
kick %manage %kick $?="Why?" :: Banned :: $kcount :: $Dline
}
on *:DIALOG:Channelmanage:sclick:44: {
var %silencing = $?="Who would you like to silence?"
var %time = $?="How long would you like to silence this person for?"
mode %manage +b ~q: [ $+ [ $address(%silencing,3) ] ]
mode %manage -oavh %silencing %silencing %silencing %silencing
set %silence. [ $+ [ $chan ] $+ ] . [ $+ [ $nick ] ] yes
mesg $chan %silencing $+ , you are silenced on %manage for %time minute(s). $Dline
}
on *:DIALOG:Channelmanage:sclick:45: {
var %disable = temporary
tb %manage $?="Who would you like to TempBan? For how many minutes (Word 2, should be a number)? Why?"
}
on *:DIALOG:Channelmanage:sclick:46: {
mode %manage +o $$?="Who would you like to Op?"
}
on *:DIALOG:Channelmanage:sclick:47: {
mode %manage -o $$?="Who would you like to DeOp?"
}
on *:DIALOG:Channelmanage:sclick:48: {
mode %manage +h $$?="Who would you like to HalfOp?"
}
on *:DIALOG:Channelmanage:sclick:49: {
mode %manage -h $$?="Who would you like to DehalfOp?"
}
on *:DIALOG:Channelmanage:sclick:50: {
mode %manage +v $$?="Who would you like to Voice?"
}
on *:DIALOG:Channelmanage:sclick:51: {
mode %manage -v $$?="Who would you like to DeVoice?"
}
alias [cabbage]list {
set %[cabbage]listnick $1
set %[cabbage]listban yes
var %shtchanban = 1
set %[cabbage]listreason. [ $+ [ $1 ] ] $2-
.timer 1 5 unset %[cabbage]listban
var %shtchan = $comchan($me,0)
while (%shtchanban < %shtchan) {
if ($me isop $comchan($me, %shtchanban)) || ($me ishop $comchan($me, %shtchanban)) {
//ban -ku600 $comchan($me, %shtchanban) $1 3 You have been [cabbage]Listed. ( $+ $2- $+ )
/amesg [cabbage]listed $1 ( $+ $address($1,2) $+ ). Reason: $2-
}
inc %shtchanban
}
}
alias de[cabbage]list {
if ($readini(sh1tlist.ini, [cabbage]list, %[cabbage]listaddress. [ $+ [ $1 ] ]) == yes) {
//remini Sh1tlist.ini [cabbage]list %[cabbage]listaddress. [ $+ [ $1 ] ]
var %shtchanban = 1
var %shtchan = $comchan($me, 0)
while (%shtchanban < %shtchan) {
if ($me isop $comchan($me, %shtchanban)) || ($me ishop $comchan($me, %shtchanban)) {
//ban -r $comchan($me, %shtchanban) $1 3
}
inc %shtchanban
}
echo -at ,,14 $+ %[cabbage]listaddress. [ $+ [ $1 ] ] is no longer a Shitlisted host. $Dline
unset %[cabbage]listaddress. [ $+ [ $1 ] ]
}
}
on *:JOIN:#: {
if ($me isop $chan) || ($me ishop $chan) {
if ($readini(sh1tlist.ini, [cabbage]list, $address($nick,3)) == yes) {
.kb $nick %[cabbage]listreason. [ $+ [ $nick ] ] [,,S,,hit,,L,,isted]
}
}
}
alias clearban {
var %Chanclear.ban = $$?="What address would you like to ban?"
.mode $chan -e+b %Chanclear.ban %Chanclear.ban
var %Chanclear.num = 1
var %Chanclear.people = $nick($chan,0)
while (%Chanclear.num <= %Chanclear.people) {
if (%Chanclear.ban iswm $address($nick($chan, %Chanclear.num),5)) {
.kick $chan $nick($chan,%Chanclear.num) Your address matches the clearban set %Chanclear.ban $kcount
}
inc %Chanclear.num
}
}
#Dark end[/hide]