dialog AutoJoin {
title "193sc AutoJoin"
size -1 -1 468 168
option dbu
box "Network AutoJoin", 1, 2 0 155 95
combo 2, 4 9 75 85, size
edit "java.webmaster.com:7000", 3, 82 8 70 12, autohs center
button "Add Network", 4, 82 21 70 12
button "Del Network", 5, 82 35 70 12
box "Network Settings", 6, 2 95 155 59
text "Here you can add servers for this script to connect to on startup. Settings can be changed below after you add the network.", 7, 82 50 70 42, center
check "Use Auto Identify", 8, 6 104 55 10
edit "", 9, 5 116 50 10, autohs center
edit "", 10, 5 129 50 10, pass autohs center
text "Nick", 11, 56 117 33 8, center
text "Password", 12, 56 130 34 8, center
box "Channel AutoJoin", 13, 157 0 155 95
combo 14, 159 9 75 85, size
edit "#channel key", 15, 237 8 70 12, autohs center
button "Add Channel", 16, 237 21 70 12
button "Del Channel", 17, 237 35 70 12
text "Here you can add channels for this script to connect to on startup. Settings can be changed below after you add the channel.", 18, 237 50 70 42, center
edit "", 19, 160 126 50 10, center autohs
text "Change Key Here", 20, 160 116 50 8, center
button "Save Settings", 21, 273 140 37 12
button "Save Settings", 22, 118 140 37 12
check "AutoJoin on Startup", 23, 160 104 60 10
box "Channel Settings", 24, 157 95 155 59
box "Command Settings", 25, 312 95 155 59
box "Startup Commands", 26, 312 0 155 95
button "Add Command", 27, 392 21 70 12
button "Del Command", 28, 392 35 70 12
text "Here you can add commands for this script to initiate to on connection to a network. Settings can be changed below after you add the command.", 29, 392 50 70 42, center
edit "/Command Here", 30, 392 8 70 12, autohs center
combo 32, 314 9 75 85, size
radio "No Timer", 33, 316 107 50 10, push
radio "3 Seconds", 34, 316 118 50 10, push
radio "10 Seconds", 35, 316 129 50 10, push
text "Delay before the command is initiated. Timer starts on connect, not startup", 36, 370 107 52 32, center
text "To change the key, overwrite the original and click save settings", 37, 221 105 59 30, center
text "Add a nick and password to auto-identify.", 38, 93 117 60 14, center
text "Status Label", 39, 2 156 33 8, center
text "", 40, 37 156 313 8
button "Close", 41, 430 155 37 12, ok
button "Reset All", 42, 393 155 37 12
button "Test AutoJoin", 43, 353 155 40 12
}
dialog ajreset {
title "Are you sure you want to reset?"
size -1 -1 140 70
option dbu
text "Reseting will erase all files. This should only be done if you are willing to erase everything from your autojoin files (networks, channels, passwords). The main reason of this feature is if the script is having problems. If you are sure you want to reset, click the reset button below", 1, 3 3 134 43, center
button "I have read above and want to Reset ", 2, 71 48 66 20, multi center ok
button "I don't want to Reset", 3, 3 48 66 20, center cancel
}
dialog ajtest {
title "Are you sure you want to test?"
size -1 -1 140 70
option dbu
text "A 'Hard test' will restart your mIRC and test the autojoin. A 'Soft test' will not restart, but show you how it would join if you restarted mIRC. Which would you like to choose? ;)", 1, 3 3 134 43, center
button "I would like to perform a 'Hard test'", 2, 71 48 66 20, multi center ok
button "I'm as soft as a teady bear", 3, 3 48 66 20, ok center
}
Menu Channel,Status {
193sc AutoJoin:dialog -m Autojoin Autojoin
}
alias -l scheck {
scid %netcheck disconnect
scid %netcheck window -c "status window"
label The network does not seem to exist. Try again at a different time
unset %netcheck
}
alias -l label {
did -r AutoJoin 40
did -a AutoJoin 40 $1-
}
on *:START: {
var %x 1
while (%x <= $lines(Networks.txt)) {
if (%x = 1) { server $gettok($read(Networks.txt,%x),1,32) }
else { server -m $gettok($read(Networks.txt,%x),1,32) }
inc %x
}
}
on *:CONNECT: {
if (%netcheck) && ($dialog(AutoJoin)) {
scid %netcheck write Networks.txt $server $+ : $+ $port $nick blank 0 $network
scid %netcheck did -a AutoJoin 2 $server $+ : $+ $port
scid %netcheck label Added the network of ' $+ $server $+ ' (port: $port $+ ) (network: $network $+ ).
scid %netcheck disconnect
scid %netcheck window -c "status window"
.timernet off
unset %netcheck
}
else {
var %x 1
while (%x <= $lines(Networks.txt)) {
if ($network = $gettok($read(Networks.txt,%x),5,32)) {
nick $gettok($read(Networks.txt,%x),2,32)
identify $gettok($read(Networks.txt,%x),3,32)
var %y 1
while (%y <= $lines($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt)) {
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),3,32) = 1) {
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) = nokey) { join -n $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),1,32) }
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) != nokey) { join -n $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),1,32) $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) }
}
inc %y
}
var %z 1
while (%z <= $lines(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt)) {
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 1) { $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 2) { .timer 1 3 $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 3) { .timer 1 10 $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
inc %z
}
}
inc %x
}
}
}
on *:DIALOG:ajreset:sclick:2: {
var %x 1
while (%x <= $lines(Networks.txt)) {
set %file $gettok($read(Networks.txt,%x),1,32)
.remove -b $gettok(%file,1,58) $+ .txt
.remove -b Commands. $+ $gettok(%file,1,58) $+ .txt
inc %x
}
.remove -b Networks.txt
label Everything has been reset
dialog -x AutoJoin AutoJoin
.timer 1 1 dialog -m AutoJoin AutoJoin
.timer 1 1 label Removed all Networks, Channels, and Commands. Everything has been reset
}
on *:DIALOG:ajtest:sclick:2: {
label Beginning test... Please wait
.timer 1 2 exit -nr
}
on *:DIALOG:ajtest:sclick:3: {
dialog -x AutoJoin AutoJoin
if (!$window(AutoJoin_Tester)) { window @AutoJoin_Tester }
var %x 1
while (%x <= $lines(Networks.txt)) {
echo @AutoJoin_Tester 7Connected to server:4 $gettok($gettok($read(Networks.txt,%x),1,32),1,58) 7with port:4 $gettok($gettok($read(Networks.txt,%x),1,32),2,58)
echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Changed nick to7 $gettok($read(Networks.txt,%x),2,32)
echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Sent Identify:7 $gettok($read(Networks.txt,%x),3,32)
var %y 1
while (%y <= $lines($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt)) {
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),3,32) = 1) {
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) = nokey) { echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Joined channel7 $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),1,32) }
if ($gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) != nokey) { echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Joined channel7 $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),1,32) 4with key7 $gettok($read($gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%y),2,32) }
}
inc %y
}
var %z 1
while (%z <= $lines(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt)) {
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 1) { echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Command w/ no timer:7 $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 2) { echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Command w/ 3 sec timer:7 $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
if ($gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),2,124) = 3) { echo @AutoJoin_Tester 3 $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) - 4Command w/ 10 sec timer:7 $gettok($read(Commands. $+ $gettok($gettok($read(Networks.txt,%x),1,32),1,58) $+ .txt,%z),1,124) }
inc %z
}
inc %x
}
}
on *:DIALOG:AutoJoin:sclick:42: { dialog -m ajreset ajreset }
on *:DIALOG:AutoJoin:sclick:43: { dialog -m ajtest ajtest }
on *:DIALOG:AutoJoin:init:*: {
var %x 1
while (%x <= $lines(Networks.txt)) {
did -a $dname 2 $gettok($read(Networks.txt,%x),1,32)
inc %x
}
did -b $dname 8-10,15-17,19,21-23,27-28,30,33-35
}
on *:DIALOG:AutoJoin:sclick:*: {
if ($did == 2) {
did -e $dname 8
did -b $dname 19,23,21,33-35
did -r $dname 9-10
if ($gettok($read(Networks.txt,$did(2).sel),4,32) = 1) { did -c $dname 8 | did -e $dname 9,10,22 }
if ($gettok($read(Networks.txt,$did(2).sel),4,32) = 0) { did -u $dname 8 | did -b $dname 9,10,22 }
if ($gettok($read(Networks.txt,$did(2).sel),3,32) != blank) { did -a $dname 10 $ifmatch }
did -a $dname 9 $gettok($read(Networks.txt,$did(2).sel),2,32)
did -e $dname 15-17,27-28,30
did -r $dname 14
did -r $dname 32
did -u $dname 33-35
var %x 1
var %y 1
while (%x <= $lines($gettok($did(2),1,58) $+ .txt)) {
did -a $dname 14 $gettok($read($gettok($did(2),1,58) $+ .txt,%x),1,32)
inc %x
}
while (%y <= $lines(Commands. $+ $gettok($did(2),1,58) $+ .txt)) {
did -a $dname 32 $gettok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,%y),1,124)
inc %y
}
}
if ($did == 4) { .timernet 1 10 scheck $activecid | server -m $did(3) | set %netcheck $activecid }
if ($did == 5) { set %file $gettok($read(Networks.txt),1,32) | .remove -b $gettok(%file,1,58) $+ .txt | .remove -b Commands. $+ $gettok(%file,1,58) $+ .txt | label Deleted network of ' $+ $gettok($did(2),1,58) $+ ' and all channels/commands | write -dl $+ $did(2).sel Networks.txt | did -d $dname 2 $did(2).sel | did -r $dname 14,32 }
if ($did == 8) {
if ($did(8).state = 0) { did -b $dname 9-10,22 | write -l $+ $did(2).sel Networks.txt $puttok($read(Networks.txt,$did(2).sel),0,4,32) | label Auto Identify turned off for ' $+ $gettok($did(2),1,58) $+ ' }
if ($did(8).state = 1) { did -e $dname 9-10,22 | write -l $+ $did(2).sel Networks.txt $puttok($read(Networks.txt,$did(2).sel),1,4,32) | label Auto Identify turned on for ' $+ $gettok($did(2),1,58) $+ ' }
}
if ($did == 14) {
did -e $dname 19,23,21
did -r $dname 19
if ($gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32) != nokey) { did -a $dname 19 $gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32) }
if ($gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),3,32) = 1) { did -c $dname 23 }
if ($gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),3,32) = 0) { did -u $dname 23 }
}
if ($did == 16) {
if ($chr(35) !isin $gettok($did(15),1,32)) { label Channel must contain ' $+ $chr(35) $+ ' | halt }
if ($numtok($did(15),32) = 1) { write $gettok($did(2),1,58) $+ .txt $did(15) nokey 1 }
if ($numtok($did(15),32) = 2) { write $gettok($did(2),1,58) $+ .txt $did(15) 1 }
if ($numtok($did(15),32) > 2) { halt }
did -a $dname 14 $gettok($did(15),1,32)
if ($numtok($did(15),32) = 1) { label Added channel ' $+ $did(15) $+ ' with no key }
else { label Added channel ' $+ $gettok($did(15),1,32) $+ ' with the key ' $+ $gettok($did(15),2,32) $+ ' }
}
if ($did == 17) { write -dl $+ $did(14).sel $gettok($did(2),1,58) $+ .txt | label Deleted channel ' $+ $gettok($did(14),1,32) $+ ' | did -d $dname 14 $did(14).sel }
if ($did == 21) {
if ($did(19) != $null) && ($did(19) != $gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32)) {
if ($gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32) != nokey) {
label Key change from ' $+ $gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32) $+ ' to ' $+ $did(19) $+ '
write -l $+ $did(14).sel $gettok($did(2),1,58) $+ .txt $puttok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),$did(19),2,32)
}
else {
label Key added as ' $+ $did(19) $+ '
write -l $+ $did(14).sel $gettok($did(2),1,58) $+ .txt $puttok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),$did(19),2,32)
}
}
if ($did(19) = $null) && ($did(19) != $gettok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),2,32)) {
write -l $+ $did(14).sel $gettok($did(2),1,58) $+ .txt $puttok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),nokey,2,32)
label Key set for ' $+ $did(14) $+ ' as none
}
}
if ($did == 22) {
if ($gettok($read(Networks.txt,$did(2).sel),2,32) != $did(9)) && ($did(9) != $null) { write -l $+ $did(2).sel Networks.txt $puttok($read(Networks.txt,$did(2).sel),$did(9),2,32) | var %a y }
if ($gettok($read(Networks.txt,$did(2).sel),3,32) != $did(10)) && ($did(10) != $null) { write -l $+ $did(2).sel Networks.txt $puttok($read(Networks.txt,$did(2).sel),$did(10),3,32) | var %b y }
if (%a) && (%b) { label Properties for ' $+ $gettok($did(2),1,58) $+ ' changed. Nick set as ' $+ $did(9) $+ ' and Pass set as ' $+ $did(10) $+ ' }
if (%a) && (!%b) { label Properties for ' $+ $gettok($did(2),1,58) $+ ' changed. Nick set as ' $+ $did(9) $+ ' and Pass stays as ' $+ $did(10) $+ ' }
if (!%a) && (%b) { label Properties for ' $+ $gettok($did(2),1,58) $+ ' changed. Nick stays as ' $+ $did(9) $+ ' and Pass set as ' $+ $did(10) $+ ' }
}
if ($did == 23) {
if ($did(23).state = 0) {
write -l $+ $did(14).sel $gettok($did(2),1,58) $+ .txt $puttok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),0,3,32)
label AutoJoin on Connect turned off for ' $+ $did(14) $+ '
}
if ($did(23).state = 1) {
write -l $+ $did(14).sel $gettok($did(2),1,58) $+ .txt $puttok($read($gettok($did(2),1,58) $+ .txt,$did(14).sel),1,3,32)
label AutoJoin on Connect turned on for ' $+ $did(14) $+ '
}
}
if ($did == 27) {
if ($chr(47) !isin $gettok($did(30),1,32)) { label Command must contain a ' $+ $chr(47) $+ ' | halt }
if ($read(Commands. $+ $gettok($did(2),1,58),w,$did(30) $+ *)) { label Command alread exists | halt }
write Commands. $+ $gettok($did(2),1,58) $+ .txt $did(30) $+ $chr(124) $+ 1
label Command added ' $+ $did(30) $+ ' with no timers.
did -a $dname 32 $did(30)
}
if ($did == 28) {
write -dl $+ $did(32).sel Commands. $+ $gettok($did(2),1,58) $+ .txt
label Command deleted ' $+ $did(32) $+ '
did -d $dname 32 $did(32).sel
}
if ($did == 32) {
did -e $dname 33-35
if ($gettok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),2,124) = 1) { did -c $dname 33 | did -u $dname 34,35 }
if ($gettok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),2,124) = 2) { did -c $dname 34 | did -u $dname 33,35 }
if ($gettok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),2,124) = 3) { did -c $dname 35 | did -u $dname 33,34 }
}
if ($did == 33) { write -l $+ $did(32).sel Commands. $+ $gettok($did(2),1,58) $+ .txt $puttok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),1,2,124) | label Timer set for ' $+ $did(32) $+ ' to 0 seconds }
if ($did == 34) { write -l $+ $did(32).sel Commands. $+ $gettok($did(2),1,58) $+ .txt $puttok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),2,2,124) | label Timer set for ' $+ $did(32) $+ ' to 3 seconds }
if ($did == 35) { write -l $+ $did(32).sel Commands. $+ $gettok($did(2),1,58) $+ .txt $puttok($read(Commands. $+ $gettok($did(2),1,58) $+ .txt,$did(32).sel),3,2,124) | label Timer set for ' $+ $did(32) $+ ' to 10 seconds }
}
Kekanda69
Melaka,Malaysia.::: Dalam Kenangan :::.
Al-Fatihah Kepada Muhd Raudhah Bin Haji Bahari
Sesungguhnya Allah s.w.t telah menetapkan rezeki seseorang dan tiada yang terkecuali. Di sini kita akan sama-sama kongsi kunci rezeki, amalan rezeki, rezeki internet, rezeki pasif, rezeki halal, rezeki berkat dan apa-apa berkaitan menambah rezeki.