cool game with source code 0.o

[oompa loompa]

can everyone see the tab indents?


' Hamurabi for Basiegaxorz
' Make sure to use compiler v0.26 beta!
begining:
disable screen
cls
ink 1
setscrollmode HSCROLL_OVERALL,VSCROLL_OVERALL
scroll2 RIGHT,240
print
print "            ############              ";
print "             # HAMURABI #             ";
print "              ############            ";
enable screen
for a=1 to 240
if joypad()=0 then
sleep 1,TVBLANK
else
sleep2 100
endif
scroll LEFT,1
next
print
print "              THE  GREAT              ";
print
ink 2
print "Press A Button"
waitpadup 0
do while joypad()=0
sleep2 113
randomize timer
loop
waitpadup 0
disable screen
cls
scroll2 DOWN,224
ink 1
print "YOU ARE THE RULER OF THE ANCIENT"
print "KINGDOM OF SUMERIA. YOUR PEOPLE CALL"
print "YOU 'HAMURABI TEH WISE'. YOUR TASK IS"
print "TO DEVELOP A STABLE ECONOMY BY THE"
print "WISE MANAGEMENT OF YOUR RESOURCES."
print "YOU WILL BE BESET FROM TIME TO TIME"
print "BY NATURAL EVENTS. THE ONLY HELP I"
print "CAN GIVE YOU IS THE FACT THAT IT"
print "TAKES 2 BUSHELS OF GRAIN AS SEED TO"
print "PLANT AN ACRE. MAY YOU JUDGE WELL,"
print "ALKNOWING HAMURABI."
print
ink 2
print "Press A Button"
enable screen
for a=1 to 224+64
if joypad()=0 then
sleep 5,TVBLANK
else
sleep2 100
endif
scroll UP,1
next
waitpadup 0
do while joypad()=0
sleep2 113
randomize rnd(65535)
loop
waitpadup 0
cls
for a=1 to 27
sleep 2,TVBLANK
print "********** HAMURABI IS HERE **********";
next
cls

population=95 ' P=POPULATION
storage=2800 ' S=BUSHELS IN STORAGE
harvested=3000 ' H=TOTAL NUMBER OF BUSHELS HARVESTED
destroyed=harvested-storage ' E=BUSHELS DESTROYED BY RATS
bpa=3 ' Y=BUSHELS HARVESTED PER ACRE
acres=harvested/bpa ' A=ACRES OF LAND OWNED
movers=5 ' I=PEOPLE MOVING IN
disaster=1 ' Q=DISASTER NUMBER, 0=PLAUGE, >0=NOTHING
starved=0 ' D=PEOPLE STARVED

gameloop:
cls
ink 3
print "--STATUS--"
print "LAST YEAR:"
print "   ";: ink 0: print starved;: ink 3: print " PEOPLE STARVED"
print "   ";: ink 0: print movers;: ink 3: print " CAME TO THE CITY"
population=population+movers
if disaster=0 then
population=population>>1
print "   HALF DIED OF THE PLAGUE"
endif
print
print "POPULATION IS NOW ";:ink 0: print population
ink 3: print "CITY OWNS ";: ink 0: print acres;: ink 3: print " ACRES"
ink 0: print bpa;: ink 3: print " BUSHELS HARVESTED PER ACRE"
print "RATS DESTROYED ";: ink 0: print destroyed;: ink 3: print " BUSHELS"
ink 0: print storage;: ink 3: print " BUSHELS ARE IN STORE"

print
print "DO YOU WISH TO ABDICATE? ";
a=0:j=0
x=posx():y=posy()
print "NO"
waitpadup 0
do
sleep 1
j=joypad()
if j.0 [or] j.1 then
' JOYPAD UP/DOWN
a=1-a
locate y,x
if a=0 then print "NO " else print "YES"
sleep 30
endif
loop while j<16
if a=1 then
print:print
print "   YOU HAVE FAILED YOU PEOPLE"
waitpadup 0
do while joypad()=0
sleep 1
loop
goto begining
endif

c=rnd(9)
bpa=c+17
print
print "LAND COST ";bpa;" BUSHELS PER ACRE"
waitpadup 0
input "BUY? ";disaster
do until bpa*disaster<storage
gosub status
input "BUY? ";disaster
loop

if disaster<>0 then
acres=acres+disaster
storage=storage-(bpa*disaster)
c=0
goto skipsell
endif

waitpadup 0
input "SELL? ";disaster
do until disaster<acres
gosub status
input "SELL? ";disaster
loop

acres=acres-disaster
storage=storage+(bpa*disaster)
c=0

skipsell:
waitpadup 0
input "BUSHELS FOR FOOD? ";disaster
do until disaster<=storage
gosub status
input "BUSHELS FOR FOOD? ";disaster
loop

storage=storage-disaster
c=1

redoplant:
waitpadup 0
input "ACRES TO PLANT? ";a
do until a<acres [or] a>>1<storage
gosub status
input "ACRES TO PLANT? ";a
loop
if a>=10*population then goto redoplant
storage=storage-(a>>1)
c=rnd(4)+1
bpa=c
harvested=a*bpa
destroyed=0
c=rnd(4)+1
if c.0=0 then destroyed=storage/c
storage=storage-destroyed+harvested
c=rnd(4)+1
movers=((20*acres+storage)*c/population)/100+1
c=disaster/20
disaster=rnd(1)
if population<c then
starved=0
else
starved=population-c
population=c
endif
goto gameloop

status:
print "THINK AGAIN, YOU HAVE:"
print "   ";: ink 0: print acres;: ink 3: print " ACRES"
print "   ";: ink 0: print population;: ink 3: print " PEOPLE"
print "   ";: ink 0: print storage;: ink 3: print " BUSHELS"
return


[Tulio Adriano]

This is the return:


PRIVATE ALLOCATION:  LA 1D90000 - 1370 Bytes - handle 1731400
Leave loader...Exit loader
[Enter loader...In loader]
PRIVATE ALLOCATION:  LA 1DA0000 - 270 Bytes - handle 1731420
PRIVATE ALLOCATION:  LA 1DB0000 - 52BB0 Bytes - handle 1731440
(allocated 338855 bytes for fixup info)
PRIVATE ALLOCATION:  LA 1E10000 - 42000 Bytes - handle 1731460
PRIVATE ALLOCATION:  LA 1E60000 - B50 Bytes - handle 1731480
PRIVATE ALLOCATION:  LA 1E70000 - 20000 Bytes - handle 17314A0
LINEXE: Using DOS:Extended Startup Conditions...
Leave loader...Exit loader
Executing C:\WORKS\COISAS\BASIEG~1\SNASM68K.EXE with initial registers:
TSF32: prev_tsf32    0
SS       30F DS       30F ES       18F FS         0 GS       17F
EAX        0 EBX        0 ECX        0 EDX        0
ESI      307 EDI        0 EBP        0 ESP  1E8FBD0
CS:IP  307:01E48E2C ID 00 COD  60A2798 FLG      200
CS=  307, USE32, page granular, limit 7FFEFFFF, base        0, acc C7FB
DS=  30F, USE32, page granular, limit 7FFEFFFF, base        0, acc C7F2
ES=  18F, USE16, byte granular, limit      100, base     7210, acc F3
SS=  30F, USE32, page granular, limit 7FFEFFFF, base        0, acc C7F2
SNASM68K, version 2.1D, Dec 06 1995, 11:55:16, DOS4G PRO
(c) 1993-95 Cross Products Ltd. All Rights Reserved
move.w (__INTEGER_population>),d0

basic.s(353) : Error 06021 : Bad expression <>
basic.s(353) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_j<),d0

basic.s(528) : Error 06021 : Bad expression <>
basic.s(528) : Error 24023 : Expected ',' and destination operand <>
mulu (__INTEGER_disaster<),d0

basic.s(611) : Error 06021 : Bad expression <>
basic.s(611) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_disaster<>0),d0

basic.s(629) : Error 06021 : Bad expression <>
basic.s(629) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_disaster<),d0

basic.s(667) : Error 06021 : Bad expression <>
basic.s(667) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_disaster<),d0

basic.s(717) : Error 06021 : Bad expression <>
basic.s(717) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_a<),d0

basic.s(758) : Error 06021 : Bad expression <>
basic.s(758) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_a>),d0

basic.s(776) : Error 06021 : Bad expression <>
basic.s(776) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_a>>1),d0

basic.s(790) : Error 06021 : Bad expression <>
basic.s(790) : Error 24023 : Expected ',' and destination operand <>
move.w (__INTEGER_population<c),d0

basic.s(896) : Error 06021 : Bad expression <>
basic.s(896) : Error 24023 : Expected ',' and destination operand <>
__INTEGER_POPULATION> EQU $FF0042

basic.s(990) : Error 11019 : Label __INTEGER_POPULATION already defined at basic.s[267]
basic.s(990) : Error 22001 : Mnemonic '&' is not known
__INTEGER_J< EQU $FF004A

basic.s(994) : Error 11019 : Label __INTEGER_J already defined at basic.s[450]
basic.s(994) : Error 22001 : Mnemonic '&' is not known
__INTEGER_DISASTER< EQU $FF004E

basic.s(996) : Error 11019 : Label __INTEGER_DISASTER already defined at basic.s[286]
basic.s(996) : Error 22001 : Mnemonic '&' is not known
__INTEGER_DISASTER<>0 EQU $FF0050

basic.s(997) : Error 11019 : Label __INTEGER_DISASTER already defined at basic.s[286]
basic.s(997) : Error 22001 : Mnemonic '&' is not known
__INTEGER_A< EQU $FF0052

basic.s(998) : Error 11019 : Label __INTEGER_A already defined at basic.s[40]
basic.s(998) : Error 22001 : Mnemonic '&' is not known
Assembly terminated - too many errors
DOS/4GW Professional deinitializing
... deinitializing LINEXE_LOADER
[Enter loader...In loader]
DEINIT : Freeing SNASM68K
FREE MODULE 0 SNASM68K
LINEXE DEALLOCATION: LA 1E10000
FREE_MEM: handle 1731460
LINEXE DEALLOCATION: LA 1E70000
FREE_MEM: handle 17314A0
LINEXE DEALLOCATION: LA 1DB0000
FREE_MEM: handle 1731440
LINEXE DEALLOCATION: LA 1DA0000
FREE_MEM: handle 1731420
LINEXE DEALLOCATION: LA 1E60000
Leave loader...Exit loader
... deinitializing D32_INT31
... deinitializing int31 package


[oompa loompa]

i don't get it =o, what version of basiegaxorz are you using to compile this? it works perfectly on my compiler, and i've tried it, and even modified it to work with v0.26 beta

[Tom Maneiro]

also works there...

[JDTAY]

Could you just upload the rom? I'm too lazy to compile. I don't even have version 0.26, because I don't trust betas.

[JDTAY]

nm, I ended up compiling it myself. You should respond sooner next time so I can continue being lazy.

[oompa loompa]

believe me, use the beta version =P, it is more stable than v0.19

its really not like a beta, i just felt like calling it that

[ScroGer]

Cool game oompa loompa I really enjoyed it ;D

I look forword to playing more of you're great game's ;D

Peace