Crummy RPG

ClearText()
DisplayGraphics()

var playerX = 128
var playerY = 128
var enemyX = 256
var enemyY = 48
var moveDir = 1
var tilesX1  = [32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 240, 256, 272, 288, 304, 320, 336, 352, 368, 384, 400, 416, 432, 448, 464, 480]
var tilesX2  = [32, 48, 464, 480]
var tilesX3  = [32, 48, 464, 480]
var tilesX4  = [32, 48, 464, 480]
var tilesX5  = [32, 48, 288, 304, 320, 336, 464, 480]
var tilesX6  = [32, 48, 64, 80, 144, 464, 480]
var tilesX7  = [32, 48, 144, 464, 480]
var tilesX8  = [32, 48, 416, 464, 480]
var tilesX9  = [32, 48, 160, 464, 480]
var tilesX10 = [32, 48, 64, 464, 480]
var tilesX11 = [32, 48, 64, 464, 480]
var tilesX12 = [32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 240, 256, 272, 288, 304, 320, 336, 352, 368, 384, 400, 416, 432, 448, 464, 480]
var tilesY = [48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224]

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 != 32)
			playerX -= 16
			DrawText()
		end
	else if(IsKeyPressed("right"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerX != 480)
			playerX += 16
			DrawText()
		end
	else if(IsKeyPressed("up"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 48)
			playerY -= 16
			DrawText()
		end
	else if(IsKeyPressed("down"))
		DoEnemy()
		DrawText()
		Sleep(0.3)
		if(playerY != 224)
			playerY += 16
			DrawText()
		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(24,39,489,39)
	Line(24,39,24,232)
	Line(489,39,489,232)
	Line(24,232,489,232)
end

void DrawTiles()
	Color(0.7, 0.7, 0.7)
	loop t from 0 to Count(tilesX1) - 1
		Rect(tilesX1[t] - 8, tilesY[0] - 8. tilesX1[t] + 8, tilesY[0] + 8)
	end
	loop t from 0 to Count(tilesX2) - 1
		Rect(tilesX2[t] - 8, tilesY[1] - 8. tilesX2[t] + 8, tilesY[1] + 8)
	end
	loop t from 0 to Count(tilesX3) - 1
		Rect(tilesX3[t] - 8, tilesY[2] - 8. tilesX3[t] + 8, tilesY[2] + 8)
	end
	loop t from 0 to Count(tilesX4) - 1
		Rect(tilesX4[t] - 8, tilesY[3] - 8. tilesX4[t] + 8, tilesY[3] + 8)
	end
	loop t from 0 to Count(tilesX5) - 1
		Rect(tilesX5[t] - 8, tilesY[4] - 8. tilesX5[t] + 8, tilesY[4] + 8)
	end
	loop t from 0 to Count(tilesX6) - 1
		Rect(tilesX6[t] - 8, tilesY[5] - 8. tilesX6[t] + 8, tilesY[5] + 8)
	end
	loop t from 0 to Count(tilesX7) - 1
		Rect(tilesX7[t] - 8, tilesY[6] - 8. tilesX7[t] + 8, tilesY[6] + 8)
	end
	loop t from 0 to Count(tilesX8) - 1
		Rect(tilesX8[t] - 8, tilesY[7] - 8. tilesX8[t] + 8, tilesY[7] + 8)
	end
	loop t from 0 to Count(tilesX9) - 1
		Rect(tilesX9[t] - 8, tilesY[8] - 8. tilesX9[t] + 8, tilesY[8] + 8)
	end
	loop t from 0 to Count(tilesX10) - 1
		Rect(tilesX10[t] - 8, tilesY[9] - 8. tilesX10[t] + 8, tilesY[9] + 8)
	end
	loop t from 0 to Count(tilesX11) - 1
		Rect(tilesX11[t] - 8, tilesY[10] - 8. tilesX11[t] + 8, tilesY[10] + 8)
	end
	loop t from 0 to Count(tilesX12) - 1
		Rect(tilesX12[t] - 8, tilesY[11] - 8. tilesX12[t] + 8, tilesY[11] + 8)
	end

end


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