או
לחצן ימני -> Q Account Manager
תיאור:
מנהל חשבונות Q שבו אתם יכולים לשמור את חשבונות ה- Q שלכם ולהתחבר אליהם.
תמונה:
קוד: בחר הכל
dialog QAccountM {
title "Q Account Manager"
size -1 -1 213 225
option dbu
edit "Enter Q Account Name", 1, 7 5 73 13, autohs autovs center
edit "Enter Q Account Password", 2, 88 5 73 13, autohs autovs center
button "Add", 3, 165 5 37 13
list 4, 7 22 195 159, size vsbar
button "Del Account", 5, 7 182 40 12
button "Clear List", 6, 85 182 40 12
button "Login Account", 7, 162 182 40 12
button "Accounts Editor", 8, 7 195 195 12
edit "", 9, 7 208 195 10, read center
text "Roi- script", 10, 1 218 211 8, center
}
menu * {
Q Accounts Manager { dialog -m QAccountM QAccountM }
}
alias f4 {
dialog -m QAccountM QAccountM
}
on *:dialog:QAccountM:sclick:*: {
if ($did == 3) {
if ($did(1).text != $null) && ($did(2).text != $null) {
if ($numtok($did(1).text,32) == 1) && ($numtok($did(2).text,32) == 1) {
if ($readini(MQAccounts.ini, QAccounts, $did(1).text) == $null) {
writeini MQAccounts.ini QAccounts $did(1).text $did(2).text
set %qaccouts.save %qaccouts.save $did(1).text
set %details.number $numtok(%qaccouts.save,32)
did -ra $dname 9 Details: Total Q Accounts: %details.number $+ ,
did -a $dname 4 $did(1).text
did -r $dname 1,2
}
elseif ($readini(MQAccounts.ini, QAccounts, $did(1).text) != $null) && ($input(This Q account is already in the list,o,Error)) {
did -r $dname 1,2
}
}
elseif ($numtok($did(1).text,32) != 1) || ($numtok($did(2).text,32) != 1) && ($input(You cant use "space" in the Q account name\password,o,Space Error)) {
if ($numtok($did(1).text,32) != 1) {
did -r $dname 1
}
if ($numtok($did(2).text,32) != 1) {
did -r $dname 2
}
}
}
}
elseif ($did == 5) {
if ($did(4).seltext != $null) {
remini MQAccounts.ini QAccounts $did(4).seltext
set %qaccouts.save $remtok(%qaccouts.save, $did(4).seltext, 32)
set %details.number $numtok(%qaccouts.save,32)
did -ra $dname 9 Details: Total Q Accounts: %details.number $+ ,
did -d $dname 4 $did(4).sel
}
}
elseif ($did == 6) {
if (%qaccouts.save != $null) && ($input(Are you sure that you want to clear the Q accounts list?,y,Clear List)) {
remini MQAccounts.ini QAccounts
unset %qaccouts.save
did -ra $dname 9 Details: Total Q Accounts: 0,
did -r $dname 4
}
}
elseif ($did == 7) {
if ($did(4).seltext != $null) {
/msg Q@CServe.quakenet.org AUTH $did(4).seltext $readini(MQAccounts.ini, QAccounts, $did(4).seltext)
}
}
elseif ($did == 8) {
dialog -m AccoutsEditor AccoutsEditor
}
}
on *:dialog:QAccountM:dclick:*: {
if ($did == 4) {
if ($did(4).seltext != $null) {
/msg Q@CServe.quakenet.org AUTH $did(4).seltext $readini(MQAccounts.ini, QAccounts, $did(4).seltext)
}
}
}
on *:dialog:QAccountM:init:*: {
var %qam.check 1
var %qam.test $numtok(%qaccouts.save,32)
while (%qam.check <= %qam.test) {
if ($gettok(%qaccouts.save, %qam.check, 32) != $null) {
did -a $dname 4 $gettok(%qaccouts.save, %qam.check, 32)
inc %qam.check
}
}
if (%qaccouts.save != $null) {
set %details.number $numtok(%qaccouts.save,32)
did -a $dname 9 Details: Total Q Accounts: %details.number $+ ,
}
elseif (%qaccouts.save == $null) {
unset %details.number
did -a $dname 9 Details: Total Q Accounts: 0,
}
}
dialog AccoutsEditor {
title "Accounts Editor"
size -1 -1 213 45
option dbu
combo 1, 8 4 152 50, size hsbar drop
button "Edit", 2, 165 4 37 12
edit "", 3, 8 23 70 12, read autovs center
edit "", 4, 80 23 80 12, autovs center
button "Save", 5, 165 23 37 12
text "Roi- script", 6, 0 37 213 8, center
}
on *:dialog:AccoutsEditor:sclick:*: {
if ($did == 2) {
if ($did(1).text != $null) {
did -e $dname 4,5
did -ra $dname 3 $did(1).text
did -ra $dname 4 $readini(MQAccounts.ini, QAccounts, $did(1).text)
}
}
elseif ($did == 5) {
if ($numtok($did(4).text,32) == 1) {
if ($readini(MQAccounts.ini, QAccounts, $did(3).text) != $null) {
if ($did(3).text != $null) && ($did(4).text != $null) && ($input(Password has been changed. $crlf $+ ( $+ $did(3).text $+ ) password is now: ( $+ $did(4).text $+ ).,o,Q Accout Editor)) {
writeini MQAccounts.ini QAccounts $did(3).text $did(4).text
did -r $dname 3,4
did -b $dname 4,5
}
}
}
elseif ($numtok($did(4).text,32) != 1) && ($input(You cant use "space" in the Q account password,o,Space Error)) {
did -ra $dname 4 $readini(MQAccounts.ini, QAccounts, $did(1).text)
}
}
}
on *:dialog:AccoutsEditor:init:*: {
did -b $dname 4,5
var %qam.check 1
var %qam.test $numtok(%qaccouts.save,32)
while (%qam.check <= %qam.test) {
if ($gettok(%qaccouts.save, %qam.check, 32) != $null) {
did -a $dname 1 $gettok(%qaccouts.save, %qam.check, 32)
inc %qam.check
}
}
}