Load "i1.abk"
Load "b1.abk"
Load "m1.abk"
' *************************************
CC#=Chip Free
CC#=CC#/1000000
If CC#>0.8
CHIP=1
Else
CHIP=0
End If
If CHIP=1 Then Load "pic.abk"
'****************************************
Screen Open 1,1000,400,32,Lowres : Flash Off : Curs Off : Cls 0
Flash 12,"(000,10)(111,10)(222,10)(333,10)(444,10)(333,10)(222,10)(111,10)"
Flash 31,"(a00,10)(a11,10)(a22,10)(a33,10)(a44,10)(a33,10)(a22,10)(a11,10)"
Get Icon Palette : A#=0.06 : Make Icon Mask : Hide : LV=4 : RL=90
Music 1
LEV=0 : BS=0
Gosub ILEV
DX=2 : DY=2
Do
If J=0
B=1
If V#>0
V#=V#-V#/150
End If
End If
If Key State(69) Then Inc LV : Gosub DIE
If R=1
If X+7>XX
LL=0
Else
LL=1
End If
If Jup(1) and Y>PP
Y=Y-3
End If
If Jright(1) and P=0 and Abs(X+7-XX)<RL
If LL=0
Y=Y-V#/2
Else
Y=Y+V#/2
End If
Draw X+7,Y To XX,PP
Wait Vbl
Draw X+7,Y To XX,PP
Plot X+7,Y,0
End If
If Jleft(1) and P=0 and Abs(X+7-XX)<RL
If LL=1
Y=Y-V#/2
Else
Y=Y+V#/2
End If
Ink 2,1
Draw X+7,Y To XX,PP
Wait Vbl
Draw X+7,Y To XX,PP
Plot X+7,Y,0
End If
If Jdown(1) and Y>PP
Y=Y+1
Ink 2,1
Draw X+7,Y To XX,PP
Wait Vbl
Draw X+7,Y To XX,PP
Plot X+7,Y,0
End If
If Y<PP-V#*5 or Y-PP>RL or X+7-XX>RL
R=0
End If
End If
If Jup(1) and GROUND=1 Then AIR=40
If AIR>1
If GROUND=0 and Q>5 and Q<11
Y=Y+5 : AIR=1
End If
If AIR>20
Y=Y-3 : Dec AIR
End If
If AIR>10
Y=Y-2 : Dec AIR
End If
If AIR>1
Y=Y-1 : Dec AIR
End If
End If
F=Fire(1)
If F=-1 and R=0 Then Gosub ROPE
If F<>-1 and R=1 Then R=0
If Jright(1) Then X=X+V# : DX=V#*2 : V#=V#+0.05 : B=6
If Jleft(1) Then X=X-V# : DX=-V#*2 : V#=V#+0.05 : B=5
If GROUND=0 Then Add Y,1
If X>975 Then X=975
If X<0 Then X=0
If X>120 and X<766 Then Screen Offset 1,X-120,
If Y>120 and Y<298 Then Screen Offset 1,,Y-120
P=Point(X+7,Y+14)
Q=Point(X+7,Y)
If Y>470 Then Gosub DIE
If P=31 and GG=1 Then Gosub ILEV
If P>0 and P<5
GROUND=1
Else
GROUND=0
End If
If P>5 and P<11
Add X,-DX
End If
If IN=0 and P>13 and P<19 Then Gosub DIE
If AIR>1 Then GROUND=0
If GG=0 and Bob Col(2) Then GG=1 : Bob Off 2 : Flash 31,"(a0f,10)(a0e,10)(a0d,10)(a0c,10)(a0b,10)(a0c,10)(a0d,10)(a0e,10)"
If Bob Col(3) Then Inc LV : Bob Off 3 : Ink 12,0 : T$=Str$(LV) : Text X-50,Y-30,"Extra life! "
Bob 1,X,Y,B
Wait Vbl
Loop
Edit
HIT2:
DY=-DY
V#=V#-V#/10
Return
ROPE:
Ink 2,1 : PP=Y
Gr Writing 2
Repeat
PQ=Point(X+7,PP)
Dec PP
Until PQ>5 and PQ<12 or Y-PP=RL
If PP<0 or Y-PP>RL-1 Then Return
PP=Y
Repeat
Draw X+7,Y To X+7,PP
Draw X+7,Y To X+7,PP
Dec PP
PQ=Point(X+7,PP)
Until PQ>5 and PQ<12 or Y-PP=RL
Plot X+7,Y,0
XX=X+7
If PP>0 and Y-PP<RL Then R=1
Return
DIE:
Fade 1 : GG=0
For C=63 To 0 Step -1
Mvolume C
Wait 1
Next
Boom
Cls 0
Dec LV
Dec LEV
Get Icon Palette
Gosub ILEV
For C=0 To 63
Mvolume C
Wait 2
Next
Return
ILEV:
GG=0
Flash 31,"(a00,10)(a11,10)(a22,10)(a33,10)(a44,10)(a33,10)(a22,10)(a11,10)"
Inc LEV
' ***************** Levpic ********
If CHIP=0
Load Iff "sc1",2
Else
Unpack 10 To 2
End If
' ******************************
Ink 17 : Circle 110+LEV*4,200-LEV*4,2 : Plot 110+LEV*4,200-LEV*4
Ink 15
BEV=LEV
For V=0 To BEV
Plot 110+V*4,200-V*4
Next
Change Mouse 1 : Show : Pen 1 : Paper 0
Repeat
XM=X Screen(X Mouse)
YM=Y Screen(Y Mouse)
M=Point(XM,YM)
If M=0 Then Home : Print " Just empty space "
If M>19 and M<24 Then Home : Print " Grass and stuff "
If M>0 and M<8 Then Home : Print " Hills'n mountains "
If M>7 and M<20 Then Home : Print " Roads'n buildings "
If M>23 and M<28 Then Home : Print " Free freak show "
If M>27 Then Home : Print " Wow! Floweres "
If Jright(1) Then Gosub CODE
Until Fire(1) or Mouse Click
'*********************************
If LEV=16
Plot 10,10,LV
For C=63 To 0 Step -1
Mvolume C
Wait 2
Next
Music Stop
Hide : Run "l2"
End If
Hide : Cls 0
Get Icon Palette
Flash 12,"(000,10)(111,10)(222,10)(333,10)(444,10)(333,10)(222,10)(111,10)"
Gr Writing 1
For C=1 To 20
CC=Rnd(320) : DD=Rnd(180)
Paste Icon CC,DD+20,36
Next
If LV=0 Then Fade 9 : Wait 100 : Cls 0 : Music Stop : Locate 10,10 : Fade 2,$60A,$FA0 : Pen 1 : Rainbow Del : Print " Game over " : Wait 100 : Fade 1,$0,$0 : Screen Close 2 : Screen 1 : Fade 9 : Wait 100 : Screen Close 1 : Show : Run "roper"
Pen 31 : Paper 0
If LEV-1>0 Then Centre "You beat level 1 -" : Print LEV-1
Locate 10,3
If LV=1
Print "You have ",LV," life."
Else
Print "You have ",LV," lives."
End If
Locate 0,5
Centre "Look at level 1 -" : Print LEV
Gr Writing 1
Ink 3,0 : Set Pattern 14 : Bar 0,50 To 319,150
If CC#<0.6 and BS=0 and LEV=10 Then UNR=Rnd(8) : LV=LV+UNR
If LEV=10 and BS=0 and CC#>0.6 Then Locate 0,23 : Centre "Bonus lives ahead please hold on..." : Rainbow Del 1 : DS : For C=156 To 10 Step -1 : Del Bob C : Next : LEV=LEV-1 : BS=1 : Goto ILEV
Screen 1
On LEV Gosub L1,L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13,L14,L15
Screen 2
Get Palette 1
Wait 10
Zoom 1,1,1,980,200 To 2,0,50,320,100
Zoom 1,1,200,980,400 To 2,0,100,320,150
Ink 12 : Box 0,49 To 319,150
Locate 0,23 : Centre " Press fire to start the level. "
Repeat
If Key State(69)
Fade 9
For C=63 To 0 Step -1
Mvolume C
Wait 1
Next
Music Stop
Screen Close 2 : Screen 1 : Fade 9 : Wait 100 : Screen Close 1 : Show : Rainbow Del : Run "roper"
End If
Until Fire(1)
Screen Close 2
Return
L1:
X=21 : Y=21
Screen Offset 1,0,0
Set Rainbow 1,0,160,"(1,0,15)","(1,0,15)","(10,-1,1)"
Rainbow 1,0,50,160
For C=1 To 800 Step 48
I=Rnd(2)
Paste Icon C,170,I+1
Paste Icon C,200,2
Paste Icon C,0,4
Next
For C=1 To 800 Step 64
I=Rnd(2)
Paste Icon C,157,I+7
Next
For CC=0 To 400 Step 400
Paste Icon 120+CC,60,5
Paste Icon 168+CC,60,6
For C=90 To 150 Step 30
Paste Icon 120+CC,C,1
Paste Icon 168+CC,C,1
Next
Next
' ******* Wall"
For C=1 To 300 Step 30
Paste Icon 900,C,20
Next
' ***********
For C=220 To 480 Step 10
Paste Icon C,130,15
Next
Paste Icon 68,100,11
Paste Icon 368,40,14
Paste Icon 668,110,12
For C=100 To 1000 Step 10
Paste Icon C,317,15
Next
For C=1 To 1000 Step 64
I=Rnd(2)
Paste Icon C,377,I+7
Next
Paste Icon 900,357,25
Bob 2,700,23,2
Return
L2:
Rainbow Del 1
Cls 0
Ink 12
Gr Writing 1
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
Plot CC,DD,12
Next
X=21 : Y=21
Screen Offset 1,0,0
For C=1 To 900 Step 64
I=Rnd(2)
Paste Icon C,120,I+7
Next
Paste Icon 220,10,22
Paste Icon 250,80,23
Paste Icon 264,60,24
Paste Icon 164,110,24
Paste Icon 364,10,4
' ******* Wall"
For C=40 To 140 Step 45
Paste Icon 450,C,20
Next
' ***********
Paste Icon 520,36,14
Paste Icon 620,49,18
Paste Icon 692,89,10
For C=732 To 900 Step 10
Paste Icon C,118,15
Next
Paste Icon 702,17,22
Paste Icon 925,159,7
For C=100 To 900 Step 32
Paste Icon C,134,21
Next
For C=0 To 900 Step 32
Paste Icon C,184,21
Next
For C=100 To 1000 Step 32
Paste Icon C,234,21
Next
Paste Icon 920,344,25
Paste Icon 900,374,7
Bob 2,50,50,2
Return
L3:
Set Rainbow 1,0,220,"(16,1,2)","(1,0,1)","(1,0,1)"
Rainbow 1,0,0,220
Cls 0
X=21 : Y=21
Screen Offset 1,0,0
Paste Icon 900,374,7
For C=1 To 900 Step 64
I=Rnd(2)
Paste Icon C,120,I+7
Next
For C=1 To 800 Step 48
Paste Icon C,0,4
Paste Icon C,100,23
Next
' ********** Mountain
N=0
For C=12 To 25
N=N+96
Paste Icon C*48,C*16,6
Paste Icon C*48-N,C*16,5
For CC=C*48-N+80 To C*48-60 Step 32
I=Rnd(2)
Paste Icon CC,C*16,I+1
Next
Next
For C=270 To 600 Step 32
Paste Icon C,234,21
Next
Paste Icon C,234,20
For C=20 To 980 Step 32
Paste Icon C,294,21
Next
Bob 2,350,316,2
' ******************
Paste Icon 520,192,1
Paste Icon 520,183,9
Paste Icon 545,183,9
Paste Icon 545,139,23
Paste Icon 5,263,22
Paste Icon 25,253,22
Paste Icon 75,343,22
Paste Icon 825,237,12
Paste Icon 520,230,25
Return
L4:
Rainbow Del 1
Cls 0 :
Gr Writing 1
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
Plot CC,DD,12
Next
X=21 : Y=21
Screen Offset 1,0,0
For C=50 To 350 Step 100
Paste Icon 120,C,28
Next
For C=50 To 350 Step 100
Paste Icon 82,C+50,28
Next
' ******* Wall"
For C=0 To 300 Step 45
Paste Icon 59,C,20
Next
'********* enmeeeeeee
For C=149 To 880 Step 7
Paste Icon C,80,35
Next
'********* enmeeeeeee
For C=299 To 1000 Step 13
Paste Icon C,170,15
Next
For C=299 To 1000 Step 74
Paste Icon C,80,22
Next
'********* enmeeeeeee <u d>
For C=249 To 370 Step 48
Paste Icon 406,C,23
Next
' ******* Wall
For C=50 To 350 Step 45
Paste Icon 139,C,20
Next
' ***********
Paste Icon 720,360-89,14
Paste Icon 270,360-60,12
Paste Icon 601,360-89,14
Paste Icon 651,360-65,13
Paste Icon 305,360-37,10
Paste Icon 507,360-37,10
Paste Icon 347,360-67,11
Paste Icon 890,360-24,25
Paste Icon 890,360,9
For C=1 To 800 Step 48
I=Rnd(2)
Paste Icon C,346,I+7
Paste Icon C,360,2
Paste Icon C,0,4
Next
Bob 2,250,196,2
Return
L5:
Set Rainbow 1,0,220,"(1,0,2)","(16,1,1)","(7,1,1)"
Rainbow 1,0,0,220
Cls 0
For C=1 To 20
CC=Rnd(830) : DD=Rnd(400)
Paste Icon CC,DD,23
CC=Rnd(1000) : DD=Rnd(400)
Paste Icon CC,DD,17
CC=Rnd(1000) : DD=Rnd(400)
Paste Icon CC,DD,22
Next
X=21 : Y=21
Paste Icon 890,60-24,25
Paste Icon 890,60,9
Screen Offset 1,0,0
Bob 2,850,120,2
Return
L6:
Rainbow Del 1
Cls 0
Gr Writing 1
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
Plot CC,DD,12
Next
X=21 : Y=71
Screen Offset 1,0,0
Get Icon Palette
Paste Icon 900,320,25
Paste Icon 50,20,27
Bob 3,890,70,3
Paste Icon 550,20,28
Flash 31,"(a0f,10)(a0e,10)(a0d,10)(a0c,10)(a0b,10)(a0c,10)(a0d,10)(a0e,10)"
GG=1
For C=1 To 1000 Step 64
I=Rnd(2)
Paste Icon C,346,I+7
Next
Pen 12 : Paper 0 : Locate 10,10 : Print " Bonus Level !!! Stay up high to get the extra guy !!! "
Fade 4,,$2,$4,$6,$8,$800,$700,$600,$500,$400,$300,$200,$100
Return
L7:
Set Rainbow 1,0,220,"(16,1,2)","(1,0,1)","(16,1,1)"
Rainbow 1,0,0,220
Cls 0
' *********** Top
For C=1 To 1000 Step 48
I=Rnd(2)
Paste Icon C,0,I+1
Paste Icon C,30,4
If C<>481 Then Paste Icon C,126,29
Next
' **********
' ******* Wall
For CC=39 To 878 Step 100
For C=20 To 130 Step 45
Paste Icon CC,C,20
Paste Icon CC+70,115,15
Next
Next
' ***********
For CC=240 To 378 Step 30
For C=0 To 1000 Step 45
If C<>450 and CC<>330 Then Paste Icon C,CC,30
Next
Next
X=81 : Y=21
Screen Offset 1,0,0
Paste Icon 840,330,25
Bob 2,710,100,2
Get Icon Palette
Return
L8:
Rainbow Del 1
Cls 0
CC=1
Gr Writing 1 : Ink 12
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
I=Rnd(1)
If I=1 Then Circle CC,DD,1 : Plot CC,DD,12
If I=0 Then Plot CC,DD,12
Next
For C=1 To 1000 Step 48
I=Rnd(2)
Paste Icon C,0,I+1
Paste Icon C,30,4
If C<>857 Then Paste Icon C,96,3
If C<857 Then Paste Icon C,86,29
If C<>1 Then Paste Icon C,166,32
Next
Paste Icon 879,326,25
Paste Bob 869,336,4
X=21 : Y=21
Screen Offset 1,0,0
Bob 2,50,120,2
Return
L9:
Set Rainbow 1,0,220,"(16,1,2)","(16,1,1)","(16,1,1)"
Rainbow 1,0,0,220
Cls 0
X=21 : Y=80
Screen Offset 1,0,0
For C=1 To 30
Paste Icon C*23,10,26
Paste Icon C*25,C*10+20,33
Paste Icon C*25,C*10+120,33
Next
Paste Icon C*25+25,C*10-20,27
Paste Icon 850,128,12
Paste Bob 850,185,4
Paste Icon 750,85,11
Paste Bob 750,145,4
Bob 2,850,120,2
Paste Icon 225,30,25
Return
Procedure DS
Shared LV
' 5 is the starting point
Screen Open 0,320,200,32,Lowres : Screen To Front 2 : Flash Off
Curs Off : Get Bob Palette
Cls 0
Bob 3,0,0,3
For C=10 To 100
Zoom 0,0,0,30,30 To 0,100,100,C+100,C+100
Get Bob 0,C+1,100,100 To C+100,C+100
If C=50 Then Screen 2 : Locate 0,23 : Print " Use the mouse to shoot at the 1 ups. " : Screen 0
If C=75 Then Screen 2 : Locate 0,23 : Print "The smaller the target the more lives " : Screen 0
If C=87 Then Screen 2 : Locate 0,23 : Print " You get! Good luck!! " : Screen 0
Next
US:
Screen Close 0
Change Mouse 2 : Show
XX=120 : YY=120
Z=45 : Paper 0
X=120 : Y=134
X2=20 : Y2=4
Screen 2
Double Buffer
Do
If IZ=1
Inc Z
Else
Dec Z
End If
If IX=1
X=X+2
Else
X=X-2
End If
If IY=1
Y=Y+2
Else
Y=Y-2
End If
XX=X Screen(X Mouse) : YY=Y Screen(Y Mouse)
If Point(XX,YY)>13 and Point(XX,YY)<31 and Mouse Click
Fade 1,$FFF : Wait 10 : Fade 1,$0 : Bob Off 1 : Bob Off 2 : Hide : LV=LV+(100-Z)/10
Pop Proc
End If
If Z>99 Then IZ=0
If Z<11 Then IZ=1
If X>350 Then IX=0
If X<0 Then IX=1
If Y>200 Then IY=0
If Y<0 Then IY=1
R=Rnd(1) : S=Rnd(1)
Bob 4,X,Y,Z+1
Bob 5,Y+S,X+R,Z+1
Wait Vbl
Loop
End Proc
Return
L10:
Rainbow Del 1
Cls 0
Gr Writing 1 : Ink 12
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
I=Rnd(1)
If I=1 Then Circle CC,DD,1 : Plot CC,DD,12
If I=0 Then Plot CC,DD,12
Next
X=21 : Y=21
Screen Offset 1,0,0
Paste Icon 89,2,4
Paste Icon 189,2,4
For C=50 To 350 Step 160
Paste Icon 120,C,28
Next
For C=50 To 350 Step 160
Paste Icon 82,C+80,28
Next
' ******* Wall"
For C=0 To 300 Step 45
Paste Icon 59,C,20
Next
Paste Icon 712,85,10
Paste Icon 763,47,18
Paste Icon 823,56,12
Paste Icon 843,55,11
' ******* Wall"
For C=50 To 380 Step 45
Paste Icon 139,C,20
Next
For C=170 To 880 Step 45
If C>700
Paste Icon C,110,29
Else
Paste Icon C,100,23
End If
Next
N=0
For C=12 To 25
N=N+96
Paste Icon C*48,C*16,6
Paste Icon C*48-N,C*16,5
For CC=C*48-N+80 To C*48-60 Step 32
I=Rnd(2)
Paste Icon CC,C*16,I+1
Next
Next
Paste Icon 520,192,1
Paste Icon 520,183,9
Paste Icon 545,183,9
For C=300 To 800 Step 32
Paste Icon C,339,21
Next
Ink 0
Bar 800,220 To 850,376
Paste Icon 800,364,8
Paste Icon 300,339,25
Bob 2,250,260,2
Return
L11:
Cls 0
Set Rainbow 1,0,220,"(16,0,2)","(16,0,1)","(16,1,1)"
Rainbow 1,0,0,220
X=21 : Y=21
Screen Offset 1,0,0
For C=1 To 20
CC=Rnd(830) : DD=Rnd(400)
Paste Icon CC,DD,33
CC=Rnd(1000) : DD=Rnd(400)
Paste Icon CC,DD,28
CC=Rnd(830) : DD=Rnd(400)
Paste Icon CC,DD,34
Next
X=21 : Y=21
Paste Bob 1,31,4
Paste Icon 890,60-24,25
Paste Icon 890,60,9
Bob 2,550,260,2
Return
L12:
Cls 0
Rainbow Del 1
Gr Writing 1 : Ink 12
Paste Icon 569,105,14
Paste Icon 669,195,13
Paste Icon 400,0,22
Paste Bob 838,78,4
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
I=Rnd(1)
If I=1 Then Circle CC,DD,1 : Plot CC,DD,12
If I=0 Then Plot CC,DD,12
Next
For C=0 To 300 Step 45
Paste Icon 59,C,20
Next
N=0
For C=12 To 25
N=N+96
For CC=C*48-N+80 To C*48-60 Step 32
Paste Icon CC,C*15,29
Next
Next
For C=40 To 100 Step 12
Paste Icon 120,C,33
Next
X=21 : Y=21
Screen Offset 1,0,0
Bob 2,89,60,2
Paste Icon 519,349,25
Return
L13:
Cls 0
Set Rainbow 1,0,220,"(16,1,2)","(16,-1,1)","(16,1,1)"
Rainbow 1,0,0,220
N=0
For C=12 To 25
N=N+96
For CC=C*48-N+80 To C*48-60 Step 128
Paste Icon CC,C*13,27
Next
Next
For C=1 To 1000 Step 64
I=Rnd(2)
Paste Icon C,377,I+7
Next
Paste Icon 519,39,25
Paste Icon 619,39,22
Paste Bob 519,109,4
Bob 2,900,42,2
Paste Icon 900,56,34
X=21 : Y=321
Screen Offset 1,0,180
Return
L14:
Cls 0
Rainbow Del 1
Gr Writing 1 : Ink 12
For C=1 To 100
CC=Rnd(1000) : DD=Rnd(400)
I=Rnd(1)
If I=1 Then Circle CC,DD,1 : Plot CC,DD,12
If I=0 Then Plot CC,DD,12
Next
For C=1 To 20
CC=Rnd(900) : DD=Rnd(200)
Paste Icon CC,DD+200,28
Next
For C=0 To 90 Step 45
Paste Icon 49,C,20
Next
' hilllllllllllllllll
N=900
Paste Icon 357,90,10
Paste Icon 454,25,14
For C=12 To 25
N=N+96
For CC=C*48-N+80 To C*48-60 Step 84
Paste Icon CC,C*9,29
Next
Next
Paste Icon 226,70,32
Paste Icon 826,350,25
Ink 0 : Bar 0,170 To 50,270
Paste Icon 726,5,27
Paste Icon 814,115,12
Bob 2,900,2,2
X=21 : Y=21
Screen Offset 1,0,0
Return
L15:
CF=1
Cls 0
Set Rainbow 1,0,220,"(8,1,15)(8,-1,15)","",""
Rainbow 1,0,0,220
X=21 : Y=21
Screen Offset 1,0,0
For C=1 To 50
CC=Rnd(900) : DD=Rnd(400)
Paste Icon CC,DD,27
CC=Rnd(900) : DD=Rnd(400)
Paste Icon CC,DD,19
CC=Rnd(900) : DD=Rnd(400)
Paste Icon CC+100,DD,33
Next
Paste Icon 900,357,25
Bob 2,700,23,2
Return
CODE:
Fade 1,$FFF : Wait 10 : Fade 1,$0 : Wait 10
Wind Open 1,10,10,20,20,1 : Border 2,0,11 : Curs Off
Reserve Zone 5
Locate 5,3 : Print Border$(Zone$("Lives",1),2)
Locate 3,7 : Print Border$(Zone$("Invincibility",2),2)
Locate 6,11 : Print Border$(Zone$("Level",3),2)
Locate 6,15 : Print Border$(Zone$("Rope",4),2)
Set Zone 5,12,12 To 22,22
Ink 3 : Box 10,12 To 20,22
Ink 4 : Box 12,14 To 18,20
Paper 0
RR=Rnd(33)
Ink 2,5 : Set Pattern RR : Paint 23,23
Do
M=Mouse Zone
If Mouse Key and M<>0
On M Gosub Z1,Z2,Z3,Z4
End If
If Mouse Key and M=5
Wind Close
Return
End If
Loop
Z1:
Wind Save
Paper 0
Wind Open 2,10,10,38,3,1 : Border 2,0,22
Title Top "Input lives"
Input LV
Wind Close
Locate 14,3 : Print LV
Return
Z2:
If IN=0
Paper 4 : Locate 3,7 : Print Border$(Zone$("Invincibility",2),2) : IN=1 : Wait 10
Else
Paper 0 : Locate 3,7 : Print Border$(Zone$("Invincibility",2),2) : IN=0 : Wait 10
End If
Return
Z3:
Wind Save
Paper 0
Wind Open 2,10,10,38,3,1 : Border 2,0,22
Title Top "Input level"
Input LEV
If LEV>15 Then LEV=15
Wind Close
Locate 14,11 : Print LEV
Return
Z4:
Wind Save
Paper 0
Wind Open 2,10,10,38,3,1 : Border 2,0,12
Title Top "Input rope length"
Input RL
Wind Close
Locate 14,15 : Print RL
Return