Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-02-03 11:32:41 +00:00
Code Issues Projects Releases Wiki Activity

added graphical starmaps to textelite

Browse Source
This commit is contained in:
Irmen de Jong 2021-02-11 00:23:36 +01:00
parent bdda6f502a
commit 1e22170302
2 changed files with 88 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/source/todo.rst
View File

@ -3,9 +3,7 @@ TODO
====
- optimize for loop iterations better to allow proper inx, cpx #value, bne loop instructions (like repeat loop)
- implement the linked_list millfork benchmark
- add a graphical star map (of the local area) to textelite
- refactor the asmgen into their own submodule?
- refactor the compiler optimizers into their own submodule?

93
examples/textelite.p8
View File

@ -40,9 +40,9 @@ main {
when input[0] {
'?' -> {
txt.print("\nCommands are:\n"+
"buy jump info cash >=save\n"+
"sell teleport market hold <=load\n"+
"fuel galhyp local quit\n")
"buy jump info map >=save\n"+
"sell teleport market cash <=load\n"+
"fuel galhyp local hold quit\n")
}
'q' -> break
'b' -> trader.do_buy()
@ -52,7 +52,12 @@ main {
't' -> trader.do_teleport()
'g' -> trader.do_next_galaxy()
'i' -> trader.do_info()
'm' -> trader.do_show_market()
'm' -> {
if input[1]=='a' and input[2]=='p'
trader.do_map()
else
trader.do_show_market()
}
'l' -> trader.do_local()
'c' -> trader.do_cash()
'h' -> trader.do_hold()
@ -249,6 +254,7 @@ trader {
}
sub do_next_galaxy() {
txt.print("\n>>>>>>>> Galaxy Hyperjump!\n")
galaxy.travel_to(galaxy.number+1, planet.number)
planet.display(false, 0)
}
@ -258,8 +264,11 @@ trader {
num_chars = txt.input_chars(input)
if num_chars {
ubyte current_planet = planet.number
ubyte x = planet.x
ubyte y = planet.y
if galaxy.search_closest_planet(input) {
planet.display(false, 0)
ubyte distance = planet.distance(x, y)
planet.display(false, distance)
} else {
txt.print(" Not found!")
}
@ -273,6 +282,14 @@ trader {
galaxy.local_area()
}
sub do_map() {
txt.print("\n(l)ocal or (g)alaxy starmap? ")
num_chars = txt.input_chars(input)
if num_chars {
galaxy.starmap(input[0]=='l')
}
}
sub do_show_market() {
market.display()
txt.print("\nFuel: ")
@ -483,6 +500,72 @@ galaxy {
travel_to(number, current_planet)
}
sub starmap(ubyte local) {
ubyte current_planet = planet.number
ubyte px = planet.x
ubyte py = planet.y
uword current_name = planet.name
ubyte pn = 0
uword scaling = 8
if local
scaling = 2
if txt.width() > 60
scaling /= 2
init(number)
txt.clear_screen()
txt.print("Galaxy #")
txt.print_ub(number)
if local
txt.print(" - local systems")
else
txt.print(" - galaxy")
txt.print(" starmap:\n")
ubyte max_distance = 255
if local
max_distance = ship.Max_fuel
do {
generate_next_planet()
ubyte distance = planet.distance(px, py)
if distance <= max_distance {
planet.name = make_current_planet_name()
planet.name[0] |= 32 ; uppercase first letter
uword tx = planet.x
uword ty = planet.y
if local {
tx = tx + 24 - px
ty = ty + 24 - py
}
tx /= scaling
ty /= scaling*2
ubyte sx = lsb(tx)
ubyte sy = lsb(ty)
ubyte char = '*'
if planet.number==current_planet
char = '%'
if local or planet.number==current_planet {
txt.plot(2+sx-2, 2+sy+1)
txt.print(current_name)
if distance {
txt.plot(2+sx-2, 2+sy+2)
util.print_10s(distance)
txt.print(" LY")
}
}
txt.setchr(2+sx, 2+sy, char)
}
pn++
} until pn==0
if txt.width() < 80
txt.plot(0,20)
else
txt.plot(0,36)
travel_to(number, current_planet)
}
ubyte pn_pair1
ubyte pn_pair2
ubyte pn_pair3