Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-06 13:29:00 +00:00
Code Issues Projects Releases Wiki Activity

tweak planet name display in starmap

Browse Source
This commit is contained in:
Irmen de Jong 2024-01-04 21:52:52 +01:00
parent bfd3edb617
commit 8ba5a0d90c
2 changed files with 50 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
examples/textelite.p8
View File

@ -493,7 +493,7 @@ galaxy {
ubyte current_planet = planet.number
ubyte px = planet.x
ubyte py = planet.y
uword current_name = &planet.name
str current_name = " " ; 8 max
ubyte pn = 0
uword scaling = 8
if local
@ -501,6 +501,7 @@ galaxy {
if txt.width() > 60
scaling /= 2
current_name = planet.name
init(number)
txt.clear_screen()
txt.print("Galaxy #")
@ -513,6 +514,10 @@ galaxy {
ubyte max_distance = 255
if local
max_distance = ship.Max_fuel
ubyte home_sx
ubyte home_sy
ubyte home_distance
do {
generate_next_planet()
ubyte distance = planet.distance(px, py)
@ -532,20 +537,21 @@ galaxy {
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")
}
if local {
print_planet_details(planet.name, sx, sy, distance)
} else if planet.number==current_planet {
home_distance = distance
home_sx = sx
home_sy = sy
}
txt.setchr(2+sx, 2+sy, char)
}
pn++
} until pn==0
if not local
print_planet_details(current_name, home_sx, home_sy, home_distance)
if txt.width() < 80
txt.plot(0,20)
else
@ -553,6 +559,16 @@ galaxy {
travel_to(number, current_planet)
sub print_planet_details(str name, ubyte sx, ubyte sy, ubyte d) {
txt.plot(2+sx-2, 2+sy+1)
txt.print(name)
if d!=0 {
txt.plot(2+sx-2, 2+sy+2)
util.print_10s(d)
txt.print(" LY")
}
}
}
ubyte pn_pair1

36
examples/vm/textelite.p8
View File

@ -434,12 +434,12 @@ galaxy {
ubyte current_planet = planet.number
ubyte px = planet.x
ubyte py = planet.y
uword current_name = &planet.name
str current_name = " " ; 8 max
ubyte pn = 0
uword scaling = 2
if local
scaling = 1
current_name = planet.name
init(number)
txt.clear_screen()
txt.print("Galaxy #")
@ -452,6 +452,10 @@ galaxy {
ubyte max_distance = 255
if local
max_distance = ship.Max_fuel
ubyte home_sx
ubyte home_sy
ubyte home_distance
do {
generate_next_planet()
ubyte distance = planet.distance(px, py)
@ -471,14 +475,12 @@ galaxy {
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")
}
if local {
print_planet_details(planet.name, sx, sy, distance)
} else if planet.number==current_planet {
home_distance = distance
home_sx = sx
home_sy = sy
}
txt.setchr(2+sx, 2+sy, char)
}
@ -487,11 +489,23 @@ galaxy {
if local
txt.plot(0, 20)
else
else {
print_planet_details(current_name, home_sx, home_sy, home_distance)
txt.plot(0, 33)
}
txt.nl()
travel_to(number, current_planet)
sub print_planet_details(str name, ubyte sx, ubyte sy, ubyte d) {
txt.plot(2+sx-2, 2+sy+1)
txt.print(name)
if d!=0 {
txt.plot(2+sx-2, 2+sy+2)
util.print_10s(d)
txt.print(" LY")
}
}
}
ubyte pn_pair1