Crummy RPG

ClearText()
DisplayGraphics()

var playerX = 128
var playerY = 128
var enemyX = 256
var enemyY = 48
var moveDir = 1
var tilesX1 = [16, 32, 48, 96, 112, 128, 112, 32, 32, 32,  96,  96,  96]
var tilesY1 = [32, 32, 32, 96,  96,  96, 112, 32, 48, 96, 112, 128, 112]

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

DrawText()

#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 != 16)
			playerX -= 16
		end
	else if(IsKeyPressed("right"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerX != 496)
			playerX += 16
		end
	else if(IsKeyPressed("up"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 32)
			playerY -= 16
		end
	else if(IsKeyPressed("down"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 240)
			playerY += 16
		end
	end
end


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

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

end


void DrawPlayer(number x, number y)
	Color(0.9, 0.9, 1)
	Rect(x - 7, y - 7, x + 7, y + 7)
	Color(0, 0, 1)

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

end


void DrawBorder()
	Color(0.8, 0.8, 0.8)
	Line(8,23,505,23)
	Line(8,23,8,248)
	Line(505,23,505,248)
	Line(8,248,504,248)
end

void DrawTiles()
	Color(0.7, 0.7, 0.7)
	loop t from 0 to 12
		Rect(tilesX1[t] - 8. tilesY1[t] - 8, tilesX1[t] + 8, tilesY1[t] + 8)
	end
end

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