Banker Player Grid
BankerGrid
Author name
1.0
False
1024
600
False
False
False
False
WebApp
False
C:\Users\mzwer\OneDrive\Documents\VisualNeoWeb\Libraries\img\default-icon.png
en
standalone
OfflineCopyOfPages
#000000
/
[AndroidOS,iOS,WindowsPhoneOS]
normal
True
True
False
True
True
False
False
True
False
False
SetVar [rows] 5
SetVar [cols] 12
SetVar [cw] 50
SetVar [ch] 50
SetVar [gap] 4
SetVar [extraGap] 10
SetVar [startX] 20
SetVar [startY] 120
SetVar [count] 0
Loop 1 12 [c]
Math "[c]-1" [ci] 0
Math "Int([ci]/2)" [pairs] 0
Math "[startX] + [ci]*([cw]+[gap]) + [pairs]*[extraGap]" [x] 0
Loop 1 5 [r]
Math "[r]-1" [ri] 0
Math "[startY] + [ri]*([ch]+[gap])" [y] 0
Math "[count]+1" [count] 0
SetVar [cid] "Cell_[count]"
DuplicateObjectEx "CellT" [cid] "Board" "left:[x]px;top:[y]px;width:[cw]px;height:[ch]px;display:flex;align-items:center;justify-content:center;border:1px solid #333;font-size:22px;font-weight:bold;background:#fff;"
SetObjectHTML [cid] " "
EndLoop
EndLoop
SetObjectStyle "CellT" "display" "none"
SetVar [nextIndex] 1
If [nextIndex] > 60
AlertBox "Grid is full" "Full" ""
EndIf
If [mark] == "B"
SetObjectHTML "Cell_[nextIndex]" "<b style='color:red'>B</b>"
Else
SetObjectHTML "Cell_[nextIndex]" "<b style='color:blue'>P</b>"
EndIf
Math "[nextIndex]+1" [nextIndex] 0
Loop 1 60 [i]
SetObjectHTML "Cell_[i]" " "
EndLoop
SetVar [nextIndex] 1
InitGrid
40px
40px
100px
40px
Banker
SetVar [mark] "B"
PlaceMark
160px
40px
100px
40px
Player
SetVar [mark] "P"
PlaceMark
280px
40px
100px
40px
Reset
ResetGrid
42px
120px
950px
400px
10px
10px
50px
50px
0
0px
0px
1024px
600px
False
custom