Crummy RPG

ClearText()
DisplayGraphics()

var playerX = 150
var playerY = 200
var enemyX = 150
var enemyY = 50
var moveDir = 1
var tilesX1 = [50, 100, 150]


var hpStat = 10
var strStat = 5
var defStat = 5

#Update LOOP
loop

DrawEnemy(enemyX, enemyY)
DrawPlayer(playerX, playerY)
DrawBorder()
DrawTiles()
OnInput()


DisplayGraphics()
end
#Update END

void OnInput()
	if(IsKeyPressed("left"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerX != 18)
			playerX -= 12
		end
	else if(IsKeyPressed("right"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerX != 486)
			playerX += 12
		end
	else if(IsKeyPressed("up"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 32)
			playerY -= 12
		end
	else if(IsKeyPressed("down"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 236)
			playerY += 12
		end
	end
end


void DoEnemy()
	moveDir = Random()
	if(moveDir < 0.25)
		enemyY -= 12
	else if(moveDir < 0.5)
		enemyX += 12
	else if(moveDir < 0.75)
		enemyX -= 12
	else if(moveDir < 1)
		enemyY += 12
	end
end

#DRAW FUNCTIONS --------------- DRAW
void DrawEnemy(number x, number y)
	Color(1, 0, 0)
	Rect(x - 6, y - 6, x + 6, y + 6)
	Color(0, 0, 0)
	Rect(x - 2, y - 4, x + 2, y + 2)

end


void DrawPlayer(number x, number y)
	Color(0.8, 0.8, 0.8)
	Rect(x - 6, y - 6, x + 6, y + 6)
	Color(0, 0, 1)

	Rect(x - 2, y - 4, x + 2, y + 2)

end


void DrawBorder()
	Color(0.9, 0.9, 0.9)
	Line(9,23,495,23)
	Line(9,23,9,245)
	Line(495,23,495,245)
	Line(9,245,495,245)
end

void DrawTiles()
	loop t from 0 to 2
		Rect(tilesX1[t] - 10. tilesX1[t] - 10, tilesX1[t] + 10, tilesX1[t] + 10)
	end
end

void DrawText()
	ClearText()
	Print("X: " + playerX + " y: " + playerY + " HP: " + hpStat + " Str: " + strStat + " def: " + defStat)
end