RawServ — File Browser
RawServv0.5 / RawServv0.5 / RAW.MRC
RAW.MRC — 9.23 KB — Download this file
raw 376:* {
titlebar %help.ver By TheShad0w
if ($scr(events.mrc) == 0) .load -rs events.mrc
if ($scr(ctcps.mrc) == 0) .load -rs ctcps.mrc
if ($scr(toolpop.mrc) == 0) .load -rs toolpop.mrc
unset %raw.server
unset %raw.server2
unset %rawservero
unset %spy
unset %bot
maildis
.set %dccoffline Yes
.set %comsndr Off
.disable #proccessing #writemail
.creq ask
set %away off
}
raw 315:* {
if (%cstats == on) {
.set %cstatsw @Channel Scan On $+ $2
.window -o %cstatsw 350 222 356 259 %cstatsw ms sans serif 8
echo -a Channel Stats for $2 at $atime($ctime)
echo -a $str(-,$pls($len($atime),$len($2))) $+ $str(-,22)
%cthops = %hop1 $+ . $+ %hop4 | echo -a 10 $2 [ $+ $chan($2).mode $+ ]: $chan($2).topic
echo -a 2Ops- 10 ( $+ $opnick($2,0) $+ )
echo -a 2Voiced- 10 ( $+ $vnick($2,0) $+ )
echo -a 2NoFlags- 10 ( $+ $nvnick($2,0) $+ )
echo -a 2Away- 10 ( $+ %naway $+ )
echo -a 2IrcOps-10 ( $+ %niops $+ )
echo -a 2Clones-10 ( $+ %ncls $+ )
if (%naway > 0) recho 10( $+ %nmawy $+ ) are10 AWAY
echo -a Average Hops: 10 %cthops from 10 ( $+ $server $+ )
echo -a Total Users : $hc( $+ $nick($2,0) $+ )
echo -a $str(-,$pls($len($atime),$len($2))) $+ $str(-,22)
echo -a End of Channel Scan On $hc($2)
unset %cstats %hop* %cthops %naway %niops %ncls %nmawy %cladd %add* %cnum %chops
halt
}
}
raw 353:* {
inc %jstat.num
if (%jstat.num == 1) {
recho Names [ $+ $3 $+ : $+ %c3 $+ $fix(2,$pls(1,$count($4-,$chr(32)))) $+ ] $fix($sub(41,$len($3)), )
}
else {
recho Total Users:[ 10 $+ $fix(2,$pls(1,$count($4-,$chr(32)))) $+ ] - Names $hc($4-)
}
halt
}
raw 311:* {
if (%unshit == on) {
unset %unshit
%unshitadd = *! $+ $3 $+ @ $+ $4
remini names.txt $maddress(%unshitadd)
recho $hc($2) has been removed from enemy list.
.ruser 60 $maddress(%unshitadd)
.timer 1 5 unset %useradd
}
if (%shitter == on) {
unset %shitter
%tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4
addban $mask(%tmpadd,3)
.timer 1 5 unset %useradd
}
if (%addv == on) {
unset %addv
%tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4
writeini names.txt $rb($2) hostmask $mask(%tmpadd,3)
writeini names.txt Users $mask(%tmpadd,3) $rb($2)
writeini names.txt $rb($2) flags voice
writeini names.txt $rb($2) vchannel %vchannel
.raw notice $2 :You have been added to my user list.
.raw notice $2 :Commands available to you [voice,info,help].
adduser $mask(%tmpadd,1) 70 $2
.timer 1 5 unset %useradd
}
if (%remop == on) {
unset %remop
%tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4
%popnck = $readini names.txt Users $mask(%tmpadd,3)
%pwnck = $readini names.txt %popnck password
if (%pwnck) remini names.txt passwords %pwnck
if (%popnck) remini names.txt %popnck
if ($readini names.txt $rb($2) flags) remini names.txt $rb($2)
if ($readini names.txt Users $mask(%tmpadd,3)) remini names.txt Users $mask(%tmpadd,3)
.ruser 90 $maddress(%tmpadd)
unset %popnck %pwnick
recho Removed $hc($2) from the user list.
.timer 1 5 unset %useradd
}
if (%remv == on) {
unset %remv
%tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4
%popnck = $readini names.txt Users $mask(%tmpadd,3)
%pwnck = $readini names.txt %popnck password
if (%pwnck) remini names.txt passwords %pwnck
if (%popnck) remini names.txt %popnck
remini names.txt %popnick vchannel
if ($readini names.txt $rb($2) flags) remini names.txt $rb($2)
if ($readini names.txt Users $mask(%tmpadd,3)) remini names.txt Users $mask(%tmpadd,3)
.ruser 70 $maddress(%tmpadd)
unset %popnck %pwnick
recho Removed $hc($2) from the user list.
.timer 1 5 unset %useradd
}
if (%addop == on) {
unset %addop
%tmpadd = $2 $+ ! $+ $3 $+ @ $+ $4
writeini names.txt $rb($2) hostmask $mask(%tmpadd,3)
writeini names.txt Users $mask(%tmpadd,3) $rb($2)
writeini names.txt $rb($2) flags op
writeini names.txt $rb($2) opchannel %opchannel
if (%opchannel == all) .raw notice $2 :You have been added to my user list on all channels.
else .raw notice $2 :You have been added to my user list for channels matching $+ %opchannel $+ .
.raw notice $2 :Commands available to you [op,info,help].
unset %opchannel
adduser $mask(%tmpadd,1) 90 $2
.timer 1 5 unset %useradd
}
if (%getrawid == on) {
unset %getrawid
set %idq2 Using mIRC Ident - $3
set %rawuserid $remove($3,~)
dline @rawservercheck 4
iline @rawservercheck 4 Ident: %idq2
.identd on
.timer 1 5 unset %useradd
}
if (%useradd == on) { Halt }
elseif (%whois == on) && ($group(#whoisecho) == on) {
Wecho -------------------------------------------------------------------------------------- | Wecho 2Whois Reply for $hc($2) | wecho 2Address: 10( $+ $3 $+ @ $+ $4 $+ ) | wecho 2IRC Name: $hc($6-) | halt
.timer 1 12 unset %whois
}
}
raw 314:* { recho WhoWas reply for 10 $+ $2 $+ | recho Nick: $hc($2) | recho Address: 10 $3 $+ @ $+ $4 | recho Name: 10 $6- | halt }
raw 369:* { recho End of WhoWas for $hc($2) $+ | /halt }
raw 406:* { recho $hc($2) There was no such nickname | /halt }
raw 433:* { recho $hc($2) Nickname already in use | /halt }
raw 306:* { recho You have been marked as being away. | halt }
raw 433:* { recho Nickname $2 is already in use. | whois $2 | halt }
raw 332:* { if (%showtopic == on) { recho Topic: $hc($3-) | halt } }
raw 333:* { recho The topic on $hc($2) was set by $hc($3) at $hc($asctime($4)) }
raw 465:* { recho Possible Kline. | halt }
raw 471:* { recho Cannot join channel $hc($2) (Its full) | halt }
raw 473:* { recho Cannot join channel $hc($2) (Invite only) | halt }
raw 474:* { recho Cannot join channel $hc($2) (Banned) | halt }
raw 475:* { recho Cannot join channel $hc($2) (Requires the correct key) | halt }
raw 305:* { recho You are no longer marked as being away. | Halt }
#whoisecho off
raw 317:* {
if (%useradd == on) { Halt }
elseif (%whois == on) {
Wecho 2Idle Time: $hc($3) $hc($5)
halt
}
}
raw 401:* {
if (%useradd == on) { halt }
elseif (%whois == on) {
wecho $hc($2) $3-
halt
}
}
raw 318:* {
if (%useradd == on) { halt }
elseif (%whois == on) {
wecho --------------------------------------------------------------------------------------
halt
}
}
raw 319:* {
if (%useradd == on) { halt }
elseif (%whois == on) {
wecho 2Channels: $hc($3-)
halt
}
}
raw 312:* {
halt
}
raw 301:* {
if (%useradd == on) { Halt }
elseif (%whois == on) {
wecho $hc($2) is 2Away - 2Reason: $hc($3-)
halt
}
}
raw 310:* {
if (%useradd == on) { Halt }
elseif (%whois == on) {
wecho 13HelpOp10 Detected!
wecho $hc($2-)
halt
}
}
raw 313:* {
if (%useradd == on) { Halt }
elseif (%Whois == on) {
wecho 13-WARNING- $hc(IRCop Detected!)
wecho $hc($2-)
halt
}
}
#whoisecho end
#ports on
raw 211:* {
if $left(4,$right(5,$2)) isnum {
if (%porscan == $null) { set %bestport $left(4,$right(5,$2)) | set %bestportval $5 + $7 | set %porscan active | set %portlist $left(4,$right(5,$2)) | halt }
else { set %portlist1 %portlist | set %portlist %portlist1 $+ , $+ $left(4,$right(5,$2)) | set %curval $5 + $7
if (%curval < %bestportval) { set %bestport $left(4,$right(5,$2)) | set %bestportval $5 + $7 | set %portlist1 %portlist | unset %portlist1 | halt } | unset %curval | halt } | halt } | else { halt }
}
raw 219:*: { if ($2 == l) { clear status window | set %ctime2 [ %ctime - $ctime ] | echo %portw *** Portscan report for $hc($+ $server) | echo %portw *** Took: $hc($duration($abs(%ctime2))) | unset %ctime %ctime2 | echo %portw *** Availble ports are: $hc(%portlist) | echo %portw *** Best port is: $hc(%bestport) | echo %portw *** Best port traffic: $hc(%bestportval) Kilobytes | echo %portw *** Done scanning ports on $hc($server) $+ ! | unset %portlist | unset %porscan | unset %portserv | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt } }
#ports end
raw 352:* {
set %adrs $6 $+ ! $+ $3 $+ @ $+ $4
if (%aircopsraw == On) { if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %found | if (%airco == on) { echo %aircopsw 2 $hc($6) $+ 1272 $5 $+ | .timer 1 3 unset %airco } | if (%irco == on) { echo %ircopsw 2 $hc($6) $+ 1272 $3 $+ @ $+ $4 $+ | .timer 1 3 unset %irco | halt } }
if (($left($7,2) == H*) || ($left($7,2) == G*)) { inc %found | %iropn = %iropn $6 }
:skip
if (%cscanraw != Off) { halt }
if (%scanraw != Off) { halt }
if (%sscanraw != Off) { halt }
if (%ircopsraw != Off) { halt }
}
}
#notifyraw on
raw 302:* {
set %tmpadd1 $remove($token(1,61,$2),$chr(61))
set %tmpadd2 $right($token(2,61,$2),$sub($len($token(2,61,$2)),1))
set %tmpadd = %tmpadd1 $+ ! $+ %tmpadd
recho 2NOTIFY $+ :1 Nick: $hc(%tmpadd1) - Address: $hc(%tmpadd2) is on IRC.
unset %tmp*
halt
}
#notifyraw end