on *:connect:{
var %loginQ = $input(Do You Want To Login with NickServ?,y)
if (%loginQ) { nickserv identify $?*="Enter Your Password" }
}
dialog optionstest {
title "Options Test"
size -1 -1 199 69
option dbu
edit "Enter Something Here", 100, 1 1 197 10
combo 200, 1 15 160 10, drop
button "Enter", 300, 165 15 30 10
radio "Option 1", 400, 1 30 30 10, group
radio "Option 2", 401, 1 40 30 10
radio "Option 3", 402, 1 50 30 10
radio "Option 1", 403, 100 30 30 10, group
radio "Option 2", 404, 100 40 30 10
radio "Option 3", 405, 100 50 30 10
}
on *:dialog:optionstest:init:0:{
if ($isfile(testing.ini) == $false) { write -c testing.ini }
var %group1 = $readini(testing.ini,options,group1,id)
echo -a %group1
$iif(%group1, did -c optionstest %group1 ,did -c optionstest 400 )
var %group2 = $readini(testing.ini,options,group2,id)
$iif(%group2, did -c $dname %group2, did -c optionstest 404)
}
on *:dialog:optionstest:sclick:300:{
if ($did(optionstest,400).state ==
1) { did -a optionstest 200 $did(optionstest,100) }
if ($did(optionstest,400).state != 1) { Echo -a 4WhOoP12 wHoOp!! }
if ($did(optionstest,403).state == 1) { did -c optionstest 200 $did(optionstest,200).lines }
}
on *:dialog:optionstest:sclick:400,401,402:{
writeini testing.ini group1 id $did
}
on *:dialog:optionstest:sclick:403,404,405:{
writeini testing.ini group2 id $did
}