RawServ — File Browser
RawServv0.5 / RawServv0.5 / SERVER.MRC
SERVER.MRC — 9.92 KB — Download this file
on me:1:ChatOpen: { .timer1 off | .set %raw.dccemme = $+ $me | set %msme = $+ $me | msg = $+ $nick NICK %raw.snick | msg = $+ $nick USER %rawuserid %rawuserid %rawuserid %version %averme | .creq ask }
on me:1:chatclose: { killserver | close -c $me }
on 1:input: {
if ( $count($active, @#)) {
if ( $pos($1, /) == 1) {
$read -s $+ $mid($1, 2, $len($1) ) $mircdirrawas.mrc
if ( $read -ns $+ $mid($1, 2, $len($1) ) $mircdirrawas.mrc != $null) { halt }
else { toserver $remove($1, /) $2- | /halt }
else sendmsg $1- | halt
}
}
if ($pos($active, @) == 1) {
if ( $pos($1, $chr(47)) == 1) {
$read -s $+ $mid($1, 2, $len($1) ) $mircdirrawas.mrc
if ( $read -ns $+ $mid($1, 2, $len($1) ) $mircdirrawas.mrc != $null) { halt }
else { toserver $remove($1, /) $2- | /halt } | halt
}
if ($chat($me) == $null) { aline @Rawserver 2*** You're not connected to a server | halt }
if ($active != @Rawserver) { sendmsg $1- | halt }
else { aline @RawServer 2*** You're not on a channel | halt }
}
:end
}
on me:1:CHAT:* {
if ($1 == ERROR) { rrecho *** ERROR: $2- | killserver }
set %raw.nick $remove( $gettok($1,1,33), $chr(58) )
set %mAddy $gettok($1,2,33)
set %raw.rest $mid($4-,2,$len($4-))
if ( %raw.nick == $null ) { set %raw.nick $remove($1,$chr(58)) }
if ($1 == PING) { toserver PONG $2 | aline @RawServer 3PING? PONG! | halt }
if ($2 == PRIVMSG && $mid($3,1,1) == $chr(35) ) {
if ($mid($4,2,1) == ) {
set %CTCP $mid($4,3,99900000)
if ($4 == :PING) { toserver notice %raw.nick :PING $5 $+
.goto STOP
if (%rctcps == 3) { .ignore -tu60 $wildsite | unset %rctcps | .set %rmyflnick $me | .timer 1 20 toserver nick %rmyflnick | /nick $me $+ - | rrecho ctcp flood detected from %raw.nick [ [ $+ [ %maddy ] $+ ] ] | .alias f12 toserver nick %myflnick | rrecho To change back to origional nick press f12 | halt }
if (%rctcps == 6) { rrecho *Warning* severe flood detected from %raw.nick | rrecho silencing for 60 secs | to server silence + *!* $+ %maddy | .timer 1 60 toserver silence - *!* $+ %maddy }
inc %rctcps
.timer6 1 30 /unset %rctcps
}
if ($4 == :ACTION) { echo @ $+ $3 6* %raw.nick $5- | /halt }
if ($4 == :VERSION) { toserver notice %raw.nick :VERSION %version -12[Rawserv by TheShad0w ]
if (%rctcps == 3) { .ignore -tu60 $wildsite | unset %rctcps | .set %rmyflnick $me | .timer 1 20 toserver nick %rmyflnick | /nick $me $+ - | rrecho ctcp flood detected from %raw.nick [ [ $+ [ %maddy ] $+ ] ] | .alias f12 toserver nick %myflnick | rrecho To change back to origional nick press f12 | halt }
if (%rctcps == 6) { rrecho *Warning* severe flood detected from %raw.nick | rrecho silencing for 60 secs | to server silence + *!* $+ %maddy | .timer 1 60 toserver silence - *!* $+ %maddy }
inc %rctcps
.timer6 1 20 /unset %rctcps
}
:ctcpSTOPchan
rrecho <RawServer> $+ %raw.nick Requests a %ctcp $+ : $5- | unset %ctcp | halt
}
echo @ $+ $3 < $+ %raw.nick $+ > %raw.rest | halt
}
if ($2 == PRIVMSG) {
if ($mid($4,2,1) == ) {
set %CTCP $mid($4,3,99900000)
if ($4 == :PING) { toserver notice %raw.nick :PING $5 $+
.goto STOP
if (%rctcps == 3) { .ignore -tu60 $wildsite | unset %rctcps | .set %rmyflnick $me | .timer 1 20 toserver nick %rmyflnick | /nick $me $+ - | rrecho ctcp flood detected from %raw.nick [ [ $+ [ %maddy ] $+ ] ] | .alias f12 toserver nick %myflnick | rrecho To change back to origional nick press f12 | halt }
if (%rctcps == 6) { rrecho *Warning* severe flood detected from %raw.nick | rrecho silencing for 60 secs | to server silence + *!* $+ %maddy | .timer 1 60 toserver silence - *!* $+ %maddy }
inc %rctcps
.timer6 1 20 /unset %rctcps
}
if ($4 == :ACTION) { echo @ $+ $3 6* %raw.nick $5- | /halt }
if ($4 == :VERSION) { toserver notice %raw.nick :VERSION %version -12[Rawserv by TheShad0w ]
if (%rctcps == 3) { .ignore -tu60 $wildsite | unset %rctcps | .set %rmyflnick $me | .timer 1 20 toserver nick %rmyflnick | /nick $me $+ - | rrecho ctcp flood detected from %raw.nick [ [ $+ [ %maddy ] $+ ] ] | .alias f12 toserver nick %myflnick | rrecho To change back to origional nick press f12 | halt }
if (%rctcps == 6) { rrecho *Warning* severe flood detected from %raw.nick | rrecho silencing for 60 secs | to server silence + *!* $+ %maddy | .timer 1 60 toserver silence - *!* $+ %maddy }
inc %rctcps
.timer6 1 20 /unset %rctcps
:STOP
echo 4 @RawServer $chr(91) $+ %raw.nick %ctcp $+ $chr(93) $5- | unset %ctcp | halt
}
}
else { window -e @ $+ %raw.nick | echo @ $+ %raw.nick < $+ %raw.nick $+ > %raw.rest | halt }
}
if ( $2 == NOTICE ) {
if ($mid($4,2,1) == ) {
set %CTCPReply $mid($4,3,99999999)
if (%CTCPReply == PING) { /set %ctime $ctime | /dec %ctime $5 | echo 4 @RawServer $chr(91) $+ %raw.nick PING reply $+ $chr(93) $+ : %ctime seconds | /halt }
:ReplyStop
echo 4 @RawServer 4 $+ $chr(91) $+ %raw.nick REPLY %ctcp $+ $chr(93) $+ : $5-
unset %CtcpReply
halt
}
echo 5 -a - RawServer: %raw.nick $+ - $4-
halt
}
if ($2 == WALLOPS) {
echo -a RawServer !WallopS! $+ 2< $+ $1 $+ >10 $+ $3-
}
if ($2 == PART) {
if (%raw.nick == %raw.snick) { /window -c @ $+ $3 | /halt }
echo 3 @ $+ $3 *** %raw.nick ( $+ %maddy $+ ) has left $3 | halt
}
if ($2 == JOIN) {
if ( %raw.snick != %raw.nick ) {
echo 3 @ $+ $remove($3, $chr(58)) *** %raw.nick ( $+ %maddy $+ ) has joined $remove($3, $chr(58)) | halt }
window -e @ $+ $remove($3, :) $mircdirservpop.mrc | halt
}
if ($2 == MODE) {
if ($3 == %raw.snick) {
echo 3 @rawserver *** $1 set mode: $4 $5 }
else { echo 3 @ $+ $3 *** %raw.nick set mode: $4 $5 }
}
if ($3 == MODE) { echo 3 @ $+ $3 *** %raw.nick set mode $4- on $3 | halt }
if ($2 == 221) { echo 3 @RawServer *** Modes for $3 $+ : $4 | if (+ isin $4) { .set %mode $4 } }
if ($2 == 324) { echo 3 @RawServer *** Modes for $4 $+ : $5 | if (+ isin $5) { .set %mode $5 } }
if ($2 == 001) { set %raw.server2 $remove($1,:) | set %raw.snick $3 | set %Raw.oldsnick $3 }
if ($2 == 353) { echo -a Names - 10 $+ $5 $+ $+ : $hc($remove($6-,:)) | halt }
if ($2 == INVITE) { echo @RawServer 13*** %raw.nick has invited you to join $remove($4,:) 10[rawserver By 13TheShad0w] | halt }
if ($2 == QUIT) { echo 2 @RawServer *** %raw.nick quit IRC ( $+ $remove($3,:) $4- $+ ) | echo $active <RawServer> 2 *** %raw.nick quit IRC ( $+ $remove($3,:) $4- $+ | halt }
if ($2 == KICK) {
if ($4 == %raw.snick) { window -c @ $+ $3 | echo 13 @RawServer *** You were kicked from $3 by %raw.nick ( $+ $remove($5,:) $6- $+ ) | /halt }
echo 3 @ $+ $3 *** $4 was kicked by %raw.nick ( $+ $remove($5,:) $6- $+ ) | halt
}
if ($2 == NICK) {
if (%nick == %raw.snick || $remove($3,:) == %raw.snick || $remove($3,:) == %raw.oldsnick) { set %raw.snick $remove($3,:) | echo 3 @RawServer *** Your NickName is now $remove($3, :) | halt }
echo 3 @RawServer *** %raw.nick is now known as $remove($3, :)
}
if ($2 == 334) { echo 4 @RawServer -rawserver by TheShad0w - $remove($4,:) $5- }
if ($2 == 301) { /echo 4 @RawServer $3 is Away: $remove($5,:) $6- }
if ($2 == 311) { /echo 5 @RawServer 10- RawServer WHOIS For 2 $+ $4 $+ 12- | /echo 1 @rawserver $4 is $5 $+ @ $+ $6 $remove($7-, :) | /halt }
if ($2 == 312) { /echo 1 @RawServer $4 is using $5 $remove($6-,:) | /halt }
if ($2 == 314) { /echo 5 @RawServer 10- RawServer WHOWAS For 2 $+ $4 $+ 12- | /echo 1 @RawServer $4 is $5 $+ @ $+ $6 $remove($7-, :) | /halt }
if ($2 == 317) { /set %idletime $ctime - $6 | /echo 1 @RawServer $4 has been idle $5 seconds, has been signed on since $asctime( $6 ) | /halt }
if ($2 == 318) { /echo 5 @RawServer 10-End Of RawServer WHOIS For 2 $+ $4 $+ 12- }
if ($2 == 319) { /echo 1 @RawServer $4 is on $remove($parm5-, :) | /halt }
if ($2 == 369) { /echo 5 @RawServer 10-End Of RawServer WHOWAS For 2 $+ $4 $+ 12- }
if ($2 == 352) { /echo 1 @rawserver $4 $8 $9 $5 $+ @ $+ $6 $10 $11- }
if ($2 == 315) { aline @rawserver 10-RawServer End of WHO 2 $4 $+ 12- }
if ($2 == 375) { aline @RawServer 5-MOTD Start- }
if ($2 == 372) { aline @RawServer - $+ $5- }
if ($2 == 376) { aline @RawServer 5-MOTD End- | msg %raw.dccemme mode %raw.snick +i | .unset %mode |.timer 1 4 /rawstats | set %raw.servero on }
if ($2 isnum 400-432) { rrecho 2Error: $remove($4-,:) | halt }
if ($2 == 433) { echo 2 @RawServer $+ $4 $+ - $remove($5,:) $6- (Try a /nick <different nickname>) }
if ($2 isnum 434-502) { rrecho 2Error: $remove($4-,:) | halt }
if ($2 == 332) { echo -a TOPIC $4 - $hc($remove($5,:)) $hc($6-) }
if ($2 == 333) { echo -a TOPIC INFO - The topic on $hc($4) was set by $hc($5) at $hc($asctime($6)) }
if ($2 == 329) { echo -a 10 $+ $4 $+ Was created on $hc($asctime( $5 )) $+ | /halt }
if ($2 == TOPIC) { echo 3 @ $+ $3 *** %raw.nick changed topic to: $remove($4,:) $5- }
if ($2 == 251) { echo @rawserver - | echo @rawserver %raw.rest | /halt }
if ($2 == 252 || $2 == 253 || $2 == 254) { echo @rawserver There are $4 $remove($5, :) $6- | /halt }
if ($2 == 255) { echo @rawserver %raw.rest | echo @rawserver - | halt }
if ($2 == 305) { rrecho *** You are no longer marked as being away }
if ($2 == 306) { rrecho *** You have been marked as being away }
if ($2 == 381) { rrecho Raw Server 10!<You Are Now An IRCop >! }
if ($2 == 421) { rrecho $3 - Unknown Command }
}
alias toserver msg %msme $1-
alias sendmsg msg %msme PRIVMSG $r : $+ $1- | echo $active < $+ %raw.snick $+ > $1-
alias r return $mid($active, 2, $len($active))