Maybe something like this:
Code: Select all
Structure Player
Name.s
X.w
Y.w
Direction.w
EndStructure
Player1.Player
With Player1
Name = "Player 1"
X = 100
Y = 100
Direction = 90
EndWith
NewList Players.Player()
AddElement(Players())
With Players()
Name = "Player"
X = 100
Y = 100
Direction = 90
EndWith
Code: Select all
Box(Window()\X,Window()\Y,Window()\Width,Window()\Heigth,RGB(92,92,92))
Box(Window()\X+1,Window()\Y+1,Window()\Width-2,Window()\Heigth-2,RGB(148,148,148))
Box(Window()\X+2,Window()\Y+2,Window()\Width-4,16,RGB(128,128,128))
Code: Select all
With Window()
Box(X,Y,Width,Heigth,RGB(92,92,92))
Box(X+1,Y+1,Width-2,Heigth-2,RGB(148,148,148))
Box(X+2,Y+2,Width-4,16,RGB(128,128,128))
EndWith