About My Piece of code!

Blitz3D Forums/Blitz3D Beginners Area/About My Piece of code!

Yeah after a while i figured it out, I played with it a bit as you can see below now it erase all :)

AppTitle "Shadiens - Tournament"
Graphics 800, 600, 16, 2
SetBuffer Backbuffer()

Global menuarrow = 0
Global draw = True
;----------------------
; Load Graphics
;----------------------
	  ; Char Sprites
Global CharA         = LoadImage("images/char1.png")
Global CharB         = LoadImage("images/char2.png")
		; Battle Scene
Global Status_Bar    = LoadImage("images/bset_bottom.png")
Global Fight_Menu    = LoadImage("images/bset_bottomATT.png")
Global Arrow         = LoadImage("images/arrow.png")

;---------------------
; Draw Script
;---------------------	

While Not KeyHit (1)
If draw = True Then
DrawImage Status_Bar,0,470
DrawImage Fight_Menu,20,440
EndIf

If menuarrow = 0 Then
Ax = 0
Ay = 10
EndIf
If menuarrow = 1 Then
Ax = 0
Ay = 30
EndIf
If menuarrow = 2 Then
Ax = 0
Ay = 50
EndIf
If menuarrow = 3 Then
Ax = 0
Ay = 70
EndIf
If menuarrow = 4 Then
menuarrow = 0
EndIf

If KeyHit(30) Then
Cls
EndIf 

If KeyDown(208) Then ;press down
menuarrow = menuarrow + 1
draw = False 
EndIf

DrawImage Arrow,Ax,Ay
Flip
Cls
Wend