alias level.load { dialog -m level.load level.load }
dialog level.load {
title "User Level Manager"
size -1 -1 200 95
option dbu
list 1, 1 1 99 78, sort
edit "", 2, 121 1 79 10
edit "", 3, 121 15 79 10
edit "", 4, 121 25 79 10
edit "", 5, 121 35 79 10
edit "", 6, 121 45 79 10
edit "", 7, 121 55 79 10
edit "", 8, 121 65 79 10
edit "New User", 100, 1 79 99 10
text "Levels", 201, 101 1 20 10
text "D.O.B.", 202, 101 15 20 10
text "Sex", 203, 101 25 20 10
text "EMail", 204, 101 35 20 10
text "Name", 205, 101 45 20 10
text "Address", 206, 101 55 20 10
text "Phone", 207, 101 65 20 10
button "Add/Update", 301, 121 80 39 10
button "Remove User", 302, 161 80 39 10
}
on *:dialog:level.load:init:0:{ loadup.levels }
alias loadup.levels {
var %t.users = $ini(remote.ini,users,0)
var %i = 1
while (%i <= %t.users) {
var %n.user = $ini(remote.ini,users,%i)
did -a level.load 1 $gettok($gettok($readini(remote.ini,users,%n.user),1,32),2,58)
inc %i
}
}
on *:dialog:level.load:sclick:1:{
did -r level.load 2,3,4,5,6,7,8,100
did -a level.load 100 $did(level.load,1).seltext
did -a level.load 2 $remove($level($did(level.load,1).seltext),=)
var %user.info = $ulist($did(level.load,1).seltext).info
var %user.info.t = $gettok(%user.info,0,124)
var %i = 1
var %x = 3
while (%i <= %user.info.t) {
did -a level.load %x $gettok(%user.info,%i,124)
inc %i
inc %x
}
}
on *:dialog:level.load:sclick:301:{
auser $did(level.load,2) $did(level.load,100)
iuser $did(level.load,100) $+($did(level.load,3),$chr(124),$did(level.load,4),$chr(124),$did(level.load,5),$chr(124),$did(level.load,6),$chr(124),$did(level.load,7),$chr(124),$did(level.load,8))
flushini remote.ini
did -r level.load 1,2,3,4,5,6,7,8,100
loadup.levels
}
on *:dialog:level.load:sclick:302:{
ruser $did(level.load,1).seltext
flushini remote.ini
did -r level.load 1,2,3,4,5,6,7,8,100
loadup.levels
}