Banker Player Grid BankerGrid 1.2 1024 600 WebApp SetVar [cols] 12 SetVar [rows] 5 SetVar [boxWidth] 60 SetVar [boxHeight] 60 SetVar [startX] 50 SetVar [startY] 100 SetVar [count] 1 Loop 1 [cols] [c] If [c] > 1 Math "([c]-1)*([boxWidth]+5)" [offsetX] 0 Else SetVar [offsetX] 0 EndIf Loop 1 [rows] [r] Math "[startX] + [offsetX]" [x] 0 Math "[startY] + (([r]-1)*([boxHeight]+5))" [y] 0 Math "floor(([count]-1)/10)" [spacer] 0 Math "[y] + ([spacer]*15)" [y] 0 CreateObject Rectangle "Box[count]" [x] [y] [boxWidth] [boxHeight] ObjectStyle "Box[count]" "fill:#fff;border:1px solid #555;text-align:center;line-height:60px;font-size:20pt;" SetObjectHTML "Box[count]" "&nbsp;" Math "[count] + 1" [count] 0 EndLoop EndLoop SetVar [nextBox] 1 If [nextBox] == "" SetVar [nextBox] 1 EndIf If [mark] == "B" SetObjectHTML "Box[nextBox]" "<b style='color:red'>B</b>" Else SetObjectHTML "Box[nextBox]" "<b style='color:blue'>P</b>" EndIf Math "[nextBox] + 1" [nextBox] 0 Loop 1 60 [i] SetObjectHTML "Box[i]" "&nbsp;" EndLoop SetVar [nextBox] 1 InitGrid 50px 30px 100px 40px Banker SetVar [mark] "B" PlaceMark 170px 30px 100px 40px Player SetVar [mark] "P" PlaceMark 290px 30px 100px 40px Reset ResetGrid