By GrimReaper on Aug 05, 2010This is a little snippet I made that will generate both "on :START:{" and "on :CONNECT: {" section's so you can automatically identify on which ever network you add.
You have to add each network one by one.
menu status,channel,menubar {
mIRC Start-up Creator:mircstartcreator
}
dialog startupdia {
title "mIRC Start-Up Creator by GrimReaper"
size -1 -1 134 67
option dbu
text "Network:", 1, 3 5 22 8
edit "", 5, 28 4 102 10
text "Server:", 6, 3 17 18 8
edit "", 7, 28 16 102 10
text "NickName:", 8, 3 29 25 8
edit "", 9, 28 28 102 10
text "Password:", 10, 3 41 25 8
edit "", 11, 28 40 102 10, autohs
button "Add", 12, 3 52 20 12
button "Clear", 13, 30 52 20 12
button "Create", 14, 57 52 20 12
button "Ok", 15, 83 52 20 12, ok
button "Cancel", 16, 109 52 20 12, cancel
menu "File", 2
item "Clear All", 3, 2
item "Exit", 4, 2
}
on *:DIALOG:startupdia:menu:3,4: {
if ($did == 3) { did -r $dname 5,7,9,11 | unset %start* }
if ($did == 4) { dialog -x startupdia startupdia }
}
on *:DIALOG:startupdia:sclick:12,13,14: {
if ($did == 12) {
if (!$istok(5 7 9 11,$did,32)) { noop $input(Please be sure ALL fields are filled.,o) }
else {
set %startnetwork %startnetwork $+ $did(5) $+ $chr(44)
set %startserver %startserver $+ $did(7) $+ $chr(44)
set %startnickname %startnickname $+ $did(9) $+ $chr(44)
set %startpassword %startpassword $+ $did(11) $+ $chr(44)
}
}
if ($did == 13) {
did -r $dname 5,7,9,11
}
if ($did == 14) {
.remove startup.txt
write startup.txt on *:START: $chr(123)
var %a = 1
while (%a <= $numtok(%startserver,44)) {
write startup.txt $iif(%a == 1,server,server -m) $gettok(%startserver,%a,44)
inc %a
}
write startup.txt $chr(125)
write startup.txt
write startup.txt on *:CONNECT: $chr(123)
var %a = 1
while (%a <= $numtok(%startnetwork,44)) {
write startup.txt if $chr(40) $+ $chr(36) $+ network == $gettok(%startnetwork,%a,44) $+ $chr(41) $chr(123) nick $gettok(%startnickname,%a,44) $chr(124) .msg NickServ identify $gettok(%startpassword,%a,44) $chr(125)
inc %a
}
write startup.txt $chr(125)
run startup.txt
}
}
alias -l mircstartcreator {
dialog $iif($dialog(startupdia),-v,-m startupdia) startupdia
}
hi
use write -c startup.txt unstead of remove startup.txt
and what about $*
this can be something like this
no need to put chr for "(" and "$" put directly "if ($network =="
if $did == 14 {
write -c startup.txt
write startup.txt on *:START: $chr(123)
write startup.txt server $gettok(%startserver,1,44)
tokenize 44 $gettok(%startserver,2-,44)
write startup.txt server -m $*
write startup.txt $chr(125)
write startup.txt on *:CONNECT: $chr(123)
var %a 1
while $gettok(%startnetwork,%a,44) {
write startup.txt write startup.txt if ($network == $v1 $+ ) $chr(123) nick $gettok(%startnickname,%a,44) $chr(124) .msg NickServ identify $gettok(%startpassword,%a,44) $chr(125)
inc %a
}
write startup.txt $chr(125)
run startup.txt
}
