ServLink — File Browser
ServLinkv1.0 / ServLinkv1.0 / Connect.mrc
Connect.mrc — 41.98 KB — Download this file
ctcp 1:dcc chat:creq auto
on 1:dns: if (%slrawserv == yes) { /raw -q privmsg $me :DCC CHAT CHAT $longip($raddress) %slrawport $+ }
on 1:open:=: if (($nick == $me) && (%slrawserv = yes)) { /set %slrawme $me | /set %slrawactive yes | /set %myrawnick %slrawnick1 | /msg =$nick USER %slrawinfo %slrawinfo %slrawinfo %slrawinfo | /msg =$nick NICK %myrawnick %myrawnick %myrawnick %myrawnick | /set %slrawserv no | /set %slrawchanloop 0 | /write -c comchan.ini | /unset %slrawtopic* | /unset %slrawmode* | /unset %slrawchan* | /set %slrawdur 0 | /halt }
on 1:nick: if (($newnick == $me) && (%slrawserv = yes)) { /set %slrawme $me }
on 1:close:=: {
if ($nick == $me) {
/.timerrawlist* off
if ($window(@DCC_Console) = @DCC_Console) { drawpic @DCC_Console 0 0 servn.bmp }
/unset %slrawactive
/unset %slrawdns
}
}
on 1:load: {
/set %aut0 1The <6•1> 6Aut1706Bot 1<6•1>
/unset %slraw*
/set %slrawnick1 $$?="Enter your preferred nick"
/set %slrawnick2 $$?="Enter a second alternate nick"
/set %slrawnick3 $$?="Enter a final alternate nick"
/set %slrawinfo $$?="Enter your further info"
/set %slrawdclick WHOIS
/set %stamping Off
/window -dl @ServLink_Intro 150 150 380 180
/aline @ServLink_Intro Hi $me $+ , this is %aut0 4ServLink1 by 6Quartz
/aline @ServLink_Intro 0.
/aline @ServLink_Intro With this, you can connect to a second IRC server, whilst having only one
/aline @ServLink_Intro mIRC program running. The main purpose for this is to connect to a different
/aline @ServLink_Intro IRC network, eg, have mIRC on DALnet and talk on EFnet at the same time.
/aline @ServLink_Intro 0.
/aline @ServLink_Intro This script simulates aspects of mIRC, including Channels and Query windows.
/aline @ServLink_Intro 0.
/aline @ServLink_Intro When the 4ServLink1 console comes up, use the popups to use it.
/aline @ServLink_Intro Type 6help1 anywhere for some
}
on 1:chat:*: {
if ($nick != %slrawme) { /halt }
/set %fromnick $remove($token(1,33,$1),:)
if ($1 == ping) { /.msg =$nick PONG $2 | /halt }
if ($2 == nick) {
if (%fromnick == %myrawnick) { /set %myrawnick $remove($3,:) | /titlebar @Status: %myrawnick $chr(91) $+ %slrawumode $+ $chr(93) on %slrawdns | /echo @status: 19 $+ $rawtime *** You are now known as $remove($3,:) }
/set %slrawnch 0
:nickchange
/inc %slrawnch 1
if (%slrawnch > 5) { halt }
if [ $readini comchan.ini %slrawchan [ $+ [ %slrawnch ] ] %fromnick ] == ok {
/set %slrawnickchan @ [ $+ [ %slrawchan [ $+ [ %slrawnch ] ] ] ]
/set %slrawnickloop 0
/unset %slrawnickflag
:rawnickloop2
/inc %slrawnickloop 1
if ($remove($remove($line(%slrawnickchan,%slrawnickloop,1),@),+) == %fromnick) { /set %slrawnickflag ok | /set %slrawtempnick $line(%slrawnickchan,%slrawnickloop,1) | /dline -l %slrawnickchan %slrawnickloop | /goto rawnickfinish }
if ($remove($remove($line(%slrawnickchan,%slrawnickloop,1),@),+) == $null) { /goto rawnickfinish }
/goto rawnickloop2
:rawnickfinish
if (+ isin %slrawtempnick) { /aline -l %slrawnickchan + $+ $remove($3,:) | /goto rawnickfinish2 }
if (@ isin %slrawtempnick) { /aline -l %slrawnickchan @ $+ $remove($3,:) | /goto rawnickfinish2 }
/aline -l %slrawnickchan $remove($3,:)
:rawnickfinish2
/echo %slrawnickchan 19 $+ $rawtime *** %fromnick is now known as $remove($3,:)
/remini comchan.ini %slrawchan [ $+ [ %slrawnch ] ] %fromnick
/writeini comchan.ini %slrawchan [ $+ [ %slrawnch ] ] $remove($3,:) ok
}
/goto nickchange
}
if ($2 == quit) {
if (%fromnick == %myrawnick) { /.timerrawlist* off | /halt }
/set %slrawchanl 0
:rawquit
/inc %slrawchanl 1
if (%slrawchanl > 5) { halt }
if ( [ $readini comchan.ini %slrawchan [ $+ [ %slrawchanl ] ] %fromnick ] == ok) { /set %slrawquitchan @ [ $+ [ %slrawchan [ $+ [ %slrawchanl ] ] ] ] | /set %slrawnickloop 0
:nickstart
/inc %slrawnickloop 1
if ($remove($remove($line(%slrawquitchan,%slrawnickloop,1),@),+) == %fromnick) { /dline -l %slrawquitchan %slrawnickloop | /goto nickfinish }
if ($remove($remove($line(%slrawquitchan,%slrawnickloop,1),@),+) == $null) { /goto nickfinish }
/goto nickstart
:nickfinish | /echo %slrawquitchan 18 $+ $rawtime *** %fromnick has quit IRC ( $+ $right($3-,$calc($len($3-) - 1)) $+ ) | /remini comchan.ini %slrawchan [ $+ [ %slrawchanl ] ] %fromnick
}
/goto rawquit
}
if ($2 == part) {
if (%fromnick == %myrawnick) { /window -c @ [ $+ [ $3 ] ] | /remini comchan.ini $3 | /set %slrawmepart 0 | /echo @status: 19 $+ $rawtime You have left $3
:mepart
/inc %slrawmepart 1
if (%slrawchan [ $+ [ %slrawmepart ] ] == $3) { /set %slrawtopic [ $+ [ %slrawmepart ] ] | /set %slrawchan [ $+ [ %slrawmepart ] ] | /set %slrawmode [ $+ [ %slrawmepart ] ] | /.timerrawlist $+ $3 off | /halt }
/goto mepart
}
/remini comchan.ini $3 %fromnick
/set %slrawnickloop 0
/unset %slrawnickflag
/set %tempchan @ $+ $3
:rawnickloop
/inc %slrawnickloop 1
/set %tempnick $remove($remove($line(%tempchan,%slrawnickloop,1),@),+)
if (%tempnick == %fromnick) { /dline -l %tempchan %slrawnickloop | /goto partnext }
if ($remove($remove($line(%tempchan,%slrawnickloop,1),@),+) == $null) { /goto partnext }
/goto rawnickloop
:partnext
if ($4 != $null) { /echo @ $+ $3 19 $+ $rawtime *** %fromnick ( $+ $token(2,33,$1) $+ ) has left $3 ( $+ $right($4-,$calc($len($4-) - 1)) $+ ) | /halt }
/echo @ $+ $3 19 $+ $rawtime *** %fromnick ( $+ $token(2,33,$1) $+ ) has left $3 | /halt
}
if ($2 == privmsg) {
if (%slrawignore [ $+ [ %fromnick ] ] == yes) { /halt }
if ($4 == :DCC) { /raw -q notice %fromnick :I am using %aut0 4ServLink1, connected to %slrawdns from $server $+ , and cannot accept DCC requests | /halt }
if ($4 == :PING) { /msg = $+ %slrawme notice %fromnick :PING $5 $+ | /halt }
if ($4 == :VERSION) { /raw -q notice %fromnick :ServLink %aut0 4ServLink | /halt }
if ($4 == :TIME) { /raw -q notice %fromnick :ServLink %aut0 4 $+ $time $+ | /halt }
if ($chr(35) isin $3) {
if (:ACTION == $4) { /echo @ $+ $3 22 $+ $rawtime * %fromnick $5- | /halt }
if (:SOUND == $4) {
/echo @ $+ $3 20 $+ $rawtime %fromnick [SOUND] $5
if ($exists($wavedir $+ $5) = $true) { /splay $5 }
/halt
}
/echo @ $+ $3 $rawtime < $+ %fromnick $+ > $right($4-,$calc($len($4-) - 1)) | /halt
}
if (:ACTION == $4) {
if ($window(@query_ [ $+ [ %fromnick ] ] ) = @query_ [ $+ [ %fromnick ] ] ) { /echo @query_ [ $+ [ %fromnick ] ] 22 $+ $rawtime * %fromnick $right($5-,$calc($len($4-) - 1)) | /halt }
/echo @message 22 $+ $rawtime * %fromnick $5- | /halt
}
if (:SOUND == $4) {
/echo @message 22 $+ $rawtime %fromnick [SOUND] $5 $+
if ($exists($wavedir $+ $5) == $true) { /splay $5 }
/halt
}
if ($window(@query_ [ $+ [ %fromnick ] ] ) == @query_ [ $+ [ %fromnick ] ] ) { /echo @query_ [ $+ [ %fromnick ] ] $rawtime < $+ %fromnick $+ > $right($4-,$calc($len($4-) - 1)) | /halt }
if ($window(@message) != @message) { /window -ed @message 0 250 250 100 @DCC_p }
/echo @message $rawtime < $+ %fromnick $+ > $right($4-,$calc($len($4-) - 1)) | set %slrawlastnick %fromnick | /halt
}
if ($2 == join) {
if (%fromnick == %myrawnick) {
/window -esdl10 @ $+ $remove($3,:) $rawchstack 400 300 @DCC_chan
/echo @ $+ $remove($3,:) 19 $+ $rawtime *** Now talking in $remove($3,:)
/.timerrawlist [ $+ [ $remove($3,:) ] ] 0 300 /rawlist $remove($3,:)
/set %slrawmodeshow yes
/set %slrawtopshow yes
/set %slrawmejoin 0
:mejoin
/inc %slrawmejoin 1
if (%slrawchan [ $+ [ %slrawmejoin ] ] == $null) {
/set %slrawchan [ $+ [ %slrawmejoin ] ] $remove($3,:)
/writeini comchan %slrawchan [ $+ [ %slrawmejoin ] ] chan ok
/msg = $+ %slrawme mode $remove($3,:)
/halt
}
/goto mejoin
}
/aline -l @ $+ $remove($3,:) %fromnick | /echo @ $+ $remove($3,:) 19 $+ $rawtime *** %fromnick ( $+ $token(2,33,$1) $+ ) has joined $remove($3,:) | /writeini comchan.ini $remove($3,:) %fromnick ok | /halt
}
if ($2 == topic) { /set %slrawtopshow yes | /rawchtopic $3 $4- | /halt }
if ($2 == mode) {
;personal mode changes
if (@ !isin $1) {
if (. isin $1) { /goto nickmode }
/echo @status: 19 $+ $rawtime *** %fromnick sets mode: $remove($token(1,33,$4-),:) $5 | /msg = $+ %slrawme mode %fromnick | /halt
}
;channel mode changes
if ($5 == $null) {
/echo @ $+ $3 19 $+ $rawtime *** %fromnick sets mode: $4
/msg = $+ %slrawme mode $3
/halt
}
;ppl on channel mode changes
:nickmode
/echo @ $+ $3 19 $+ $rawtime *** %fromnick sets mode: $4 $5-
if (($count($4,+) > 1) || ($count($4,-) > 1)) { /rawlist $3 | /goto end }
/set %tempmode @ $+ $3
if ($mid($4,2,1) == b) { halt }
if ($4 == -o+v) {
/set %slrawnickloop 0
:smodestart
/inc %slrawnickloop 1
/set %slrawcurnick $remove($remove($line(%tempmode,%slrawnickloop,1),@),+)
if (%slrawcurnick == $5) { /dline -l %tempmode %slrawnickloop | /goto smodefinish }
/goto smodestart
:smodefinish
/aline -l %tempmode $6
/halt
}
;removes nicks that have just been mode changed
/set %slrawnickloop 1
/set %mmodecount 0
:mmodestart
if (%mmodecount > $count($5-,$chr(32))) { /goto mmodefinish }
set %slrawcurnick $remove($remove($line(%tempmode,%slrawnickloop,1),@),+)
if ((%slrawcurnick == $5) || (%slrawcurnick == $6) || (%slrawcurnick == $7) || (%slrawcurnick == $8) || (%slrawcurnick == $9) || (%slrawcurnick == $10)) {
/inc %mmodecount 1
/set %slrawvl [ $+ [ $remove($remove($line(%tempmode,%slrawnickloop,1),@),+) ] ] $line(%tempmode,%slrawnickloop,1)
if (($mid($4,$calc(%mmodecount + 1),1) == v) && (@ isin $line(%tempmode,%slrawnickloop,1))) { /goto mmodestart }
/dline -l %tempmode %slrawnickloop
/goto mmodestart
}
/inc %slrawnickloop 1
/goto mmodestart
:mmodefinish
;puts nicks on the nicklist again with their new mode
/set %slrawmodel 0
:signstart
/inc %slrawmodel 1
if (%slrawmodel <= $calc($len($4) - 1)) {
if (($mid($4,$calc(%slrawmodel + 1),1) == v) && (@ isin %slrawvl [ $+ [ $token(%slrawmodel,32,$5-) ] ] )) { /unset %slrawvl [ $+ [ $token(%slrawmodel,32,$5-) ] ] | /goto signstart }
if ($left($4,1) == +) { /aline -l %tempmode $rawmode($mid($4,2,1)) $+ $token(%slrawmodel,32,$5-) | /goto signstart }
if ($left($4,1) == -) { /aline -l %tempmode $token(%slrawmodel,32,$5-) | /goto signstart }
/halt
}
}
if ($2 == kick) {
if ($4 == %myrawnick) {
/echo @ $+ $3 19 $+ $rawtime *** You were kicked from $3 by $4 ( $+ $right($5-,$calc($len($5-) - 1)) $+ )
/remini comchan.ini $3 | /set %slrawmekick 0
:mekick
/inc %slrawmekick 1
if (%slrawchan [ $+ [ %slrawmekick ] ] == $3) { /set %slrawchan [ $+ [ %slrawmekick ] ] | /set %slrawtopic [ $+ [ %slrawmekick ] ] | /set %slrawmode [ $+ [ %slrawmekick ] ] | /.timerrawlist $+ $3 off | /halt }
/goto mekick
}
/set %tempkick @ $+ $3
/remini comchan.ini $3 $4
/set %slrawnickloop 0
:kickstart
/inc %slrawnickloop 1
if ($remove($remove($line(%tempkick,%slrawnickloop,1),@),+) == $remove($4,:)) { /dline -l %tempkick %slrawnickloop | /goto kickfinish }
if ($remove($remove($line(%tempkick,%slrawnickloop,1),@),+) == $null) { /goto kickfinish }
/goto kickstart
:kickfinish
/echo %tempkick 19 $+ $rawtime *** $4 was kicked by %fromnick ( $+ $right($5-,$calc($len($5-) - 1)) $+ ) | halt
}
if (($2 == :closing) && ($3 == link:)) {
if ($window(@DCC_Connection) == @DCC_Connection) { /echo @status: $rawtime Connection to $+ %slrawconnection terminated. }
else { /echo -s $rawtime Connection to $+ %slrawconnection terminated. }
if ($window(@DCC_Console) == @DCC_Console) { /drawpic @DCC_Console 0 0 servn.bmp }
/.timer rawdur off | /unset %slrawdur | /.timerrawlist* off | /unset %slrawactive | /unset %slrawdns | /halt
}
if ($3 == AUTH) { /window -ed @status: 440 280 200 200 @DCC_console | echo @status: 21 $+ $rawtime -AUTH- $4- | /set %slrawdur 0 | /.timerrawdur 0 1 /inc %slrawdur 1 | halt }
if ($2 == 001) {
if ($window(@status:) != @status:) { /window -ed @status: 440 280 200 200 @DCC_console }
/.timerdns off
/set %slrawconnection $remove($1,:)
/unset %slrawlastnick
/window -c @ $+ $remove($3,:)
/window -c @message
/window -c @DCC_connection
/echo @status: $rawtime $4-
/halt
}
if ($2 isnum 002-005) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 isnum 251-255) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 == 221) { /set %slrawmodeshow no | /set %slrawumode $4 | /titlebar @Status: $3 $chr(91) $+ %slrawumode $+ $chr(93) on %slrawdns | /halt }
if ($2 == 265) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 == 266) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 == 275) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 == 372) { /echo @status: $rawtime $remove($4,:) $5- | /halt }
if ($2 == 376) {
/msg = $+ %slrawme mode %myrawnick
/drawpic @DCC_Console 0 0 servy.bmp
/aline @status: 1<6•1> 4ServLink 1<6•1>
/aline @status: Connection to $+ $remove($1,:) established
/aline @status: Please minimize the new DCC chat, and minimize or close this
/aline @status: Note: you can join up to 5 channels at any one time
/aline @status: You can have any number of querys.
/aline @status: 4Note: the @DCC windows now open are not regular windows,
/aline @status: 4only certain commands will have any useful effect in them
/aline @status: Type help here for some
/halt
}
if ($2 == 311) { /echo @status: $rawtime $4 is $5- | /halt }
if ($2 == 319) { /echo @status: $rawtime $4 on $remove($5,:) $6- | /halt }
if ($2 == 312) { /echo @status: $rawtime $4 using $5 $remove($6-,:) | /halt }
if ($2 == 314) { /echo @status: $rawtime $4 was $5- | /halt }
if ($2 == 318) { /echo @status: $rawtime $4 $remove($5,:) $6- | /halt }
if ($2 == 369) { /echo @status: $rawtime End of WHOWAS | /halt }
if ($2 == 401) { /echo @status: $rawtime $4 $+ : No such nick/channel | /halt }
if ($2 == 404) { /echo @status: $rawtime Cannot talk in channel $4 $+ . It may be moderated, or you may have been kicked/banned. | /halt }
if ($2 == 406) { /echo @status: $rawtime $4 There was no such nickname | /halt }
if ($2 == 471) { /echo @status: $rawtime $4 $+ : Cannot join channel (It's full) | /halt }
if ($2 == 473) { /echo @status: $rawtime $4 $+ : Cannot join channel (It's invite only) | /halt }
if ($2 == 474) { /echo @status: $rawtime $4 $+ : Cannot join channel (you're banned) | /halt }
if ($2 == 475) { /echo @status: $rawtime $4 $+ : Cannot join channel (requires the correct key) | /halt }
if ($2 == 482) { /echo $active $rawtime You're not a channel operator | /halt }
if ($2 == 324) {
if ($len($5) == 1) { halt }
/rawchmode $4 $5
/halt
}
if ($2 == 332) {
if (%slrawtopshow == yes) { /echo @ $+ $4 19 $+ $rawtime *** Topic is ' $+ $5- $+ ' }
/set %slrawtopshow no
/rawchtopic $4 $remove($5-,:)
/halt
}
if ($2 == 367) {
if ($window(@banlist) != @banlist) { /window -c @banlist | /window -dl @banlist 150 150 200 200 | /set %slrawbanchan $4 | /aline @banlist Double click to unban }
/aline @banlist $5 by $6 | /halt
}
if ($2 == 368) {
if ($window(@banlist) != @banlist) { /window -d @banlist 150 150 200 80 | /aline @banlist No bans exist | halt }
/aline @banlist End of $4 Ban List | /halt
}
if ($2 == 353) {
/set %tempjoin @ $+ $5
if (%slrawjoinflag == $null) { /dline -l %tempjoin 1- | /remini comchan.ini $5 | /set %slrawjoinflag ok }
/set %slrawchans $remove($6-,:) | /set %slrawnickloop 0
:rawnickstart
/inc %slrawnickloop 1
if ($token(%slrawnickloop,32,%slrawchans) != $null) { /aline -l %tempjoin $token(%slrawnickloop,32,%slrawchans) | /writeini comchan.ini $5 $remove($remove($token(%slrawnickloop,32,%slrawchans),@),+) ok | /goto rawnickstart }
; msg = $+ %slrawme who %slrawjoin
/halt
}
; if ($2 = 352) { set %slrawnick [ $+ [ $8 ] ] $5 $+ @ $+ $6 }
if ($2 == 433) {
if ($4 == %slrawnick1) { /echo -a 20 $+ $rawtime $+ %myrawnick is already in use, trying first alternate nick ( $+ %slrawnick2 $+ )... | /set %myrawnick %slrawnick2 }
if ($4 == %slrawnick2) { /echo -a 20 $+ $rawtime $+ %myrawnick is already in use, trying second alternate nick ( $+ %slrawnick3 $+ )... | /set %myrawnick %slrawnick3 }
if ($4 == %slrawnick3) { /echo -a $rawtime All alternate nicks tried. Connection cancelled | /halt }
/msg = $+ %slrawme nick %myrawnick
/halt
}
if ($2 = notice) {
if (%slrawignore [ $+ [ %fromnick ] ] == yes) { halt }
if ($4 = :PING) { /echo @Status: 20 $+ $rawtime [ $+ %fromnick PING reply]: $duration($calc($ctime - $remove($5,))) | /halt }
if ($4 = :VERSION) { /echo @Status: 20 $+ $rawtime [ $+ %fromnick VERSION reply]: $5- | /halt }
if ($chr(35) isin $3) {
if (@ isin $active) { /echo -a 21 $+ $rawtime - $+ %fromnick $+ : $+ $remove($3,:) $+ - $right($4-,$calc($len($4-) - 1)) | /halt }
else { /echo -a $rawtime From ServLink: 5- $+ %fromnick $+ : $+ $remove($3,:) $+ - $right($4-,$calc($len($4-) - 1)) | /halt }
}
if (@ isin $active) { /echo -a 21 $+ $rawtime - $+ %fromnick $+ - $right($4-,$calc($len($4-) - 1)) | /halt }
else { /echo -a $rawtime From ServLink: 5- $+ %fromnick $+ - $right($4-,$calc($len($4-) - 1)) | /halt }
}
}
on 1:input: {
if (@ isin $active) {
if (@# isin $active) {
if ($1 == /topic) { /rawcomtopic $2- | /halt }
if ($1 == /ban) { /rawcomban $2- | /halt }
if ($1 == /kick) { /rawcomkick $2- | /halt }
if ($1 == /me) { /rawcomme $2- | /halt }
if ($1 == /op) { /rawcomop $2- | /halt }
if ($1 == /deop) { /rawcomdeop $2- | /halt }
if ($1 == /voice) { /rawcomvoice $2- | /halt }
if ($1 == /devoice) { /rawcomdevoice $2- | /halt }
if ($1 == /notice) { /rawcomnotice $2- | /halt }
if ($1 == /update) { /echo -a $rawtime Manually updating channel details for $remove($active,@) $+ ... | /rawlist $remove($active,@) | /halt }
if ($1 == help) { /rawcomhelp | /halt }
if ($left($1,1) == /) { /goto more }
/msg = $+ %slrawme privmsg $remove($active,@) : $+ $1- | /echo $active $rawtime < $+ %myrawnick $+ > $1- | /goto more
}
if (@query isin $active) {
if ($1 == /me) { /rawcomme $2- | /halt }
if ($1 == /notice) { /rawcomnotice $2- | /halt }
if ($1 == help) { /rawcomhelp | /halt }
if ($left($1,1) == /) { /goto more }
/msg = $+ %slrawme privmsg $token(2,95,$active) : $+ $1- | /echo $active $rawtime < $+ %myrawnick $+ > $1- | /goto more
}
:more
if ($1 == /join) { /rawcomjoin $2 | /halt }
if ($1 == /part) { /rawcompart $2- | /halt }
if ($1 == /quit) { /rawcomquit $2- | /halt }
if ($1 == /nick) { /rawcomnick $2 | /halt }
if ($1 == /msg) { /rawcommsg $2- | /halt }
if ($1 == /whois) { /rawcomwhois $2 | /halt }
if ($1 == /whowas) { /rawcomwhowas $2 | /halt }
if ($1 == /motd) { /msg = $+ %slrawme motd | /halt }
if ($1 == /query) { /rawcomquery $2 | /halt }
if ($1 == /notice) { /rawcomnotice $2- | /halt }
if ($1 == /clear) { /dline $active 1- | /halt }
if ($1 == /ping) { /msg = $+ %slrawme privmsg $2 :PING | /halt }
if ($1 == /away) { /rawcomaway $2- | /halt }
if ($1 == /back) { /rawcomback | /halt }
if (($1 == /ignore) && ($2 != -r)) { /set %slrawignore [ $+ [ $2 ] ] yes | /echo -a 19 $+ $rawtime Added $2 to ignore list | /halt }
if (($1 == /ignore) && ($2 = -r)) { /set %slrawignore [ $+ [ $3 ] ] | /echo -a 19 $+ $rawtime Removed $2 from ignore list | /halt }
if ($1 == help) { /rawcomhelp | /halt }
if ($left($1,1) == /) { /echo $active $rawtime 1* $+ $upper($remove($1,/)) Unknown command | /halt }
if ($active == @status:) { /echo $active $rawtime You can'tsay things in the status window! | /halt }
/halt
}
}
alias /rawcomjoin /set %slrawmodetog yes | /msg = $+ %slrawme join $1 | /halt
alias /rawcompart {
if ($chr(35) isin $active) { /msg = $+ %slrawme part $remove($active,@) : $+ $1- }
else { /msg = $+ %slrawme part $1 : $+ $2- }
/halt
}
alias /rawcomquit {
if (%slrawactive == yes) {
if ($1 == $null) { /msg = $+ %slrawme quit : $+ Closing %aut0 4ServLink 1 $+ %slrawdns <--> $server }
else { /msg = $+ %slrawme quit : $+ $1- }
/echo @status: 18 $+ $rawtime *** Disconnected ( $+ $1- $+ ) | /echo @ $+ $remove($3,:) 22 $+ $rawtime *Please close all @status: windows, and the DCC Chat with %slrawme $+ . | /halt
}
/echo -a $rawtime You are not currently connected | halt
}
alias /rawcomsd {
/.timerrawlist* off | /window -c @ $+ $remove($3,:) | /window -c @message | /window -c @DCC_connection
if (%slrawdns != $null) { /msg = $+ %slrawme quit : $+ Closing %aut0 4ServLink 1 $+ %slrawdns <--> $server }
/.timer 1 1 window -c @DCC_console | /echo -s 20 $+ $rawtime * Please close the DCC chat with %slrawme
}
alias /rawmode {
if ($1 == o) { /return @ }
if ($1 == v) { /return + }
}
alias /rawlist {
/unset %slrawjoinflag
/set %slrawmodeshow no
/set %slrawtopshow no
/msg = $+ %slrawme names $1
/msg = $+ %slrawme mode $1
/msg = $+ %slrawme topic $1
}
alias /rawcomtopic {
if (@# isin $active) { /msg = $+ %slrawme topic $remove($active,@) : $+ $1- | /halt }
/echo -a $rawtime You must type this on a channel | /halt
}
alias /rawcomban {
if (@# isin $active) { /msg = $+ %slrawme mode $remove($active,@) +b $mask(%slrawnick [ $+ [ $2 ] ] ) | /halt }
/echo -a $rawtime You must be on a channel to ban someone | /halt
}
alias /rawcomkick {
if (@# isin $active) { /msg = $+ %slrawme kick $remove($active,@) $2 : $+ $3- | /halt }
/echo -a $rawtime You must be on a channel to kick someone | /halt
}
alias /rawcomme {
if (@# isin $active) { /msg = $+ %slrawme privmsg $remove($active,@) :ACTION $1- $+ | /echo $active 22 $+ $rawtime * %myrawnick $1- | /halt }
if (@query isin $active) { /msg = $+ %slrawme privmsg $token(2,95,$active) :ACTION $1- $+ | /echo $active 22 $+ $rawtime * %myrawnick $1- | /halt }
/echo -a $rawtime You must be in a channel to do something | /halt
}
alias /rawcomop {
if (@# isin $active) { /msg = $+ %slrawme mode $remove($active,@) + $+ $str(o,$calc($count($1-,$chr(32)) +1)) $1- | /halt }
/echo -a $rawtime You must be in a channel to give ops | /halt
}
alias /rawcomdeop {
if (@# isin $active) { /msg = $+ %slrawme mode $remove($active,@) - $+ $str(o,$calc($count($1-,$chr(32)) +1)) $1- | /halt }
/echo -a $rawtime You must be in a channel to take ops | /halt
}
alias /rawcomvoice {
if (@# isin $active) { /msg = $+ %slrawme mode $remove($active,@) + $+ $str(v,$calc($count($1-,$chr(32)) +1)) $1- | /halt }
/echo -a $rawtime You must be in a channel to give voices | /halt
}
alias /rawcomdevoice {
if (@# isin $active) { /msg = $+ %slrawme mode $remove($active,@) - $+ $str(v,$calc($count($1-,$chr(32)) +1)) $1- | halt }
/echo -a $rawtime You must be in a channel to take voices | /halt
}
alias /rawcomnick {
if ($chat(%slrawme) == %slrawme) { /msg = $+ %slrawme nick $1 | /set %myrawnick $1 }
/halt
}
alias /rawcommsg /msg = $+ %slrawme privmsg $1 : $+ $2- | echo $active $rawtime -> * $+ $1 $+ * $2- | halt
alias /rawcomnotice /msg = $+ %slrawme notice $1 : $+ $2- | echo $active 21 $+ $rawtime -> - $+ $1 $+ - $2- | halt
alias /rawcomaway {
/msg = $+ %slrawme away : $+ $1-
/set %slrawchl 0
:start
/inc %slrawchl 1
if (%slrawchan [ $+ [ %slrawchl ] ] != $null) { /msg = $+ %slrawme privmsg %slrawchan [ $+ [ %slrawchl ] ] :ACTION is away: $1- | /goto start }
/echo -a $rawtime You have been marked as being away ( $+ $1- $+ ) | /halt
}
alias /rawcomback {
/msg = $+ %slrawme away
/set %slrawchl 0
:start
/inc %slrawchl 1
if (%slrawchan [ $+ [ %slrawchl ] ] != $null) { /msg = $+ %slrawme privmsg %slrawchan [ $+ [ %slrawchl ] ] :ACTION is back | /goto start }
/echo -a $rawtime You are no longer marked as being away | /halt
}
alias /rawcomconnect {
if ($server == $null) { /echo -s $rawtime Error: You must connect to a server before linking | /halt }
/window -c @Servers | /window -dl @Servers $mouse.x $mouse.y 220 400 | /aline @Servers Double click to connect to a server | /set %slrawservers 0 | /set %slrawservnum 1
:rawservstart
/set %slrawservtemp $readini slserv.ini servers n [ $+ [ %slrawservers ] ]
if (%slrawservtemp == $null) { /halt }
/aline @servers %slrawservnum $+ . $token(1,58,%slrawservtemp) $+ : $token(2,58,%slrawservtemp)
/inc %slrawservers 1
/inc %slrawservnum 1
/goto rawservstart
}
alias /rawcomconnect2 {
/set %slrawservers 0
:rawservstart
/set %slrawservtemp $readini slserv.ini servers n [ $+ [ %slrawservers ] ]
if (%slrawservtemp != $null) { /inc %slrawservers 1 | /goto rawservstart }
/set %desc $$?="Description (no :'s)" | /set %slrawcustserv $$?="server.here.where ?" | /writeini slserv.ini servers n [ $+ [ %slrawservers ] ] %desc : %slrawcustserv | /echo -s $rawtime Added server number %slrawservers $+ , Description: %desc $+ , Name: %slrawcustserv $+ , port %slrawcustport | /halt
}
alias /rawcomport /set %slrawport $$?="Enter port to connect to (now [ %slrawport ] $+ )"
alias /rawcomwhois {
if (%slrawactive != yes) { echo -a $rawtime Not connected to server | halt }
/echo @status: 22 $+ $rawtime =====Whois Information for:1 $1 $+ 6===== | /msg = $+ %slrawme whois $1 | /halt
}
alias /rawcomwhowas {
if (%slrawactive != yes) { echo -a $rawtime Not connected to server | halt }
/echo @status: 22 $+ $rawtime =====WhoWas Information for:1 $1 $+ 6===== | /msg = $+ %slrawme whowas $1 | /halt
}
alias /rawcomhelp {
/window -d @DCC_Connection_Help 100 100 350 380
/aline @DCC_Connection_Help Available 4ServLink 1commands (version 1.0):
/aline @DCC_Connection_Help /join #channel
/aline @DCC_Connection_Help /part #channel
/aline @DCC_Connection_Help /kick <nick> <reason>
/aline @DCC_Connection_Help /op & /deop nick1 nick2 nick6
/aline @DCC_Connection_Help /voice & /devoice nick1 nick2 nick6
/aline @DCC_Connection_Help /nick <newnick>
/aline @DCC_Connection_Help /topic <channel> <whatever>
/aline @DCC_Connection_Help /me <whatever>
/aline @DCC_Connection_Help /quit <message>
/aline @DCC_Connection_Help /notice <nick> <message>
/aline @DCC_Connection_Help /query <nick>
/aline @DCC_Connection_Help /msg <nick> <message>
/aline @DCC_Connection_Help /whois <nick>
/aline @DCC_Connection_Help /whowas <nick>
/aline @DCC_Connection_Help /ping <nick>
/aline @DCC_Connection_Help /ignore <nick>
/aline @DCC_Connection_Help /ignore -r <nick> (remove the ignore)
/aline @DCC_Connection_Help /motd <nick>
/aline @DCC_Connection_Help /clear
/aline @DCC_Connection_Help /update (manually update channel info)
/aline @DCC_Connection_Help /away <message> (set yourself as away)
/aline @DCC_Connection_Help /back (come back)
/aline @DCC_Connection_Help Do NOT do a names list, because this'll mess up stuff.
/aline @DCC_Connection_Help Have fun, Quartz.
}
alias /rawconsole {
/set %slrawserv yes
/unset %slrawactive
/set %slrawdur 0
if (%slrawport == $null) { set %slrawport 7000 }
/window -c @DCC_Console
/window -dp @DCC_Console 0 0 113 68 @DCC_Console
/drawpic @DCC_Console 0 0 servn.bmp
}
alias /rawcomquery /window -de @query_ [ $+ [ $1 ] ] $rawqstack 250 100 @DCC_p
alias /rawqstack {
if (%slrawqstack == 1) { /set %slrawqstack 2 | /return 10 310 }
if (%slrawqstack == 2) { /set %slrawqstack 3 | /return 20 320 }
if (%slrawqstack == 3) { /unset %slrawqstack | /return 30 330 }
if (%slrawqstack == $null) { /set %slrawqstack 1 | /return 0 300 }
}
alias /rawchstack {
if (%slrawchstack == 1) { /set %slrawchstack 2 | /return 10 20 }
if (%slrawchstack == 2) { /set %slrawchstack 3 | /return 20 30 }
if (%slrawchstack == 3) { /set %slrawchstack 4 | /return 30 40 }
if (%slrawchstack == 4) { /unset %slrawchstack | /return 40 50 }
if (%slrawchstack == $null) { /set %slrawchstack 1 | /return 0 10 }
}
alias /rawtime {
if (%stamping == On) { return $chr(91) $+ $remove($time,$right($time,3)) $+ $chr(93) }
}
alias /rawtimeston {
if (%stamping == on) { return $1- | halt }
return
}
alias /rawtimestoff {
if (%stamping == off) { return $1- | halt }
return
}
on 1:close:@: {
if ((@ isin $target) && ($chr(35) isin $target)) {
if ($chat(%slrawme) == %slrawme) { /msg = $+ %slrawme part $remove($target,@) }
/.timerrawlist [ $+ [ $remove($target,@) ] ] off | /halt
}
if (($target == @DCC_console) || ($target = @status)) { /window -c @message | /window -c @Status: | /.timerrawlist* off | /write -c comchan.ini
if (%slrawdns != $null) && ($chat(%slrawme) == %slrawme) { /msg = $+ %slrawme quit : $+ Closing %aut0 4ServLink 1 $+ %slrawdns <--> $server }
if ($chat(%slrawme) == %slrawme) { /echo -s 20 $+ $rawtime * Please close the DCC chat with %slrawme }
/halt
}
}
menu @servers {
dclick { /set %slrawdns $token(2,58,$line(@servers,$1,1)) | /set %myrawnick %nick1 | /echo -s $rawtime Looking up $+ %slrawdns $+ ... | /window -c @servers | /dns %slrawdns | /.timerdns 1 60 rawerror }
}
menu @Banlist {
dclick {
/msg = $+ %slrawme mode %slrawbanchan -b $token(1,32,$line(@banlist,$1,1))
/rline @Banlist $1 Now unbanning... $+ $token(1,32,$line(@banlist,$1,1)) $+ ...
}
}
alias /rawerror { /window -d @Servlink Error 150 150 250 120 | /aline @Servlink Error 4I haven't been able to link to 1 $+ %slrawdns | /aline @Servlink Error 4The connection may have timed out, or the | /aline @Servlink Error 4Server name/port might be wrong. | /aline @Servlink Error 4Port is currently: 17 $+ %slrawport $+ . | /aline @Servlink Error 0. | /aline @Servlink Error 1Suggest trying a different server and/or port }
alias /rawprefchan1 if (%slrawprefchan1 != $null) { return $1- }
alias /rawprefchan2 if (%slrawprefchan2 != $null) { return $1- }
alias /rawprefchan3 if (%slrawprefchan3 != $null) { return $1- }
alias /rawprefchan4 if (%slrawprefchan4 != $null) { return $1- }
alias /rawprefchan5 if (%slrawprefchan5 != $null) { return $1- }
alias /rawchtopic {
if (%slrawtopshow == yes) { /echo @ $+ $1 19 $+ $rawtime *** %fromnick changes topic to ' $+ $2- $+ ' }
/set %slrawtopshow yes
/set %slrawtopicchan 0
:rtopicstart
/inc %slrawtopicchan 1
if (%slrawchan [ $+ [ %slrawtopicchan ] ] == $1) { /set %slrawtopic [ $+ [ %slrawtopicchan ] ] $remove($2-,:) | /titlebar @ $+ $1 $chr(91) $+ %slrawmode [ $+ [ %slrawtopicchan ] ] $+ $chr(93) $+ : %slrawtopic [ $+ [ %slrawtopicchan ] ] | /halt }
/goto rtopicstart
}
alias /rawchmode {
; if (%slrawmodeshow == yes) { /echo @ $+ $1 19 $+ $rawtime *** %fromnick sets mode: $remove($token(1,33,$2-),:) }
/set %slrawmodeshow yes
/set %slrawmodechan 0
:rmodestart
/inc %slrawmodechan 1
if (%slrawchan [ $+ [ %slrawmodechan ] ] == $1) { /set %slrawmode [ $+ [ %slrawmodechan ] ] $2 | /titlebar @ $+ $1 $chr(91) $+ %slrawmode [ $+ [ %slrawmodechan ] ] $+ $chr(93) $+ : %slrawtopic [ $+ [ %slrawmodechan ] ] | /halt }
/goto rmodestart
}
alias /rawabout /window -c @ServLink | /window -d @ServLink 150 150 250 60 | /aline @ServLink %aut0 4ServLink 1v1.0, by Quartz
alias /button {
if ($mouse.key & 1) {
/dline @ServLink Status 1-
/aline @ServLink Status Main IRC Nick: $me ServLink nick: %myrawnick
/aline @ServLink Status Connected to: %slrawdns ( $+ %slrawport $+ )
/aline @ServLink Status For: $duration(%slrawdur)
/set %slrawbuttonch 0
:start
/inc %slrawbuttonch 1
if (%slrawchan [ $+ [ %slrawbuttonch ] ] != $null) { /aline @ServLink Status Channel %slrawbuttonch $+ : %slrawchan [ $+ [ %slrawbuttonch ] ] | /goto start }
if (%slrawbuttonch == 1) { /aline @ServLink Status Currently on no channels. }
}
else {
/window -c @ServLink Status
/.timerrawclick off
if (%slrawdns != $null) { /drawpic @DCC_console 0 0 $mircdirservy.bmp }
else { /drawpic @DCC_console 0 0 $mircdirservn.bmp }
}
}
menu @DCC_Console {
sclick: {
/drawpic @DCC_console 0 0 $mircdirservd.bmp
/window -d @ServLink Status $mouse.x $mouse.y 250 150
/.timerrawclick 0 1 /button
}
Main
.Connect:/rawcomconnect
.Quit (Disconnect):/rawcomquit $?="Message, optional"
.-
.Shut Down:/rawcomsd
Channel
.$rawprefchan1(Join [ %slrawprefchan1 ] ) { /msg = $+ %slrawme join %slrawprefchan1 }
.$rawprefchan2(Join [ %slrawprefchan2 ] ) { /msg = $+ %slrawme join %slrawprefchan2 }
.$rawprefchan3(Join [ %slrawprefchan3 ] ) { /msg = $+ %slrawme join %slrawprefchan3 }
.$rawprefchan4(Join [ %slrawprefchan4 ] ) { /msg = $+ %slrawme join %slrawprefchan4 }
.$rawprefchan5(Join [ %slrawprefchan5 ] ) { /msg = $+ %slrawme join %slrawprefchan5 }
.-
.Add (up to 5): {
/set %prefchl 0
:start
/inc %prefchl 1
if %slrawprefchan [ $+ [ %prefchl ] ] == $null {
/set %slrawprefchan [ $+ [ %prefchl ] ] #$$?="Channel [ %prefchl ] 's name"
/halt
}
/goto start
}
.Other:/set %slrawmodetog yes | /rawcomjoin #$$?="Enter channel"
.-
.Clear the above:/unset %slrawprefchan*
.Part:/msg = $+ %slrawme part #$$?="Part Channel" : $+ $?="With message? (optional)"
Settings
.Add Server:/rawcomconnect2
.Change Port:/rawcomport
.-
.Set Double Click ( $+ %slrawdclick $+ ):set %slrawdclick $$?="PING, QUERY or WHOIS?"
.-
.$rawtimeston(Disable Time Stamping) { /set %stamping off | echo -s 20 $+ $rawtime ServLink 1Time Stamping Disabled }
.$rawtimestoff(Enable Time Stamping) { /set %stamping on | echo -s 20 $+ $rawtime ServLink 1Time Stamping enabled }
Me
.Change Nick:/rawcomnick $$?="Enter New nick"
.Change Modes:/msg = $+ %slrawme mode %myrawnick $$?="Enter modes, eg +i"
.-
.Set Main:/set %slrawnick1 $$?="Main nick"
.Set Alternate:/set %slrawnick2 $$?="Alternate nick"
-
Away
.Set Away:/rawcomaway $$?="Enter away message"
.Back:/rawcomback
-
Help:/rawcomhelp
About:/rawabout
}
menu @DCC_Chan {
dclick: {
if $remove($remove($sline($active,1),@),+) = $null { /halt }
if (%slrawdclick == query) { /rawcomquery $remove($remove($sline($active,1),@),+) | /halt }
if (%slrawdclick == ping) { /msg = $+ %slrawme privmsg $remove($remove($sline($active,1),@),+) :PING $ctime $+ | /halt }
if (%slrawdclick == whois) { /echo @status: 22 $+ $rawtime =====Whois Information for:1 $remove($remove($sline($active,1),@),+) 6===== | /msg = $+ %slrawme whois $remove($remove($sline($active,1),@),+) | /halt }
else {
/echo -a $rawtime Error, invalid setting: %slrawdclick $+ .
/echo -a $rawtime Please set the double click option under Nick --> Set double click
}
}
Nick...
.Whois:/echo @status: 22 $+ $rawtime =====Whois Information for:1 $remove($remove($sline($active,1),@),+) 6===== | /msg = $+ %slrawme whois $remove($remove($sline($active,1),@),+)
.PING:/msg = $+ %slrawme privmsg $remove($remove($sline($active,1),@),+) :PING $ctime $+
.VERSION:/msg = $+ %slrawme privmsg $remove($remove($sline($active,1),@),+) :VERSION
.-
.Ignore:/set %slrawignore [ $+ [ $remove($remove($sline($active,1),@),+) ] ] yes | /echo -a 19 $+ $rawtime *** Added $remove($remove($sline($active,1),@),+) to ignore list
.UnIgnore:/set %slrawignore [ $+ [ $remove($remove($sline($active,1),@),+) ] ] | /echo -a 19 $+ $rawtime *** Removed $remove($remove($sline($active,1),@),+) from ignore list
.-
.Set Double Click ( $+ %slrawdclick $+ ):/set %slrawdclick $$?="PING, QUERY or WHOIS?"
Private
.Query:/rawcomquery $remove($remove($sline($active,1),@),+)
.Msg:/msg = $+ %slrawme privmsg $remove($remove($sline($active,1),@),+) : $+ $$?="Enter message"
.Notice:/msg = $+ %slrawme notice $remove($remove($sline($active,1),@),+) : $+ $$?="Enter notice"
.Sound:/set %slrawsound $file="Enter wav to play to [ $remove($remove($sline($active,1),@),+) ] " $wavedir*.wav | /msg = $+ %slrawme privmsg $remove($remove($sline($active,1),@),+) :SOUND %slrawsound
-
Channel
.Notice:/msg = $+ %slrawme notice $remove($active,@) : $+ $$?="Enter notice" | /echo $active 21 $+ $rawtime -> - $+ $remove($active,@) $+ - $!
.Sound:/set %slrawsound $file="Enter wav to play to [ $remove($active,@) ] " $wavedir*.wav | /msg = $+ %slrawme privmsg $remove($active,@) :SOUND %slrawsound
.See Banlist:/set %slrawbanchan $remove($active,@) | msg = $+ %slrawme mode $remove($active,@) +b
.Change Modes:/msg = $+ %slrawme mode $remove($active,@) $$?="Change mode, eg +nt-spmilk"
.Change Topic:/msg = $+ %slrawme topic $remove($active,@) : $+ $$?="New Topic"
.-
.Join:/msg = $+ %slrawme join #$$?="Join what channel?"
.Part this channel:/msg = $+ %slrawme part $remove($active,@)
#Control
.Op:/msg = $+ %slrawme mode $remove($active,@) +o $remove($remove($sline($active,1),@),+)
.Deop:/msg = $+ %slrawme mode $remove($active,@) -o $remove($remove($sline($active,1),@),+)
.-
.Voice:/msg = $+ %slrawme mode $remove($active,@) +v $remove($remove($sline($active,1),@),+)
.Devoice:/msg = $+ %slrawme mode $remove($active,@) -v $remove($remove($sline($active,1),@),+)
.-
.Kick:/msg = $+ %slrawme kick $remove($active,@) $remove($remove($sline($active,1),@),+) : $+ $?="Reason? (optional)"
-
Update Channel Info:/rawlist $remove($active,@)
-
Away
.Set Away:/rawcomaway $$?="Enter away message"
.Back:/rawcomback
-
Help:/rawcomhelp
Advertise:/msg = $+ %slrawme privmsg $remove($active,@) : $+ %aut0 4ServLink 1v1, by Quartz, connected to %slrawdns <--from--> $server $+ . | /echo -a $rawtime < $+ %myrawnick $+ > %aut0 4ServLink 1v1.0, by Quartz, connected to %slrawdns <--from--> $server $+ .
}
menu @dcc_q {
dclick: {
if $token(2,95,$active) = $null { /halt }
if (%slrawdclick == query) { /rawcomquery $token(2,95,$active) | /halt }
if (%slrawdclick == ping) { /msg = $+ %slrawme privmsg $token(2,95,$active) :PING $ctime $+ | /halt }
if (%slrawdclick == whois) { /echo @status: 22 $+ $rawtime =====Whois Information for:1 $token(2,95,$active) 6===== | /msg = $+ %slrawme whois $token(2,95,$active) | /halt }
/echo -a $rawtime Error, invalid setting: %slrawdclick $+ .
/echo -a $rawtime Please set the double click option under Nick --> Set double click
}
Nick...
.Whois:/echo @status: 22 $+ $rawtime =====Whois Information for:1 $token(2,95,$active) 6===== | /msg = $+ %slrawme whois $token(2,95,$active)
.PING:/msg = $+ %slrawme privmsg $token(2,95,$active) :PING $ctime $+
.VERSION:/msg = $+ %slrawme privmsg $token(2,95,$active) :VERSION
.-
.Notice:/rawcomnotice $token(2,95,$active) $$?="Enter notice"
.Sound:/set %slrawsound $file="Enter wav to play to [ $token(2,95,$active) ] " $wavedir*.wav | /msg = $+ %slrawme privmsg $token(2,95,$active) :SOUND %slrawsound
.-
.Ignore:/set %slrawignore [ $+ [ $token(2,95,$active) ] ] yes | /echo -a 19 $+ $rawtime *** Added $token(2,95,$active) to ignore list
.UnIgnore:/set %slrawignore [ $+ [ $token(2,95,$active) ] ] | /echo -a 19 $+ $rawtime *** Removed $token(2,95,$active) from ignore list
.-
.Set Double Click ( $+ %slrawdclick $+ ):set %slrawdclick $$?="PING, QUERY or WHOIS?"
.
Channel
.Join:/msg = $+ %slrawme join #$$?="Join what channel?"
.Part:/msg = $+ %slrawme part #$$?="Part Channel" : $+ $?="With message? (optional)"
-
Away
.Set Away:/rawcomaway $$?="Enter away message"
.Back:/rawcomback
-
Help:/rawcomhelp
Advertise:/msg = $+ %slrawme privmsg $token(2,95,$active) : $+ %aut0 4ServLink 1v1, by Quartz, connected to %slrawdns <--from--> $server $+ . | echo -a $rawtime < $+ %myrawnick $+ > %aut0 4ServLink 1v1.0, by Quartz, connected to %slrawdns <--from--> $server $+ .
}
menu @dcc_p {
dclick: {
if (%slrawdclick == query) { /rawcomquery %slrawlastnick | /halt }
if (%slrawdclick == ping) { /msg = $+ %slrawme privmsg %slrawlastnick :PING $ctime $+ | /halt }
if (%slrawdclick == whois) { /echo @status: 22 $+ $rawtime =====Whois Information for:1 %slrawlastnick 6===== | /msg = $+ %slrawme whois %slrawlastnick | /halt }
/echo -a $rawtime Error, invalid setting: %slrawdclick $+ .
/echo -a $rawtime Please set the double click option under Nick --> Set double click
}
Nick ( $+ %slrawlastnick $+ )...
.Whois:/echo @status: 22 $+ $rawtime =====Whois Information for:1 %slrawlastnick 6===== | /msg = $+ %slrawme whois %slrawlastnick
.PING:/msg = $+ %slrawme privmsg %slrawlastnick :PING $ctime $+
.VERSION:/msg = $+ %slrawme privmsg %slrawlastnick :VERSION
.-
.Notice:/rawcomnotice %slrawlastnick $$?="Enter notice"
.Query:rawcomquery %slrawlastnick
.Sound:/set %slrawsound $file="Enter wav to play to [ %slrawlastnick ] " $wavedir*.wav | /msg = $+ %slrawme privmsg %slrawlastnick :SOUND %slrawsound
.-
.Ignore:/set %slrawignore [ $+ [ %slrawlastnick ] ] yes | /echo -a 19 $+ $rawtime *** Added %slrawlastnick to ignore list
.UnIgnore:/set %slrawignore [ $+ [ %slrawlastnick ] ] | /echo -a 19 $+ $rawtime *** Removed %slrawlastnick from ignore list
.-
.Set Double Click ( $+ %slrawdclick $+ ):/set %slrawdclick $$?="PING, QUERY or WHOIS?"
-
Channel
.Join:/msg = $+ %slrawme join #$$?="Join what channel?"
.Part:/msg = $+ %slrawme part #$$?="Part Channel" : $+ $?="With message? (optional)"
-
Away
.Set Away:/rawcomaway $$?="Enter away message"
.Back:/rawcomback
-
Help:/rawcomhelp
Advertise:/msg = $+ %slrawme privmsg %slrawlastnick : $+ %aut0 4ServLink 1v1, by Quartz, connected to %slrawdns <--from--> $server $+ . | echo -a $rawtime < $+ %myrawnick $+ > %aut0 4ServLink 1v1.0, by Quartz, connected to %slrawdns <--from--> $server $+ .
}