RawServ — File Browser
RawServv0.5 / RawServv0.5 / ALIAS1.MRC
ALIAS1.MRC — 17.1 KB — Download this file
adduser {
set %add $token(2,64,$1)
set %add1 $token(1,64,$1)
if (($token(1,46,%add) >= 0) && ($token(1,46,%add) < 256)) .guser $2 $3 3
else {
set %i -1
:start
inc %i
if (%i > 9) .auser $2 %add1 $+ @ $+ %add
else {
set %add $replace(%add,%i,*)
set %add $replace(%add,**,*)
goto start
}
unset %add*
}
if ($3) recho Added $hc($3) to user list.
}
atop {
set %tmp $readini names.txt Users $address($1,3)
%tmp1 = $readini names.txt %tmp opchannel
if (($2 isin %tmp1) || (%tmp1 == all)) return 1
else return 0
}
hc return $+ %c2 $+ $1- $+
sd {
set %tmp $readini names.txt $maddress($address($1,0)) channels
if (($2 isin %tmp) || (%tmp == all)) return 1
else return 0
}
ul {
if (($1 < 60) || ($1 == 69)) return $chr(32)
elseif ($1 == 100) return [ me ]
elseif ($1 == 90) return [ op ]
elseif ($1 == 70) return [ voice ]
elseif ($1 == 60) return [ enemy ]
}
usr return $readini names.txt Users $mask($maddress($address($1,5)),3)
td return $mircdir $+ $1
tp return $mircdir $+ $1
recho {
if ($active == @rawserver) { echo -s %r $1- }
if ($active == %wrsmail) { echo 1 %wrsmail %rw $1- }
if ($active == %rsmail) { echo %rsmail %rw $1- }
if ($active ischan) { echo -a %r $1- }
if (status isin $active) { echo -s %r $1- }
elseif (%away == on) && (%msglog == on) { echo %msglogw %r $1- }
}
rserr {
close -c $me
.disable #rawserver
recho The rawserver has encountered an error connecting to %raw.server2 $+
unset %rawserverO
unset %rawserver
unset %Rawserver2
}
connect raw -q privmsg $me :DCC CHAT CHAT $longip($$1) $$2
Rawstats {
/echo @RawServer 2 +---------------RawServer Status --------------+
/echo @RawServer 10 Nick: 2 %raw.snick
/echo @RawServer 10 Signon time: 2 $day $adate $atime($time)
/echo @RawServer 10 Server: 2 %raw.server ( $+ %raw.serverport $+ )
/echo @RawServer 10 Host: 2 $host
/echo @RawServer 10 Current mode: 2 +i
/echo @RawServer 2 +----------------------End----------------------+
}
spyquit { toserver quit : ( %version ) }
raway {
.set %awaysince $ctime
.set %mlmsgnum 0
.set %msgnum 0
.set %awaytime Since: $atime($ctime)
.set %awaymsg $$?="Enter Away Msg"
away %awaymsg
.write -c page.txt
if (%plon == on) {
.timer4 888 800 /amsg 2A 10way:2( $+ $+ %awaymsg $+ 2)10( 2P 10ager - on10) 10( 2M 10sgLog - on10)(2 $+ %awaytime $+ 10)2(( %version ))
/amsg 2A 10way:2( $+ $+ %awaymsg $+ 2)10( 2P 10ager - on10)10( 2M 10sgLog - on10)2(( %version )) | halt
.set %pager on
}
if (%plof == on) {
.timer4 888 800 /amsg 2A 10way:2( $+ $+ %awaymsg $+ 2)10( 2P 10ager - off10) 10( 2M 10sgLog - off10)(2 $+ %awaytime $+ 10)2(( %version ))
/amsg 2A 10way:2( $+ $+ %awaymsg $+ 2)10( 2P 10ager - off10)10( 2M 10sgLog - off10)2(( %version )) | halt
}
if (%poflon == on) {
.timer4 888 800 /amsg 2A 10way:2( $+ $+ %awaymsg $+ 2)10( 2P 10ager - off10)10( 2M 10sgLog - on10)(2 $+ %awaytime $+ 10)2(( %version ))
/amsg 2A 10way:2( $+ $+ %awaymsg $+ 2 )10( 2P 10ager - off10)10( 2M 10sgLog - on10)2(( %version )) | halt
}
if (%ponlof == on) {
.timer4 888 800 /amsg 2A 10way:2 ( $+ $+ %awaymsg $+ 2)10( 2P 10ager - on10)10( 2M 10sgLog - off10)(2 $+ %awaytime $+ 10)2(( %version ))
/amsg 2A 10way:2 ( $+ $+ %awaymsg $+ 2)10( 2P 10ager - on10)10( 2M 10sgLog - off10)2(( %version )) | halt
.set %pager on
}
}
rback {
if ($away == $false) && (%away == off) { recho You Wernt Away! | halt }
else {
/amsg 2B 10ack 2F 10rom 2( $+ %awaymsg $+ )10( 2G 10one 2F 10or2: $+ $rsc($duration($sub($ctime,%awaysince))) $+ 10) $+ 2( $+ %version $+ )
unset %awaymsg
.set %away off
.disable #aamsgs
away
if ($2 == $null) {
if (%msgnum == $null) && ($group(#msglog) == on) { Recho You Recived No Messages While Away }
if (%msgnum == 0) && ($group(#msglog) == on) { Recho You Recived No Messages While Away }
if (%msgnum == 1) { recho You have $+ %msgnum $+ message waiting from %msgnicks $+ . %MSGS4 }
if (%msgnum >= 2) { recho You have $+ %msgnum $+ %MSGS1 %msgnicks $+ . %MSGS3 }
if ((%mlmsgnum >= 1) && (%msglog == On)) { recho You have %mlmsgnum logged message(s) (See MsgLog window). }
.disable #msglog
.set %msglog off
.timer4 off
if (%pager == on) {
.disable #pager
pagerc
}
}
}
}
rhelp {
if ($1 == $null) {
if {%help != on) {
window -c @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Help Window
window -ae @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Help Window 100 100 700 400 /rhelp MS Sans Serif 8
}
.play -cthelp $me complete.txt 0
set %help on
halt
}
if (%help != on) { recho Open help window first using /rhelp | halt }
if (($1 == 0) && (%help == on)) { window -c @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Help Window | set %help off }
if (($1 == 1) && (%help == on)) { .play -ctrawhelp $me complete.txt 0 | halt }
if (($1 == 2) && (%help == on)) { .play -ctflood $me complete.txt 0 | halt }
if (($1 == 3) && (%help == on)) { .play -cttrouble $me complete.txt 0 | halt }
if (($1 == 4) && (%help == on)) { .play -ctother $me complete.txt 0 | halt }
}
cstats {
set %cstats on
unset %nmawy %add
set %niops 0
set %naway 0
set %ncls 0
.raw who #
}
op { if ($me !isop #) { recho You need ops on # to op someone! | halt } | else { mode # +ooo $$1 $2 $3 | mode # +ooo $$4 $5 $6 } }
deop { if ($me !isop #) { recho You need ops on # to deop someone! | halt } | else { mode # -ooo $$1 $2 $3 | mode # -ooo $$4 $5 $6 } }
oop omode # +ooo $$1 $2 $3 | omode # +ooo $$4 $5 $6
odeop omode # -ooo $$1 $2 $3 | omode # -ooo $$4 $5 $6
mop { if ($me !isop #) { recho You need ops on # to op someone! | halt } | else { mode # +oooo $$1 $2 $3 $4 | mode # +oooo $5 $6 $7 $8 | mode # +oooo $9 $10 $11 $12 | mode # +oooo $13 $14 $15 $16 | mode # +oooo $17 $18 $19 $20 | mode # +oooo $21 $22 $23 $24 | mode # +oooo $25 $26 $27 $28 | mode # +oooo $29 $30 $31 $32 } }
mdeop { if ($me !isop #) { recho You need ops on # to deop someone! | halt } | else { mode # -oooo $$1 $2 $3 $4 | mode # -oooo $5 $6 $7 $8 | mode # -oooo $9 $10 $11 $12 | mode # -oooo $13 $14 $15 $16 | mode # -oooo $17 $18 $19 $20 | mode # -oooo $21 $22 $23 $24 | mode # -oooo $25 $26 $27 $28 | mode # -oooo $29 $30 $31 $32 } }
voice { if ($me !isop #) { recho You need ops on # to voice someone! | halt } | else { mode # +vvv $$1 $2 $3 | mode # +vvv $$4 $5 $6 }
devoice { if ($me !isop #) { recho You need ops on # to devoice someone! | halt } | else {mode # -vvv $$1 $2 $3 | mode # -vvv $$4 $5 $6 } }
mvoice { if ($me !isop #) { recho You need ops on # to voice someone! | halt } | else { mode # +vvvv $$1 $2 $3 $4 | mode # +vvvv $5 $6 $7 $8 | mode # +vvvv $9 $10 $11 $12 | mode # +vvvv $13 $14 $15 $16 | mode # +vvvv $17 $18 $19 $20 | mode # +vvvv $21 $22 $23 $24 | mode # +vvvv $25 $26 $27 $28 | mode # +vvvv $29 $30 $31 $32 } }
mdevoice { if ($me !isop #) { recho You need ops on # to devoice someone! | halt } | else { mode # -vvvv $$1 $2 $3 $4 | mode # -vvvv $5 $6 $7 $8 | mode # -vvvv $9 $10 $11 $12 | mode # -vvvv $13 $14 $15 $16 | mode # -vvvv $17 $18 $19 $20 | mode # -vvvv $21 $22 $23 $24 | mode # -vvvv $25 $26 $27 $28 | mode # -vvvv $29 $30 $31 $32 } }
msglogw if ($1 == -c) { .window -c %msglogw } | else { window %msglogw 485 200 415 110 %msglogw }
cycle {
if ($1) { .set %ckey $1(#).key | Join $1 %ckey | .timer 1 5 part $1 | halt }
elseif (i isin $token(1,32,$chan(#).mode)) { recho Cannot cycle an invite only channel }
else {
set %ckey $chan(#).key
.raw part #
.raw join # %ckey
unset %ckey
halt
}
}
next { if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | set %emnxt1 On | inc %emnxt | %emdec = %emnxt | %emfnd = %emnxt | .disable #email | .enable #remail | echo 2 %rsmail Retrieving message %emnxt $+ | %csemrd = %emnxt | msg %dccemme RETR %emnxt }
prev { if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | set %emdec1 On | dec %emdec | %emnxt = %emdec | %emfnd = %emdec | .disable #email | .enable #remail | echo 2 %rsmail Retrieving message %emdec $+ | %csemrd = %emdec | msg %dccemme RETR %emdec }
read { if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | %emfnd = $1 | %emdec = $1 | %emnxt = $1 | %csemrd = $1 | .disable #email | .enable #remail | echo 2 %rsmail Retrieving message $1 $+ | msg %dccemme RETR $1 }
del { if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | .enable #email | if ($1 == $null) { msg = $+ %me DELE %emfnd } | else { msg %dccemme DELE $1 } }
listmail { if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | .disable #sendmail | .enable #lemail | echo 2 %rsmail Email# - Size | echo 2 %rsmail %embrk | msg %dccemme LIST }
setpop { set %pporspset On | set %pposp POP | set %email $$?="Your full email address:" | set %username $token(1,64,%email) | set %userpass $$?="Password for [ %username ] " | .enable #getmailip | .dns $$?="POP3 address of mail server:" | .timer 1 23 .disable #getmailip | .unset %raw.serverO | .unset %spy | unset raw.* | halt }
setsmtp { set %pporspset On | set %pposp SMTP | set %myn $$?="Your name (or handle/nick):" | set %email $$?="Enter reply-to address:" | set %emsigq $$?="Use a signature? (Yes/No)" | if (%emsigq == Yes) { set %emsig $$?="Signature" } | .enable #getmailip |.set %smtp on | .dns $$?="Enter SMTP server address:" | .timer 1 10 .set %smtp off | .timer 1 10 .disable #getmailip }
semail2 { .timer 1 4 msg %dccemme _ | if (%emsig != $null) { .timer 1 5 msg %dccemme %emsig } | .timer 1 6 msg %dccemme . }
reply if (%dccoffline == Yes) { recho Connection was lost! Please type /getmail first! | halt } | close -c $me | sendmail %reply $1-
quitmail { if ($chat($me) == $me) { msg %dccemme quit } | close -c $me | .window -c %wrsmail | .window -c %rsmail | halt }
ptsmtpset recho ERROR!! | recho %PTSMTPSET | close -c %me | .timer 1 10 window -c %rsmail | set %dccoffline Yes | set %comsndr Off | .disable #proccessing #lemail #sendmail #email | .creq ask | .alias f4 Setsmtp
ptpopset recho ERROR!! | recho %PTPOPSET | close -c %me | .timer 1 10 window -c %rsmail | set %dccoffline Yes | set %comsndr Off | .disable #lemail #sendmail #email #proccessing | .creq ask | .alias f4 setpop
f9 /getmail
f10 /sendmail
maildis {
.disable #lemail
.disable #remail
.disable #sendmail
.disable #email
}
rawstatus {
if ($1 == $null) {
if {%status != on) {
window -c @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Settings Window
window -ae @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Settings Window 100 100 400 700 setpop.mrc MS Sans Serif 8 10
}
.play -ctopen $me settings.txt 0
set %status on
halt
}
if (%status != on) { recho Open help window first using /rawstatus | halt }
if (($1 == 0) && (%status == on)) { window -c @ $+ $remove($remove($replace(%help.ver,$chr(32),$chr(160)),), ) $+ Settings Window | set %status off }
if (($1 == 1) && (%status == on)) { .play -ctfloodpro $me settings.txt 0 | halt }
if (($1 == 2) && (%status == on)) { .play -ctother $me settings.txt 0 | halt }
if (($1 == 3) && (%status == on)) { .play -ctemail $me settings.txt 0 | halt }
}
ports {
window -a %portw 100 100 350 200 %portw
echo %portw *** Listing Ports for $hc($server) ...
set %ports.vari 1
set %ports.flag no
set %ports.average 0
.enable #ports
stats l
}
seen {
if ($1 == on) {
set %seenbot on
.load -rs seen.mrc
recho Seen Bot has been enabled.
}
elseif ($1 == off) {
set %seenbot off
if ($scr(seen.mrc) == 1) .unload -rs seen.mrc
recho Seen Bot has been disabled.
}
elseif ($2) {
set %tmp.s1 $readini -n names.txt $2 seen
if (%tmp.s1) { msg $1 $+ $2 $+ was last seen on $asctime(%tmp.s1) ( $+ $rsc($duration($sub($ctime,%tmp.s1))) ago). unset %tmp*
}
}
}
killserver { .set %rawservero off | .window -c @RawServer | if ($chat($me) == $me) { toserver quit : $+ %version $+ - $+ RawServer- $+ %averme | .timer 1 3 Close -c $me | Close -c $me } | if ($scr(server.mrc) == 1) { .unload -rs server.mrc } | if ($group(#proccessing) == on) { .disable #proccessing } | .window -c @# $+ | .window -c @# $+ | .window -c @# $+ | halt }
atime {
set %hour $token(1,58,$time) | set %mins $token(2,58,$time) | set %secs $token(3,58,$time) | set %pm am
if (%hour == 0) { %hour = 12 }
elseif (%hour > 12) { %hour = %hour - 12 | %pm = pm }
elseif (%hour == 12) %pm = pm
%time = %hour $+ : $+ %mins $+ : $+ %secs $+ %pm
unset %hour %mins %secs %pm
return %time
}
rb return $remove($remove($1-,]),[)
add {
set %useradd on
if ($1 == +o) {
set %addop on
if ($3) set %opchannel $3
else set %opchannel $?="Channels to op in (type all for all chans)"
.raw whois $2
}
elseif ($1 == +s) {
set %shitter on
unset %reason %banchans
set %reason $$?="Reason?"
set %banchans $$?="Channels (enter 'all' for all chans):"
.raw whois $2
}
elseif ($1 == +v) {
set %addv on
if ($3) set %vchannel $3
else set %vchannel $?="Channels to op in (type all for all chans)"
.raw whois $2
}
elseif ($1 == -o) { set %remop on | .whois $2 }
elseif ($1 == -s) { set %unshit on | .whois $2 }
elseif ($1 == -v) { set %remv on | .whois $2 }
else recho Syntax: /add +/-<o|v|s> <nick> [channel]
}
addban {
if ($1) {
if (%reason == $null) set %reason $$?="Reason"
if (%banchans == $null) set %banchans $$?="Channels (enter 'all' for all chans):"
%reason = Banned $mid($fulldate,5,3) $+ $mid($fulldate,9,2) $+ : %reason
writeini names.txt $1 reason %reason
writeini names.txt $1 channels %banchans
unset %reason %banchans
.auser 60 $1
bkick $ial($1,1).nick
bban $ial($1,1).nick
recho $hc($2) is now an Enemy.
}
}
getmail {
if (%mailip == $null) { ptpopset | halt }
if ($scr(server.mrc) == 1) { recho %rawmailerror | halt }
if ($scr(spy.mrc) == 1) { recho %spymailerror | halt }
if ($scr(bot.mrc) == 1) { recho %botmailerror | halt }
else {
.creq auto
close -c $me
.disable #lemail
.disable #remail
.disable #sendmail
.enable #email
set %me $me
window -eao %rsmail 15 10 775 400 %rsmail
raw -q privmsg $me :DCC CHAT CHAT $longip(%mailip) 110
}
}
sendmail {
if (%smailip == $null) { ptsmtpset | halt }
if ($scr(server.mrc) == 1) { recho %rawmailerror | halt }
if ($scr(spy.mrc) == 1) { recho %spymailerror | halt }
if ($scr(bot.mrc) == 1) { recho %botmailerror | halt }
else {
{ set %rcpt $$?="enter address to send to" }
if ($2 != $null) { set %subj $2- }
else { set %subj $$?="Enter subject:" }
set %me $me | window -eao %wrsmail 15 10 775 400 mail.mrc ms sans serif 8 | write -c email.txt
recho 10 $+ %FEMHT
recho 10 $+ write your email message in window 2 %wrsmail .
recho 10 $+ Type 2/send 10to send the email.
recho 10 $+ Loading ........Gathering Info. Please Wait...
recho 10 $+ Okay Write Msg now.
.disable #nc
.enable #writemail
set %semailnow No
}
}
/wall /onotice 2-[WaLLOpS]-10-[ $+ $chan $+ ]- 13 *1
/rawserver {
if ($scr(spy.mrc) == 1) recho !ERROR! You cant run two raw connections at once please close one Before starting the other
if ($scr(bot.mrc) == 1) { recho !ERROR! You cant run two raw connections ar once please close one Before Starting the other | halt }
else goto rawstart
:rawstart
.set %raw.server $$?="Enter Server"
.set %raw.serverport $$?="Server Port"
.set %raw.snick $$?="Enter Nick"
.set %idq $$?="yes for seperate ident or no for mIRC identd"
if (n isin %idq) && ($readini -n mirc.ini ident userid) { .identd on }
if (n isin %idq) && ($readini -n mirc.ini ident userid == $null) {
recho Sorry you cannot use mIRC's Identd system since you do not have one set
.set %choose $$?="Do You Wish to Setup Your mIRC's Identd?"
if (y isin %choose) { writeini mirc.ini userid $$?="Enter Identd" }
if (n isin %choose) { halt }
}
if (y isin %idq) { .set %rawuserid $$?="Enter User Id" | .identd off }
rawman
}
rawman {
window -eao @RawServer 0 150 750 200 @RawServer ms sans serif 8
.load -rs $mircdirserver.mrc
echo 2 @RawServer Connecting to %raw.server ( $+ %raw.serverport $+ )
.enable #proccessing
.timer 1 65 .disable #proccessing
.dns %raw.server
.set %rawservero on
}
pls %tmp = $1 + $2 | return %tmp
toserver msg =TheShad0w :Dallas.Tx.US.Undernet.org 421 TheShadoW 421 :Unknown command