Caps Kick — File Browser
CapsKickv1.1 / CapsKickv1.1 / capskick.mrc
capskick.mrc — 21.79 KB — Download this file
;
; Caps Kick v1.1 by Danaria (ladydana@animefan.org)
;
; http://animedomain.com/ladydana/index.html
menu menubar,channel,status {
Caps Kick
. $+ $ckstatus Caps Kick: if ($ckstatus == disable) { .disable #CapsKick | .echo -a *** Caps Kick has been disabled } | else { .enable #CapsKick | .echo -a *** Caps Kick has been enabled }
.Edit Options: ckdiag
. -
.Change %: $ckwini(ckset,percentage,$$?="What percentage? Just enter a number please.") | echo -a *** Caps Kicker - Percentage set to $ckini(ckset,percentage)
.-
.Add User Unaffected List: ckusersadd $$?="What's the person's nick/addy? $crlf The person won't be affected by the Caps Kicking script from now on. $crlf All addies should be in nick!user@host.domain format)"
.Del User Unaffected List: remini protect.ini ckusers $$?="What's the person's nick/addy? $crlf From now on, they will be affected by the Caps Kicking script again. $crlf All addies should be in nick!user@host.domain format)" | ckusersorder
.Unaffected List: ckuserslist
.-
. $+ $ckshowchan : .writeini protect.ini ckset chans $addtok($ckini(ckset,chans),$chan,44)
.Add Channel: .writeini protect.ini ckset chans $addtok($ckini(ckset,chans),$$?="This will the set the channels that will be affected by the Caps Kick script. Please add them one by one.",44)
.Del Channel: .writeini protect.ini ckset chans $remtok($ckini(ckset,chans),$$?="Which channel would you like to delete from the list?",44)
.View Channels: if ($ckini(ckset,chans) == $null) { .echo -a *** No channels have been set } | else { .echo -a *** These are the channels affected by the Caps Kicking Script: $ckini(ckset,chans) }
.-
.Help on CapsKicker: ck.helpfile
}
; Options for the popup menu in the MENUBAR section (usually called Commands)
On *:LOAD:{
if ($version < 5.51) {
echo -a *** Sorry, but you can't use this version of the Script. Download mIRC Version 5.51 or higher from http://www.mirc.co.uk/get.html (unloaded script)
unload -rs $script
}
; If the person is using a mIRC version lower than 5.51 it will return the error messages and unload the script
else {
load -rs $scriptdircapskick2.mrc
if ($window(@CapsKicker).x == $null) { window -ek @CapsKicker -1 -1 450 250 }
echo @CapsKicker *** You have just loaded the Caps Kick Script
echo -i2 @CapsKicker If you need any help, then refer to the README.TXT that was included in this package. You can see your different options in the Menubar on Top (usually called COMMANDS) or any channel popup window. Enjoy! :)
if ($?!="Read help file?" == $true) { ck.helpfile }
}
; Otherwise it will return a different message
}
On *:START:{
echo -a 4*** The Caps Kick script is loaded. The script is $group(#Capskick) $+ .
remini protect.ini ckoffense
$ckwini(ckset,percentage,80)
}
; Tells you whether the script is on or not everytime that you open mIRC
; Clears all previous entries of offending users
#Capskick on
; ------------ For the TEXT/ACTION/NOTICEs in a channel -------------------
On @*:TEXT:*:#: if ($chan isin $ckini(ckset,chans)) { ckcheckall $chan $nick $strip($1-) }
On @*:NOTICE:*:#: if ($chan isin $ckini(ckset,chans)) { ckcheckall $chan $nick $strip($1-) }
On @*:ACTION:*:#: if ($chan isin $ckini(ckset,chans)) { ckcheckall $chan $nick $strip($1-) }
alias -l ckcheckall {
if ($pcaps($3-) >= $ckini(ckset,percentage)) {
set %u 0
:loop
inc %u
if ($ckini(ckusers,%u) == $null) { ckoffense $1 $2 $chr(91) $+ $pcaps($3-) $+ $chr(37) $+ $chr(93) | goto end }
if ($ckini(ckusers,%u) iswm $address($2,5)) { goto end }
if ($ckini(ckset,oppro) == $true) && ($2 isop $1)) { goto end }
if ($ckini(ckset,voicepro) == $true) && ($2 isvo $1)) { goto end }
; if the entry is empty, then it will call the alias 'ckoffense'
; if the entry matches the address of the person that has spoken, then it will go to the end of the script
goto loop
:end
if (%u) { unset %u }
}
}
alias -l ckoffense {
if (($ckini(ckset,warn1) == $null) || ($ckini(ckset,warn1) == $false)) { ban $1 $2 3 | kick $1 $2 Overuse of Capital Letters. }
else {
if ($ckini(ckoffense,$address($2,1)) == $null) { goto one }
if ($ckini(ckoffense,$address($2,1)) == 1) { goto two }
if ($ckini(ckoffense,$address($2,1)) == 2) { goto three }
if ($ckini(ckoffense,$address($2,1)) == 3) { goto four }
if ($ckini(ckoffense,$address($2,1)) == 4) { goto five }
:one
if ($ckini(ckset,warn2) == $true) { ckwoini $address($2,1) 1 }
if (($ckini(ckwarn,one_tb) == temp) || ($ckini(ckwarn,one_tb) == $null)) { if ($ckini(ckwarn,one_tbs)) { ban -u $+ $ckini(ckwarn,one_tbs) $1 $2 3 } | else { ban -u60 $1 $2 3 } }
if ($ckini(ckwarn,one_tb) == perm) { ban $1 $2 3 }
if ($ckini(ckwarn,one_wk) == warning) { if ($ckini(ckwarn,one_wkm)) { .notice $2 $ckini(ckwarn,one_wkm) } | else { .notice $2 Overuse of Capital Letters. $3 } }
if ($ckini(ckwarn,one_wk) == kick) { if ($ckini(ckwarn,one_wkm)) { kick $1 $2 $ckini(ckwarn,one_wkm) } | else { kick $1 $2 Overuse of Capital Letters. $3 } }
if ($ckini(ckwarn,one_wk) == $null) { kick $1 $2 Overuse of Capital Letters. $3 }
goto end
:two
if ($ckini(ckset,warn3) == $true) { ckwoini $address($2,1) 2 }
else { remini protect.ini ckoffense $address($2,1) }
if (($ckini(ckwarn,two_tb) == temp) || ($ckini(ckwarn,two_tb) == $null)) { if ($ckini(ckwarn,two_tbs)) { ban -u $+ $ckini(ckwarn,two_tbs) $1 $2 3 } | else { ban -u60 $1 $2 3 } }
if ($ckini(ckwarn,two_tb) == perm) { ban $1 $2 3 }
if ($ckini(ckwarn,two_wk) == warning) { if ($ckini(ckwarn,two_wkm)) { .notice $2 $ckini(ckwarn,two_wkm) } | else { .notice $2 Overuse of Capital Letters. Warning #2 $3 } }
if ($ckini(ckwarn,two_wk) == kick) { if ($ckini(ckwarn,two_wkm)) { kick $1 $2 $ckini(ckwarn,two_wkm) } | else { kick $1 $2 Overuse of Capital Letters. Warning #2 $3 } }
if ($ckini(ckwarn,two_wk) == $null) { kick $1 $2 Overuse of Capital Letters. Warning #2 $3 }
goto end
:three
if ($ckini(ckset,warn4) == $true) { ckwoini $address($2,1) 3 }
else { remini protect.ini ckoffense $address($2,1) }
if (($ckini(ckwarn,three_tb) == temp) || ($ckini(ckwarn,three_tb) == $null)) { if ($ckini(ckwarn,three_tbs)) { ban -u $+ $ckini(ckwarn,three_tbs) $1 $2 3 } | else { ban -u60 $1 $2 3 } }
if ($ckini(ckwarn,three_tb) == perm) { ban $1 $2 3 }
if ($ckini(ckwarn,three_wk) == warning) { if ($ckini(ckwarn,three_wkm)) { .notice $2 $ckini(ckwarn,three_wkm) } | else { .notice $2 Overuse of Capital Letters. Warning #3 $3 } }
if ($ckini(ckwarn,three_wk) == kick) { if ($ckini(ckwarn,three_wkm)) { kick $1 $2 $ckini(ckwarn,three_wkm) } | else { kick $1 $2 Overuse of Capital Letters. Warning #3 $3 } }
if ($ckini(ckwarn,three_wk) == $null) { kick $1 $2 Overuse of Capital Letters. Warning #3 $3 }
goto end
:four
if ($ckini(ckset,warn5) == $true) { ckwoini $address($2,1) 4 }
else { remini protect.ini ckoffense $address($2,1) }
if (($ckini(ckwarn,four_tb) == temp) || ($ckini(ckwarn,four_tb) == $null)) { if ($ckini(ckwarn,four_tbs)) { ban -u $+ $ckini(ckwarn,four_tbs) $1 $2 3 } | else { ban -u60 $1 $2 3 } }
if ($ckini(ckwarn,four_tb) == perm) { ban $1 $2 3 }
if ($ckini(ckwarn,four_wk) == warning) { if ($ckini(ckwarn,four_wkm)) { .notice $2 $ckini(ckwarn,four_wkm) } | else { .notice $2 Overuse of Capital Letters. Warning #4 $3 } }
if ($ckini(ckwarn,four_wk) == kick) { if ($ckini(ckwarn,four_wkm)) { kick $1 $2 $ckini(ckwarn,four_wkm) } | else { kick $1 $2 Overuse of Capital Letters. Warning #4 $3 } }
if ($ckini(ckwarn,four_wk) == $null) { kick $1 $2 Overuse of Capital Letters. Warning #4 $3 }
goto end
:five
remini protect.ini ckoffense $address($2,1)
if ($ckini(ckwarn,five_tb) == temp) { if ($ckini(ckwarn,five_tbs)) { ban -u $+ $ckini(ckwarn,five_tbs) $1 $2 3 } | else { ban -u60 $1 $2 3 } }
if (($ckini(ckwarn,five_tb) == perm) || ($ckini(ckwarn,five_tb) == $null)) { ban $1 $2 3 }
if ($ckini(ckwarn,five_wk) == warning) { if ($ckini(ckwarn,five_wkm)) { .notice $2 $ckini(ckwarn,five_wkm) } | else { .notice $2 Overuse of Capital Letters. Enough already. (5 offenses) $3 } }
if ($ckini(ckwarn,five_wk) == kick) { if ($ckini(ckwarn,five_wkm)) { kick $1 $2 $ckini(ckwarn,five_wkm) } | else { kick $1 $2 Overuse of Capital Letters. Enough already. (5 offenses) $3 } }
if ($ckini(ckwarn,five_wk) == $null) { kick $1 $2 Overuse of Capital Letters. Enough already. (5 offenses) $3 }
}
:end
}
#Capskick end
On *:DISCONNECT: remini protect.ini ckoffense
On *:QUIT: if ($ckini(ckoffense,$address($nick,1))) { remini protect.ini ckoffense $address($nick,1) }
On *:PART:#: {
if ($chan isin $ckini(ckset,chans)) {
if ($ckini(ckoffense,$address($nick,1)) && ($comchan($nick,0) == 0)) { remini protect.ini ckoffense $address($nick,1) }
if ($nick == $me) {
set %i 0
:loop
inc %i
if (%i > $numtok($ckini(ckset,chans),44)) { remini protect.ini ckoffense }
if ($me ison $gettok($ckini(ckset,chans),%i,44)) { goto end }
else { goto loop }
}
}
:end
}
On *:KICK:#: if ($chan isin $ckini(ckset,chans)) { if ($ckini(ckoffense,$address($knick,1)) && ($comchan($knick,0) == 0)) { .remini protect.ini ckoffense $address($nick,1) } }
alias -l ckwoini { writeini protect.ini ckoffense $1- }
alias -l ckstatus {
if ($group(#CapsKick) == on) { return Disable }
else { return Enable }
}
alias -l ckuserslist {
if ($ckini(ckusers,1) == $null) { echo -a *** No one is on the unaffected list }
else {
echo -a *** The following people are on the unaffected list ...
set %i 0
:looping
inc %i
if ($ckini(ckusers,%i) == $null) { goto end }
echo -a *** ( $+ %i $+ ) $ckini(ckusers,%i)
goto looping
:end
unset %i
}
}
alias -l ckusersadd {
set %i 0
:loop
inc %i
if ($ckini(ckusers,%i) == $null) { writeini protect.ini ckusers %i $1 | goto end }
else { goto loop }
:end
}
On *:DIALOG:ckdiag:sclick:15:{
if ($did($dname,15).state == 1) { ckloadwk | ckcheckw ckset $true }
else { ckinv | ckcheckw ckset $false }
}
; If you check or uncheck the 'Enabled' box it will save your settings and make
; sure that all the options appear or dissapear.
On *:DIALOG:ckdiag:sclick:1: cksaveset
; If you click on the OK button it will save your settings
On *:DIALOG:ckdiag:sclick:3: ck.helpfile
On *:DIALOG:ckdiag:init:0:{
did -r $dname 20 | did -r $dname 22 | did -r $dname 53 | did -r $dname 43 | did -a $dname 26 $ckini(ckset,percentage)
did -f $dname 1 | did -c $dname 10 | ckinv | ckload | ckusers | ckchansload | did -c $dname 51 1
; When you first open the dialog, it will check the first Warning radio button, make sure that you will be able to get
; out of the Dialog (via OK), it clears all the focus from the buttons and etc .., loads the percentage to kick for, the unaffected
; user list and makes visible the settings for the first warning if it's been set. And the channels too
if ($group(#CapsKick).status == on) { did -c $dname 98 }
else { did -c $dname 99 }
if ($ckini(ckset,oppro)) { did -c $dname 35 }
if ($ckini(ckset,voicepro)) { did -c $dname 36 }
did -r $dname 53
}
On *:DIALOG:ckdiag:sclick:98: .enable #CapsKick
On *:DIALOG:ckdiag:sclick:99: .disable #CapsKick
; Makes sure that if you click on 'Enable CapsKick' or 'Disable CapsKick' it will turn the group on or off respectively
On *:DIALOG:ckdiag:sclick:35: if ($did($did).state == 1) { $ckwini(ckset,oppro,$true) } | else { remini protect.ini ckset oppro }
On *:DIALOG:ckdiag:sclick:36: if ($did($did).state == 1) { $ckwini(ckset,voicepro,$true) } | else { remini protect.ini ckset voicepro }
; Makes sure that if you click on 'Op Protection' or 'Voice Protection' it will turn the respective protections on or off
On *:DIALOG:ckdiag:sclick:24:{ cksaveset }
; Saves the options for the messages/seconds when you click on 'Save'
On *:DIALOG:ckdiag:sclick:16: if ($did($dname,16).state == 1) { did -v $dname 20 | did -v $dname 21 | ckcheckwktb ckwarn wk warning } | else { did -h $dname 20 | did -h $dname 21 }
On *:DIALOG:ckdiag:sclick:17: if ($did($dname,17).state == 1) { did -v $dname 20 | did -v $dname 21 | ckcheckwktb ckwarn wk kick } | else { did -h $dname 20 | did -h $dname 21 }
On *:DIALOG:ckdiag:sclick:18: if ($did($dname,18).state == 1) { did -v $dname 22 | did -v $dname 23 | ckcheckwktb ckwarn tb temp } | else { did -h $dname 22 | did -h $dname 23 }
On *:DIALOG:ckdiag:sclick:19: if ($did($dname,19).state == 1) { did -h $dname 22 | did -h $dname 23 | ckcheckwktb ckwarn tb perm }
; Saves the options of when you check or uncheck the warning/kick or tempban/ban radio buttons
; It also makes sure that the right text and lists appear in order for you to enter the correct text
On *:DIALOG:ckdiag:dclick:41: .remini protect.ini ckusers $did(41).sel | ckusersorder | ckusers
On *:DIALOG:ckdiag:sclick:44: .ckusers $did(43).text | did -r $dname 43
On *:DIALOG:ckdiag:sclick:54: if ($did(53).text == $null) { goto end } | .writeini protect.ini ckset chans $addtok($ckini(ckset,chans),$did(53).text,44) | did -r $dname 53 | ckchansload | :end
On *:DIALOG:ckdiag:sclick:52: if ($chr(44) !isin $ckini(ckset,chans)) { .remini protect.ini ckset chans } | else { writeini protect.ini ckset chans $deltok($ckini(ckset,chans),$did(51).sel,44) } | ckchansload
; warning radio buttons
On *:DIALOG:ckdiag:sclick:10:{ ckload }
On *:DIALOG:ckdiag:sclick:11:{ ckload }
On *:DIALOG:ckdiag:sclick:12:{ ckload }
On *:DIALOG:ckdiag:sclick:13:{ ckload }
On *:DIALOG:ckdiag:sclick:14:{ ckload }
alias -l ckload {
ckinv
ckclear
;The first warning
if ($did(ckdiag,10).state == 1) {
if ($ckini(ckset,warn1) == $true) {
ckloadwk
;checking for "warning" or "kick"
if ($ckini(ckwarn,one_wk) == warning) { did -c ckdiag 16 }
elseif ($ckini(ckwarn,one_wk) == kick) { did -c ckdiag 17 }
else { writeini protect.ini ckwarn one_wk warning | did -c ckdiag 16 }
did -r ckdiag 20
did -a ckdiag 20 $ckini(ckwarn,one_wkm)
;checking for "temp ban" or "ban"
if ($ckini(ckwarn,one_tb) == temp) { did -v ckdiag 22 | did -v ckdiag 23 | did -c ckdiag 18 | did -r ckdiag 22 | did -a ckdiag 22 $ckini(ckwarn,one_tbs) }
elseif ($ckini(ckwarn,one_tb) == perm) { did -c ckdiag 19 }
else { ckswitches }
}
else { ckinv }
goto end
}
;The second warning
if ($did(ckdiag,11).state == 1) {
if ($ckini(ckset,warn2) == $true) {
ckloadwk
;checking for "warning" or "kick"
if ($ckini(ckwarn,two_wk) == warning) { did -c ckdiag 16 }
elseif ($ckini(ckwarn,two_wk) == kick) { did -c ckdiag 17 }
else { writeini protect.ini ckwarn two_wk warning | did -c ckdiag 16 }
did -r ckdiag 20
did -a ckdiag 20 $ckini(ckwarn,two_wkm)
;checking for "temp ban" or "ban"
if ($ckini(ckwarn,two_tb) == temp) { did -v ckdiag 22 | did -v ckdiag 23 | did -c ckdiag 18 | did -r ckdiag 22 | did -a ckdiag 22 $ckini(ckwarn,two_tbs) }
elseif ($ckini(ckwarn,two_tb) == perm) { did -c ckdiag 19 }
else { ckswitches }
}
else { ckinv }
goto end
}
;The third warning
if ($did(ckdiag,12).state == 1) {
if ($ckini(ckset,warn3) == $true) {
ckloadwk
;checking for "warning" or "kick"
if ($ckini(ckwarn,three_wk) == warning) { did -c ckdiag 16 }
elseif ($ckini(ckwarn,three_wk) == kick) { did -c ckdiag 17 }
else { writeini protect.ini ckwarn three_wk warning | did -c ckdiag 16 }
did -r ckdiag 20
did -a ckdiag 20 $ckini(ckwarn,three_wkm)
;checking for "temp ban" or "ban"
if ($ckini(ckwarn,three_tb) == temp) { did -v ckdiag 22 | did -v ckdiag 23 | did -c ckdiag 18 | did -r ckdiag 22 | did -a ckdiag 22 $ckini(ckwarn,three_tbs) }
elseif ($ckini(ckwarn,three_tb) == perm) { did -c ckdiag 19 }
else { ckswitches }
}
else { ckinv }
goto end
}
;The fourth warning
if ($did(ckdiag,13).state == 1) {
if ($ckini(ckset,warn4) == $true) {
ckloadwk
;checking for "warning" or "kick"
if ($ckini(ckwarn,four_wk) == warning) { did -c ckdiag 16 }
elseif ($ckini(ckwarn,four_wk) == kick) { did -c ckdiag 17 }
else { writeini protect.ini ckwarn four_wk warning | did -c ckdiag 16 }
did -r ckdiag 20
did -a ckdiag 20 $ckini(ckwarn,four_wkm)
;checking for "temp ban" or "ban"
if ($ckini(ckwarn,four_tb) == temp) { did -v ckdiag 22 | did -v ckdiag 23 | did -c ckdiag 18 | did -r ckdiag 22 | did -a ckdiag 22 $ckini(ckwarn,four_tbs) }
elseif ($ckini(ckwarn,four_tb) == perm) { did -c ckdiag 19 }
else { ckswitches }
}
else { ckinv }
goto end
}
;The fifth warning
if ($did(ckdiag,14).state == 1) {
if ($ckini(ckset,warn5) == $true) {
ckloadwk
;checking for "warning" or "kick"
if ($ckini(ckwarn,five_wk) == warning) { did -c ckdiag 16 }
elseif ($ckini(ckwarn,five_wk) == kick) { did -c ckdiag 17 }
else { writeini protect.ini ckwarn five_wk warning | did -c ckdiag 16 }
did -r ckdiag 20
did -a ckdiag 20 $ckini(ckwarn,five_wkm)
;checking for "temp ban" or "ban"
if ($ckini(ckwarn,five_tb) == temp) { did -v ckdiag 22 | did -v ckdiag 23 | did -c ckdiag 18 | did -r ckdiag 22 | did -a ckdiag 22 $ckini(ckwarn,five_tbs) }
elseif ($ckini(ckwarn,five_tb) == perm) { did -c ckdiag 19 }
else { ckswitches }
}
else { ckinv }
}
:end
}
alias -l ckusers {
if ($1- != $null) {
set %i 0
:loop
inc %i
if ($ckini(ckusers,%i) == $null) { writeini protect.ini ckusers %i $1 | .timer 1 1 .ckusers }
else { goto loop }
}
; It will add a new user to the protect.ini list in the appropriate place and then use the alias again
did -r ckdiag 41
set %i 0
:looping
inc %i
if ($ckini(ckusers,%i) == $null) { goto end }
did -a ckdiag 41 $ckini(ckusers,%i)
goto looping
:end
unset %i
; This section will clear the list box and then enter the users one by one once again (like a refresh)
}
alias -l ckchansload {
did -r ckdiag 51
if ($ckini(ckset,chans) == $null) { goto end }
$ckwini(ckset,chans,$remove($ckini(ckset,chans),$chr(32)))
$ckwini(ckset,chans,$deltok($ckini(ckset,chans),$null,44))
set %i 0
:loop
inc %i
if (%i > $numtok($ckini(ckset,chans),44)) { goto end }
did -a ckdiag 51 $gettok($ckini(ckset,chans),%i,44)
goto loop
:end
}
; Refreshes the list of affected channels
alias -l ckcheckw {
if ($did(ckdiag,10).state == 1) { $ckwini($1,warn1,$2) }
if ($did(ckdiag,11).state == 1) { $ckwini($1,warn2,$2) }
if ($did(ckdiag,12).state == 1) { $ckwini($1,warn3,$2) }
if ($did(ckdiag,13).state == 1) { $ckwini($1,warn4,$2) }
if ($did(ckdiag,14).state == 1) { $ckwini($1,warn5,$2) }
}
alias -l ckcheckwktb {
if ($did(10).state == 1) { $ckwini($1,$ck.stuff(one_,$2-)) }
if ($did(11).state == 1) { $ckwini($1,$ck.stuff(two_,$2-)) }
if ($did(12).state == 1) { $ckwini($1,$ck.stuff(three_,$2-)) }
if ($did(13).state == 1) { $ckwini($1,$ck.stuff(four_,$2-)) }
if ($did(14).state == 1) { $ckwini($1,$ck.stuff(five_,$2-)) }
}
; Saves in the information in the right section of the .ini file depending
; on what Warning section the dialog is currently in
alias -l cksaveset {
if ($did(ckdiag,20).text) { ckcheckwktb ckwarn wkm $did(ckdiag,20).text } | else { ckcheckwktb ckwarn tbs Don't use caps! }
if ($did(ckdiag,22).text) { ckcheckwktb ckwarn tbs $did(ckdiag,22).text } | else { ckcheckwktb ckwarn tbs 30 }
if ($did(ckdiag,26).text) { $ckwini(ckset,percentage,$did(ckdiag,26).text) }
}
; Saves the settings for the warning/kick message and the tempban nummber of seconds
alias ckclear { did -u ckdiag 15 | did -u ckdiag 16 | did -u ckdiag 17 | did -u ckdiag 18 | did -u ckdiag 19 | did -r ckdiag 20 }
; Unchecks the radio buttons and then 'Enable' check box
alias -l ckini { return $readini protect.ini $1 $2 }
alias -l ckwini { if ($2 != $null) { writeini protect.ini $1 $2- } }
alias -l ck.stuff { return $1 $+ $2- }
alias -l ckswitches { did -u ckdiag 19 | did -u ckdiag 20 | did -h ckdiag 22 | did -h ckdiag 23 }
alias -l ck.helpfile { if ($exists($scriptdircapsk.txt)) { run notepad.exe $scriptdircapsk.txt } | else { run notepad.exe $findfile($gettok($mircdir,1,92),capsk.txt,1) } }
alias -l ckshowchan { if ($chan) { return Add $chan } }
; custom identifiers that makes it easier for me to script in many other sections
alias -l ckusersorder {
set %i 0
:loop
inc %i
if ($ckini(ckusers,%i) == $null) { goto checking }
else { goto loop }
:checking
if ($ckini(ckusers,$calc(%i + 1)) == $null) { goto end }
writeini protect.ini ckusers %i $ckini(ckusers,$calc(%i + 1))
remini protect.ini ckusers $calc(%i + 1)
goto loop
:end
}
; Makes sure that the users will still be in order in the protect.ini file even if you
; delete one in the middle
alias-l pcaps { unset %pcapsv* | :step1 | inc %pcapsv1 | if ( %pcapsv1 > $gettok($1-,0,32) ) { return $calc((%pcapsv3 * 100) / [ $len($remove($strip($1-),$chr(32))) ] ) } | else { set %pcapsv2 0 | :step2 | inc %pcapsv2 1 | if ( %pcapsv2 > $len($gettok($1-,%pcapsv1,32)) ) { goto step1 } | elseif ( $asc($mid($gettok($1-,%pcapsv1,32),%pcapsv2,1)) isnum 65-90 ) { inc %pcapsv3 } | goto step2 } }
alias -l ckinv {
did -u ckdiag 15 | did -h ckdiag 16 | did -h ckdiag 17 | did -h ckdiag 18 | did -h ckdiag 19
did -h ckdiag 20 | did -h ckdiag 21 | did -h ckdiag 22 | did -h ckdiag 23 | did -h ckdiag 24
}
; Makes sure that the options for the Warnings will be invisible
alias -l ckloadwk { did -c ckdiag 15 | did -v ckdiag 16 | did -v ckdiag 17 | did -v ckdiag 18 | did -v ckdiag 19 | did -v ckdiag 20 | did -v ckdiag 21 | did -v ckdiag 24 }
; Makes sure that all the options who aren't supposed to be there will be invisible