- joinchannel {
- var %pos $pos($1-,$chr(32) $+ $chr(35),1) - 1
- var %server $left($1-, $+ %pos)
- var %channel $right($1-,$calc(- 1 - %pos))
- var %servdom $gettok($1,-2-,46)
- if (!%server || !%channel || !%servdom) { echo $iif($active != Status Window,$active) use: /joinchannel <irc server> [port] [password] <#channel> [channel password] }
- else if (%servdom == $gettok($server,-2-,46)) { join %channel }
- else {
- var %i $scon(0)
- while (%i > 0) && (!%bjoined) {
- scon %i
- if (%servdom == $gettok($server,-2-,46)) { join %channel | var %bjoined $true }
- dec %i
- }
- if (!%bjoined) server -m %server -j %channel
- } }
joinchannel {
var %pos $pos($1-,$chr(32) $+ $chr(35),1) - 1
var %server $left($1-, $+ %pos)
var %channel $right($1-,$calc(- 1 - %pos))
var %servdom $gettok($1,-2-,46)
if (!%server || !%channel || !%servdom) { echo $iif($active != Status Window,$active) use: /joinchannel <irc server> [port] [password] <#channel> [channel password] }
else if (%servdom == $gettok($server,-2-,46)) { join %channel }
else {
var %i $scon(0)
while (%i > 0) && (!%bjoined) {
scon %i
if (%servdom == $gettok($server,-2-,46)) { join %channel | var %bjoined $true }
dec %i
}
if (!%bjoined) server -m %server -j %channel
} }