newgui main [
guilist [
guilist [
guibutton "Multiplayer.." "showgui multiplayer"
guibutton "Bot Match.." "showgui botmatch"
guibutton "Campaign.." "showgui campaign"
guibutton "Load map.." "showgui maps"
guibutton "My Maps.." "showgui mymaps"
guibutton "About .." "showgui about"
guibutton "Editing.." "showgui editing"
guibutton "Options.." "showgui options"
guibutton "Quit.." "quit""exit"
]
guibar;
guilist [
guitext "Server.."
guibutton "PSL2" "connect psl.sauerleague.org 20000";
guibutton "PSL3" "connect psl.sauerleague.org 30000";
guibutton "PSL4" "connect psl.sauerleague.org 40000";
guibutton "H I D E P A R K" "connect 62.75.145.110 30000";
]
]
]
< align="center">
< align="center">zeropad = [if (< $arg1 10) [concatword 0 $arg1] [concatword $arg1]]
listpos = [(listfind chk $arg1 [(strcmp $arg2 $chk)])]
_mmg_tab0 = []
_mmg_tabC = 0
< align="center">
< align="center">guirolloveraction = ""
guirollovername = ""
newgui mymaps [
guilist [
guilist [ genmapitems $_mmg_tab0 ]
showmapshot
]
loop t $_mmg_tabC [
gui_tx = (+ $t 1)
guitab (zeropad $gui_tx)
guilist [
guilist [ genmapitems (getalias (concatword _mmg_tab $gui_tx)) ]
showmapshot
]
]
]
mapl_l = [mainmaps moremaps1 moremaps2 moremaps3 capturemaps1 capturemaps2 conceptmaps]
build_personal_mapgui = [
allogz = []
loopfiles f packages/base ogz [allogz = (concat $allogz $f)]
newogz = []
checkmap = [if (= (listpos (getalias $arg1) $curf) -1) [] [c_cnt = (+ @c_cnt 1)]]
chkogz = [
c_cnt = 0
looplist curlist $mapl_l [checkmap $curlist]
if (= $c_cnt 0) [newogz = (concat $newogz $curf)] [ ]//;echo added (listlen $newogz) $curf // enable if you're curious (behind "$curf)", before "]")
]
looplist curf $allogz $chkogz
nmll = (listlen $newogz)
if (> $nmll 0) [
_mmg_tab0 = ""
maxlopln = $nmll
if (> $maxlopln 10) [maxlopln = 10] [ ]
loop k $maxlopln [_mmg_tab0 = (concat $_mmg_tab0 (at $newogz $k))]
tabcnt = 0
if (> $nmll 10) [
tabcnt = (div $nmll 10)
_mmg_tabC = $tabcnt
loop d $tabcnt [
curtab = (+ $d 1)
curmapseg = ""
cursegoff = (* $curtab 10)
maxseglen = (- $nmll $cursegoff)
loplen = 10
if (< $maxseglen 10) [loplen = $maxseglen] [ ]
loop k $loplen [curmapseg = (concat $curmapseg (at $newogz (+ $cursegoff $k)))]
(concatword _mmg_tab $curtab) = $curmapseg
]
] [ ]
] [ ]
]
build_personal_mapgui
bind P [if (cleargui 1) [] [showgui mymaps]]
|
