ircN for mIRC — File Browser
ircNformIRCv6.0 / ircNformIRCv6.0 / ircn / SYSTEM / Help.mrc
Help.mrc — 11.04 KB — Download this file
;%%%%%%%%%%%%%%%%%%%%%%%%
;script iHelp
;version 1.00
;author icN
;email icn@ircn.com
;url http://www.ircN.com
;%%%%%%%%%%%%%%%%%%%%%%%%
on 1:JOIN:# {
if ($window(@Channel)) {
hecho JOIN: $hc($nick) $ul($ulevel) has joined [ $+ $sc($chan) $+ ]
}
}
on 1:BAN:# {
if ($window(@Channel)) {
hecho BANS: $hc($nick) $ul($ulevel) sets mode: +b $hc($banmask) [ $+ $sc($chan) $+ ]
}
}
on 1:UNBAN:# {
if ($window(@Channel)) {
hecho BANS: $hc($nick) $ul($ulevel) sets mode: -b $hc($banmask) [ $+ $sc($chan) $+ ]
}
}
on 1:MODE:# {
if ($window(@Channel)) {
hecho MODE: $hc($nick) $ul($ulevel) sets mode: $1- [ $+ $sc($chan) $+ ]
}
}
on 1:VOICE:# {
if ($window(@Channel)) {
hecho MODE $hc($nick) $ul($ulevel) sets mode: +v $hc($vnick) [ $+ $sc($chan) $+ ]
}
}
on 1:DEVOICE:# {
if ($window(@Channel)) {
hecho MODE $hc($nick) $ul($ulevel) sets mode: -v $hc($vnick) [ $+ $sc($chan) $+ ]
}
}
on 1:OP:# {
if ($window(@Channel)) {
hecho MODE: $hc($nick) $ul($ulevel) sets mode: +o $hc($opnick) [ $+ $sc($chan) $+ ]
}
}
on 1:PART:# {
if ($window(@Channel)) {
hecho PART: $hc($nick) $ul($ulevel) has left [ $+ $sc($chan) $+ ]
}
}
on 1:DEOP:# {
if ($window(@Channel)) {
hecho MODE $hc($nick) $ul($ulevel) sets mode: -o $hc($opnick) [ $+ $sc($chan) $+ ]
}
}
on 1:KICK:# {
if ($window(@Channel)) {
hecho KICK: $hc($knick) by $hc($nick) ( $+ $1- $+ ) [ $+ $sc($chan) $+ ]
}
}
on 1:TOPIC:# {
if ($window(@Channel)) {
hecho TOPIC: $hc($nick) changed topic to " $+ $hc($1-) $+ " [ $+ $sc($chan) $+ ]
}
}
on 1:TEXT:*:? {
if ($window(@Channel)) {
hecho2 $chr(91) $+ $hc($nick) $+ : $+ $sc($address) $+ $chr(93) $1-
}
}
on 1:ACTION:*:# {
if ($window(@Channel)) {
hecho2 $sc(!) $hc($nick) on $sc($chan) $+ : $1-
halt
}
}
on 1:QUIT {
if ($window(@Channel)) {
hecho QUIT: $hc($nick) $ul($ulevel) has left IRC. [2 $+ $1- $+ ]
}
}
alias gethelp {
help.chk
if ($sline(@Help ,1).ln == 5) {
if ($sline(@a-z,1).ln == 27) gethelp3 channel
else gethelp2 channel $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 6) {
if ($sline(@a-z,1).ln == 27) gethelp3 query
else gethelp2 query $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 7) {
if ($sline(@a-z,1).ln == 27) gethelp3 client
else gethelp2 client $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 8) {
if ($sline(@a-z,1).ln == 27) gethelp3 stats
else gethelp2 stats $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 9) {
if ($sline(@a-z,1).ln == 27) gethelp3 toggles
else gethelp2 toggles $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 10) {
if ($sline(@a-z,1).ln == 27) gethelp3 other
else gethelp2 other $remove($remove($sline(@a-z,1),$chr(160)),$chr(32))
}
elseif ($sline(@Help ,1).ln == 14) run notepad $root(docs\faq.txt)
elseif ($sline(@Help ,1).ln == 15) run notepad $root(docs\addon.faq)
elseif ($sline(@Help ,1).ln == 16) run notepad $root(docs\themes.faq)
elseif ($sline(@Help ,1).ln == 17) run notepad readme.txt
elseif ($sline(@Help ,1).ln == 21) {
clear @Notes
echo @Notes %h Help introduction turned $hc(ON) $+ .
nbuff
writeini mirc.ini ircN helpintro on
}
elseif ($sline(@Help ,1).ln == 22) {
clear @Notes
echo @Notes %h Help introduction turned $hc(OFF) $+ .
nbuff
writeini mirc.ini ircN helpintro off
}
elseif ($sline(@Help ,1).ln == 26) run $readini mirc.ini Files Browser http://www.ircN.com
elseif ($sline(@Help ,1).ln == 27) sendmail icn@ircn.com ircN help comments
else halt
}
alias gethelp2 {
help.chk
set %help.tmp $readini help.ini $1 $2
if (%help.tmp == none) {
write -c $tp(usage.txt)
write $tp(usage.txt) exit:/helpsave
write $tp(usage.txt) -
write $tp(usage.txt) none:=
clear @Aliases
clear @Notes
echo @Notes %h No help on ( $+ $sc($1) $+ \ $+ $hc($2) $+ )
nbuff
}
elseif ($chr(45) !isin %help.tmp) {
write -c $tp(usage.txt)
write $tp(usage.txt) exit:/helpsave
write $tp(usage.txt) -
write $tp(usage.txt) $readini -n help.ini $1 n $+ [ %help.tmp ] $+ :/gethelp5 $readini -n help.ini $1 n $+ [ %help.tmp ]
clear @Aliases
aline @Aliases [ $readini -n help.ini $1 n $+ [ %help.tmp ] ]
}
elseif ($chr(45) isin %help.tmp) {
write -c $tp(usage.txt)
write $tp(usage.txt) exit:/helpsave
write $tp(usage.txt) -
clear @Aliases
set %i $sub($token(1,45,%help.tmp),1)
set %j 0
:start2
inc %i
if (%i <= $token(2,45,%help.tmp)) {
aline @Aliases [ $readini -n help.ini $1 n $+ [ %i ] ]
write $tp(usage.txt) $readini -n help.ini $1 n $+ [ %i ] $+ :/gethelp5 $readini -n help.ini $1 n $+ [ %i ]
goto start2
}
}
}
alias gethelp3 {
write -c $tp(usage.txt)
write $tp(usage.txt) exit:/helpsave
write $tp(usage.txt) -
clear @Aliases
set %i 0
:start
inc %i
if ($readini -n help.ini $1 n $+ [ %i ] != $null) {
aline @Aliases [ $readini -n help.ini $1 n $+ [ %i ] ]
write $tp(usage.txt) $readini -n help.ini $1 n $+ [ %i ] $+ :/gethelp5 $readini -n help.ini $1 n $+ [ %i ]
goto start
}
}
alias gethelp4 {
help.chk
if ($readini -n help.ini $sline(@Aliases,1) syntax) {
rline @Usage 2 Name: $sline(@Aliases,1)
rline @Usage 3 Type: $readini -n help.ini $sline(@Aliases,1) type
rline @Usage 4 Syntax: $readini -n help.ini $sline(@Aliases,1) syntax
if ($readini -n help.ini $sline(@Aliases,1) syntax2) rline @Usage 5 $str($chr(160),3) $readini -n help.ini $sline(@Aliases,1) syntax2
else rline @Usage 5 $chr(160)
sline @Usage 2
if ($readini -n help.ini $sline(@Aliases,1) notes) {
clear @Notes
echo %c @Notes $hc($sline(@Aliases,1)) $readini -n help.ini $sline(@Aliases,1) notes
set %i 0
:start
inc %i
if (%i <= $readini -n help.ini $sline(@Aliases,1) buffer) {
echo %c @Notes $chr(160)
goto start
}
}
}
elseif ($sline(@Aliases,1)) {
rline @Usage 2 Name: $sline(@Aliases,1)
rline @Usage 3 Type: n/a
rline @Usage 4 Syntax: n/a
clear @Notes
echo @Notes %h No help on ( $+ $hc($sline(@Aliases,1)) $+ )
nbuff
}
}
alias gethelp5 {
help.chk
if ($readini -n help.ini $1 syntax) {
rline @Usage 2 Name: $1
rline @Usage 3 Type: $readini -n help.ini $1 type
rline @Usage 4 Syntax: $readini -n help.ini $1 syntax
if ($readini -n help.ini $1 syntax2) rline @Usage 5 $str($chr(160),3) $readini -n help.ini $1 syntax2
else rline @Usage 5 $chr(160)
sline @Usage 2
if ($readini -n help.ini $1 notes) {
clear @Notes
echo %c @Notes $hc($1) $readini -n help.ini $1 notes
set %i 0
:start
inc %i
if (%i <= $readini -n help.ini $1 buffer) {
echo %c @Notes $chr(160)
goto start
}
}
}
else {
rline @Usage 2 Name: $1
rline @Usage 3 Type: n/a
rline @Usage 4 Syntax: n/a
clear @Notes
echo @Notes %h No help on ( $+ $hc($1) $+ )
nbuff
}
}
alias hecho echo %c @Channel %h $1-
alias hecho2 echo %c @Channel $1-
alias help.chk {
if ($window(@Help ) == $null) help.w1
if ($window(@a-z) == $null) help.w2
if ($window(@Aliases) == $null) help.w3
if ($window(@Usage) == $null) help.w4
if ($window(@Notes) == $null) help.w5
}
alias help.w1 {
window -c @Help
window -alb @Help %hploc @Help Courier New 12
aline @Help ircN help
aline @Help _______________
aline @Help aliases
aline @Help ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
aline @Help $str( ,2) channel
aline @Help $str( ,2) query
aline @Help $str( ,2) client
aline @Help $str( ,2) stats
aline @Help $str( ,2) toggles
aline @Help $str( ,2) other
aline @Help _______________
aline @Help docs
aline @Help ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
aline @Help $str( ,2) faq
aline @Help $str( ,2) addon
aline @Help $str( ,2) themes
aline @Help $str( ,2) readme
aline @Help _______________
aline @Help intro
aline @Help ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
aline @Help on
aline @Help off
aline @Help _______________
aline @Help info
aline @Help ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
aline @Help www.ircN.com
aline @Help icn@ircn.com
sline @Help 5
}
alias help.w2 {
window -c @a-z
window -alb @a-z %hp2loc @a-z Courier New 12
set %i 96
:start
inc %i
if (%i <= 122) {
aline @a-z $str( ,5) $chr(%i)
goto start
}
aline @a-z $str( ,4) all
sline @a-z 1
}
alias help.w3 {
window -c @Aliases
window -alb @Aliases %hp4loc @Aliases Courier New 12
}
alias help.w4 {
window -c @Usage
window -alb @Usage %hp5loc $tp(usage.txt) Courier New 12
aline @Usage $chr(160)
aline @Usage Name:
aline @Usage Type:
aline @Usage Syntax:
aline @Usage $chr(160)
sline @Usage 2
}
alias help.w5 {
window -c @Notes
window -a @Notes %hp6loc @Help Courier New 12
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $str( ,26) Welcome to ircN Help
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $chr(160)
aline @Notes $chr(160)
wrmv @Notes 1 0 7 50 27 1. Select a category
wlmv @Notes 1 0 8 0 27 2. Double-click an entry
wrmv @Notes 1 0 9 50 27 3. Enjoy!
}
alias help2 {
window -c @Help Status
help.w1
help.w2
help.w3
help.w4
window -c @Channel
window -ae @Channel %hp7loc @Channel Courier New 12
help.w5
}
alias helpsave {
if ($window(@Help )) set %hploc $swlc(@Help )
window -c @Help
if ($window(@a-z)) set %hp2loc $swlc(@a-z)
window -c @a-z
if ($window(@Aliases)) set %hp4loc $swlc(@Aliases)
window -c @Aliases
if ($window(@Usage)) set %hp5loc $swlc(@Usage)
window -c @Usage
if ($window(@Notes)) set %hp6loc $swlc(@Notes)
window -c @Notes
if ($window(@Channel)) set %hp7loc $swlc(@Channel)
window -c @Channel
.remove $tp(usage.txt)
unset %help.*
.timer 1 1 if ($script(help.mrc)) .unload -rs help.mrc
}
alias nbuff {
echo @Notes $chr(160)
echo @Notes $chr(160)
echo @Notes $chr(160)
}
menu @Help {
dclick gethelp
go! { gethelp | halt }
-
exit { helpsave | halt }
}
menu @a-z {
dclick gethelp
go! { gethelp | halt }
-
exit { helpsave | halt }
}
menu @Aliases {
dclick gethelp4
go! { gethelp4 | halt }
-
exit { helpsave | halt }
}
menu @Channel {
dclick { set %hp7loc $swlc(@Channel) | window -c @Channel }
exit { helpsave | halt }
}
menu @Help Startup {
dclick { set %hp3loc $swlc(@Help Startup) | window -c @Help Startup | help2 | halt }
go! { write -c $tp(usage.txt) | set %hp3loc $swlc(@Help Startup) | window -c @Help Startup | help2 | halt }
-
exit { set %hp3loc $swlc(@Help Startup) | window -c @Help Startup }
}