Jump to content

mIRC Script(s) Help

Latinoking

By Latinoking
in Tech and Computers

 Share

Recommended Posts

Latinoking

Latinoking

Posted
Posted

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]

Link to comment
Share on other sites
MageUK

MageUK

Posted
Posted

Please don't get the client and protocol confused. These are mIRC scripts, not IRC.

 

 

 

These scripts look like they weren't written by him, he probably has a client addon pack, just ask him where he got that and download the same one instead.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

  I accept