Note still contains some minor bugs and syntax errors. Still like 1/15 of the entire code
ClrHome
ClrDraw
AxesOff
GridOff
ZStandard
CoordOff
RecallPic 1
0üK
While not(sum({11,13,15}=K))
getKeyüK
End
If K=13
Then
Goto QQ
End
Lbl QQ
Stop
End
If K=11
Then
Goto AA
End
Lbl AA
ClrDraw
Lbl I1
RecallPic 2
ClrDraw
Text(10,12,"December 1st,
Text(22,12,"it has been 3 days since
Text(28,12,"we first set sail to the
Text(34,12,"Mysterious islands I
Text(40,12,"discovered recently...
0üK
While not(sum({25,34,105}=K))
getKeyüK
End
If K=34
Then
Lbl I2
ClrDraw
RecallPic 2
Text(10,12,"on the maps of Ulgasz the
Text(16,12,"wise.
Text(22,12,"Altough excited about what
Text(28,12,"treasure i might find,
Text(34,12,"i still sense evil close.
Text(40,12,"Sir John William
End
If K=25
Then
Goto I1
End
If K=105
Then
Goto I3
End
Lbl I3
ClrDraw
Vertical ú10
Vertical 10
Horizontal ú10
Horizontal 10
text(0,1,"Crewmember:
Text(6,1,"Captain! our ship is under attack!
Pause
Text(18,1,"You;
Text(24,1,"prepare the cannons!
Pause
Text(34,1,"Crewmember:
Text(40,1,"cannons are loaded sir!
Pause
Menu("Fighting Mode","Fire the cannons",I4,"hold fire",I5,"Abandon the ship",I6
End
Lbl I4
ClrDraw
Text(-1,0,1,"Kaboooom!
Pause
Text(12,1,"The air became thick of the smoke
Text(18,1,"We could not see whether we had
Text(24,1,"hit the pirates or not...
Pause
Text(36,1,"Then suddenly they were there.
Text(42,1,"i managed to escape with some
Text(48,1,"others but many of us died.
Pause
Goto A
End
Lbl I5
ClrDraw
Pause
Text(6,1,"The pirates came from all sides
Text(12,1,"many of us were killed
Text(18,1,"in the heat of battle i fled
Pause
Text(30,1,"on a pile of rubble some
Text(36,1,"of us escaped.
Text(42,1,"but many of us died.
Pause
Goto A
End
Lbl I6
ClrDraw
Pause
Text(6,1,"We abandoned the ship
Text(12,1,"yet the pirates were too
Text(18,1,"close. They fired...
Pause
Text(30,1,"on a pile of rubble some
Text(36,1,"of us escaped.
Text(42,1,"but many of us died.
Pause
Goto A
End
Matthias1992