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

textelite

Browse Source
This commit is contained in:
Irmen de Jong 2020-10-11 18:19:09 +02:00
parent b759d5e06a
commit 4cd5e8c378
1 changed files with 43 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
examples/textelite.p8
View File

@ -57,15 +57,24 @@ main {
} }
trader { trader {
str input = "????????" str input = "??????????"
ubyte num_chars ubyte num_chars
sub do_jump() { sub do_jump() {
txt.print("\nTODO JUMP\n") ; TODO txt.print("\nJump to what system? ")
jump_to_system()
} }
sub do_teleport() { sub do_teleport() {
txt.print("\nTODO TELEPORT\n") ; TODO ubyte fuel = ship.fuel
txt.print("\nCheat! Teleport to what system? ")
jump_to_system()
ship.fuel = fuel
}
sub jump_to_system() {
void txt.input_chars(input)
txt.print("TODO JUMP\n") ; TODO
} }
sub do_buy() { sub do_buy() {
@ -79,8 +88,17 @@ trader {
sub do_fuel() { sub do_fuel() {
txt.print("\nBuy fuel. Amount? ") txt.print("\nBuy fuel. Amount? ")
void txt.input_chars(input) void txt.input_chars(input)
ubyte buy_fuel = lsb(conv.str2uword(input)) ubyte buy_fuel = 10*lsb(conv.str2uword(input))
txt.print("TODO\n") ; TODO PURCHASE FUEL ubyte max_fuel = ship.Max_fuel - ship.fuel
if buy_fuel > max_fuel
buy_fuel = max_fuel
uword price = buy_fuel as uword * ship.Fuel_cost
if price > ship.cash {
txt.print("Not enough cash!\n")
} else {
ship.cash -= price
ship.fuel += buy_fuel
}
} }
sub do_cash() { sub do_cash() {
@ -90,7 +108,9 @@ trader {
} }
sub do_hold() { sub do_hold() {
txt.print("\nCheat! TODO adjust cargo hold size\n") ; TODO txt.print("\nCheat! Set cargohold size: ")
void txt.input_chars(input)
ship.Max_cargo = lsb(conv.str2uword(input))
} }
sub do_next_galaxy() { sub do_next_galaxy() {
@ -117,22 +137,29 @@ trader {
market.display() market.display()
txt.print("\nFuel: ") txt.print("\nFuel: ")
util.print_10s(ship.fuel) util.print_10s(ship.fuel)
txt.print(" Holdspace: ") txt.print(" Cargohold space: ")
txt.print_uw(ship.holdspace()) txt.print_ub(ship.cargo_free())
txt.print("t\n") txt.print("t\n")
} }
} }
ship { ship {
const uword Max_fuel = 70 const ubyte Max_fuel = 70
const ubyte Fuel_cost = 2
ubyte Max_cargo = 20
ubyte fuel = Max_fuel ubyte fuel = Max_fuel
uword cash = 1000 ; actually has to be 4 bytes for the ultra rich. uword cash = 1000 ; actually has to be 4 bytes for the ultra rich....
ubyte[17] cargohold = 0 ubyte[17] cargohold = 0
sub holdspace() -> ubyte { sub cargo_free() -> ubyte {
; TODO calculate total tonnes in cargohold ubyte ci
return 99 ubyte total = 0
for ci in 0 to len(cargohold)-1 {
if market.units[ci]==0 ; tonnes only
total += cargohold[ci]
}
return Max_cargo - total
} }
} }
@ -181,7 +208,9 @@ market {
sub display() { sub display() {
ubyte ci ubyte ci
txt.print(" COMMODITY / PRICE / AVAIL / IN HOLD\n") txt.chrout('\n')
planet.print_name_uppercase()
txt.print(" trade market:\n COMMODITY / PRICE / AVAIL / IN HOLD\n")
for ci in 0 to len(names)-1 { for ci in 0 to len(names)-1 {
util.print_right(13, names[ci]) util.print_right(13, names[ci])
txt.print(" ") txt.print(" ")