|
|
Post by Carl on Nov 1, 2013 18:50:31 GMT
Advanced Lawnmower Simulator (or ALS) was quite simply the best game to appear on the Spectrum. It was written by (at the time) well-known Your Sinclair writer Duncan MacDonald. In April 1990, it was reviewed in YS and was promptly awarded a YS 'Megagame'. The following month, it was 'featured' on the Covertape. Yes, you've guessed it - the whole thing was an elaborate April Fool's joke. I have converted the game to FIGnition, it plays well, and has sound FX also. load the files in one go by typing n(1st block) n(finalblock) loads the second block is hex, so observe the hex value of nn loading on your screen. 'run' to run the game. This game plays better on the figgypad, the keyboard is a little slower. there is a video of it here . A copy of the original review in YS is here ftp.worldofspectrum.org/pub/sinclair/magazines/YourSinclair/Issue28/Pages/YourSinclair2800090.jpgfiles from here
 |
|
|
|
Post by Carl on Nov 30, 2013 14:21:42 GMT
( lawn mower sim)
: aud 64 191 42 >port> drop ;
: beep
0 69 ic!
0 110 ic!
66 68 ic!
71 ic!
7 and 69 ic! ;
0 var seed
: seedon seed @ 75 u* 75 0
d+ over over u< - -
dup seed ! ;
: winbeep
20 150 beep 10 pause
20 100 beep 10 pause
0 0 beep ;
: diebeep
20 100 beep 10 pause
20 150 beep 10 pause
0 0 beep ;
: rnd seedon u* swap drop ;
: wait 500 pause ;
( udg)
hex
create udgs
0000 ,
0003 ,
C4C8 ,
F8F8 ,
1C1C ,
0CFC ,
040C ,
1212 ,
FFFF ,
FFFF ,
FFFF ,
FFFF ,
0103 ,
070F ,
1F3F ,
7FFF ,
80C0 ,
E0F0 ,
F8FC ,
FEFF ,
0000 ,
0000 ,
183C ,
7EFF ,
55AA ,
AAAA ,
AAAA ,
AAAA ,
decimal
udgs vram
616 + 80 cmove
: emits
0 do dup emit
loop drop ;
: ground
0 10 at 8 325 emits ;
: sun
21 2 at> 29 swap ic! ;
: house
12 5 at> 7 swap ic!
11 6 at> 5 swap ic!
12 6 at> 4 swap ic!
13 6 at> 6 swap ic!
10 7 at> 5 swap ic!
12 7 at> 4 swap ic!
14 7 at> 6 swap ic!
10 8 at> 4 swap ic!
11 8 at> 4 swap ic!
12 8 at> 4 swap ic!
13 8 at> 4 swap ic!
14 8 at> 4 swap ic!
10 9 at> 4 swap ic!
11 9 at> 4 swap ic!
13 9 at> 4 swap ic!
14 9 at> 4 swap ic! ;
573 var man
: char
2 vram man @ + ic!
3 vram man @ 1 + + ic! ;
: trail
25 vram man @ 2 + + ic! ;
: dokey
char
begin 1 100 beep
1 pause
0 0 beep
inkey dup 109 =
if man @ 1 - man !
char
trail
1 pause
then ;
: #1
cls
." WELL DONE.YOU'VE EARNED" cr ." YOURSELF A CORNED BEEF" cr ." SANDWICH!" ;
: #2
cls
." A BIT OF A SHODDY" cr ." JOB,THAT.DO IT AGAIN" ;
: #3
cls
." YOU'VE BROKEN THE MOWER YOU STUPID LITTLE GIT,"
cr ." GO AWAY AND DON'T DARKEN MY DOOR AGAIN" ;
: #4
cls
." TEA & CAKES FOR YOU MATEY"
cr ." THAT WAS A SUPER BIT OF GRASSWORK.IN FACT HERE'S A TENNER" ;
: #5
cls
." MOWER TESTER CHUCK SAYS 'OH OH! YOU SURE BOUGHT THE LAWN THAT TIME!"
cr ." I DON'T KNOW YOU!" ;
: #6
cls
." CALL THAT A MOW-JOB"
cr ." (oo-er)?"
cr ." I COULD DO BETTER WITH MY GRANNY'S NAIL CLIPPERS!" ;
: #7
cls
." WORRA CUT! VIDAL SASSOON'S NOT A PATCH ON YOUR GOOD SELF I'D SAY!" ;
: #8
cls
." THATS A BIT OF AN ERRATICCUT.HELEN KELLER COULD HAVE DONE BETTER" ;
: #9
cls
." GREAT.SMASHING.SUPER. BENDY BULLIES ALL ROUND. LOVLEY.SMASHING." ;
: #11 ." CAMPARI GRASS MASTER" ;
: #12 ." DAF TURBOMATIC" ;
: #13 ." ACME MEGA-CUT 3000" ;
: #14 ." ACME LAWN-ACE" ;
: #15 ." FLYMO GRASSCHUM" ;
: #16 ." PATIO SPRINTETTE" ;
: #17 cls
." I'M SORRY,I'M AFRAID THE" cr ;
: #18 cr ." IS BROKEN AT THE MOMENT" ;
: #19 cls
." THE PATIO SPRINTETTE IS WORKING WELL"
cr cr
." Pressing 'm' engages the motor" cr cr
." Releasing 'm' dissengages it." cr cr ;
: #21
cls
." **LAWN MOWER SIMULATOR**" cr cr ;
: #22 ." This is a powerful and accurate lawn mowing simulation" cr cr ;
: #23 ." Choose from several" cr ." different machines" cr cr ;
: #25 cr ." and go get that grass"
cr cr cr
$4FB $5D i! quit ;
: #26 ." YOU HAVE BEEN KILLED" ;
: run
#21 #22 #23
." type..." cr
." m1 " #11 cr
." m2 " #12 cr
." m3 " #13 cr
." m4 " #14 cr
." m5 " #15 cr
." m6 " #16 cr
#25 ;
: m1 #17 #11 #18 100 pause run ;
: m2 #17 #12 #18 100 pause run ;
: m3 #17 #13 #18 100 pause run ;
: m4 #17 #14 #18 100 pause run ;
: m5 #17 #15 #18 100 pause run ;
: m6 #19 cr cr ." Type 'mow' to go!"
cr cr cr ;
: win
7 12 at ." Well Mown"
winbeep
100 pause
8 rnd 8 rnd
dup dup dup
dup dup dup
dup
0 = if #1 wait run then
1 = if #2 wait run then
2 = if #3 wait run then
3 = if #4 wait run then
4 = if #5 wait run then
5 = if #6 wait run then
6 = if #7 wait run then
7 = if #8 wait run then
8 = if #9 wait run then ;
: end? die?
man @ 250 = if win then ;
: mow
573 man ! aud cls
ground sun house
begin dokey char
end 99 = until ;
|
|
