Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
660 lines (657 sloc) 22.4 KB
Dir$="May&Yam2:"
Dim a(4) : Dim xx(4)
init:
Load "sprites/Init.abk"
Unpack 9 To 0 : Hide
Bob 1,122,203,1
aa$="Anim 0,(1,4)(2,4)(3,4)(4,4)(5,4)(6,4)(7,4)(8,4)(9,4)(10,4)"
r$="(1,1,15)(1,0,15)(1,-1,15)(1,0,15)(1,0,15)(1,1,15)(1,0,15)"
g$="(1,0,15)(1,1,15)(1,0,15)(1,0,15)(1,-1,15)(1,0,15)(1,0,15)"
bb$="(1,0,15)(1,0,15)(1,0,15)(1,1,15)(1,0,15)(1,0,15)(1,-1,15)"
Set Rainbow 0,15,210,r$,g$,bb$
Rainbow 0,0,40,210
Channel 1 To Bob 1 : Amal 1,aa$ : Amal On 1 : plrs=1
Mvolume 63 : Music 1 : ranb=0 : password$="NADA"
Wind Open 1,240,160,8,4,1
Window 1 : Pen 24 : Shade On
Repeat
If Jright(1) Then Bob 1,166,203, : plrs=2
If Jleft(1) Then Bob 1,122,203, : plrs=1
If Jup(1)
Bob 1,265,120, : plrs=0
End If
If plrs=0
If Fire(1)
Input "";password$
End If
End If
Inc ranb
Rainbow 0,ranb,40,210
If ranb>209 : ranb=0 : End If
Wait Vbl
Until Fire(1) and plrs<>0
Fade 10
For i=63 To 0 Step -1
Mvolume i
Wait 5
Next i
Music Off : Wind Close
Rainbow Del 0
password$=Upper$(password$)
level=0 : a=65 : x1=0 : y1=17 : k1=1 : c1=1 : re=-1 : lapiz=8 : Amreg(5)=88
world=1 : word=0 : fruits=18 : nf=18 : m1=101 : m2=102 : m3=103 : p1=5 : p2=5
score1=0 : score2=0 : ran=0 : ranb=0 : Amreg(2)=0 : Amreg(3)=0 : cheat=0
If plrs=1 Then p2=0
If password$="MAYAM" Then cheat=1
If password$="KUKI" Then world=4 : word=3 : m1=110 : m2=111 : m3=112
If password$="FIDE" Then world=7 : word=6 : m1=119 : m2=120 : m3=121 : cheat=1
If password$="KUKIRUKI" Then world=4 : word=3 : m1=110 : m2=111 : m3=112 : cheat=1
Screen Open 2,640,16,2,Hires
Curs Off : Flash Off : Hide : Paper 0 : Pen 1 : Cls 0
Colour 1,$fff
Screen Display 2,140,40,640,16
Home : Print "P1";score1 : Locate 65,0 : Print "P2";score2
Unpack 7 To 1
Paper 0 : Pen lapiz : Cright : Cdown : Cdown : Print world
Screen Display 1,140,251,320,55
Set Rainbow 1,14,50,"","","(3,-1,15)"
Rainbow 1,1,260,50
inicio:
If world<>word
If world<10 : Load "May0"+Str$(world)-" "+".SGE",8 : End If
If world=>10 : Load "May"+Str$(world)-" "+".SGE",8 : End If
word=world
End If
Unpack 8 To 0
Gosub main
Screen 1
Ink 0
If p1>0
For i=1 To p1
Paste Bob 2+(i*9)-7,2,63
Next i
End If
If p2>0
For i=1 To p2
Paste Bob 263+(i*9),2,64
Next i
End If
Screen 0
Double Buffer
Get Bob Palette
If p1>0 Then Bob 1,100,159,1
If p2>0 Then Bob 2,182,159,25
If world<>8
Bob 21,0,0,71
Bob 22,16,88,74
Bob 23,-32,159,81
Bob 24,0,0,120
Else
Bob 25,116,127,120
Bob 21,0,120,Rnd(5)+56
Bob 22,40,40,71
Bob 23,200,40,73
Bob 24,198,127,120
End If
Amreg(0)=159 : Amreg(1)=159
If world<>8 Then Channel 3 To Bob 21 Else Channel 3 To Bob 25
Channel 4 To Bob 22
Channel 5 To Bob 23
Channel 6 To Bob 24
If p1>0
a$="Begin: Let Y=RA ; Let RG=X ; If X<-32 Jump V ; If X>320 Jump G ;"
a$=a$+" If RC=1 Jump S ;"
a$=a$+" If J1&1 Jump Up ;"
a$=a$+" If J1&2 Jump Down ;"
a$=a$+" If J1&4 Jump Left ;"
a$=a$+" If J1&8 Jump Right ;"
If world<>8 : a$=a$+" If J1&16 Jump Fire ;" : End If
a$=a$+" Anim 1,(8,4) ;"
a$=a$+" Jump Begin ;"
a$=a$+"Up: If J1&4 Jump P ; If J1&8 Jump E ; If J1&16 Jump K ; Anim 1,(9,4) ; Move 0,-20,10 ; Anim 0,(10,4)(11,4)(12,4)(13,4) ; Move 0,-40,20 ; Move 0,50,30 ; Jump Begin ;"
a$=a$+"Left: Anim 1,(5,3)(6,3)(7,3) ; Move -12,0,6 ; Jump Begin ;"
a$=a$+"G: Let X=-32 ; Jump Begin ;"
a$=a$+"Right: Anim 1,(2,3)(3,3)(4,3) ; Move 12,0,6 ; Jump Begin ;"
a$=a$+"V: Let X=320 ; Jump Begin ;"
a$=a$+"P: If J1&16 Jump W ; Anim 1,(7,4) ; Move -5,-20,8 ; Anim 0,(21,4)(22,4)(23,4)(24,4) ; Move -25,-40,15 ; Move -30,50,20 ; Jump Begin ;"
a$=a$+"E: If J1&16 Jump I ; Anim 1,(4,4) ; Move 5,-20,8 ; Anim 0,(17,4)(18,4)(19,4)(20,4) ; Move 25,-40,15 ; Move 30,50,20 ; Jump Begin ;"
a$=a$+"Down: If J1&16 Jump O ; Anim 1,(14,4)(15,4) ; Move 0,0,10 ; Anim 1,(16,4) ; Move 0,0,50 ; Jump Begin ;"
a$=a$+"W: Anim 1,(7,4) ; Move -5,-20,5 ; Anim 0,(21,4)(22,4)(23,4)(24,4) ; Move -40,-90,20 ; Move -50,100,30 ; Jump Begin ;"
a$=a$+"I: Anim 1,(4,4) ; Move 5,-20,5 ; Anim 0,(17,4)(18,4)(19,4)(20,4) ; Move 40,-90,20 ; Move 50,100,30 ; Jump Begin ;"
a$=a$+"K: Anim 1,(9,4) ; Move 0,-20,8 ; Anim 0,(10,4)(11,4)(12,4)(13,4) ; Move 0,-90,30 ; Move 0,100,40 ; Jump Begin ;"
a$=a$+"O: Anim 1,(49,2)(50,2)(51,2)(55,2) ; Move 0,0,20 ; Let RA=159 ; Let Y=RA ; Anim 1,(51,2)(50,2)(49,2) ; Move 0,0,10 ; Jump Begin ;"
a$=a$+"S: Anim 1,(49,2)(50,2)(51,2)(55,2) ; Move 0,0,20 ; Let RA=159 ; Let Y=RA ; Anim 15,(55,3)(1,3) ; Move 0,0,80 ; Let RC=0 ; Jump Begin ;"
a$=a$+"Fire: Anim 1,(49,2)(50,2)(51,2)(55,2) ; Move 0,0,20 ; Let RA=RF ; Let Y=RA ; Anim 1,(51,2)(50,2)(49,2) ; Move 0,0,10 ; Jump Begin "
Channel 1 To Bob 1 : Amal 1,a$
End If
If p2>0
b$="Begin: Let Y=RB ; Let RH=X ; If X<-32 Jump V ; If X>320 Jump G ;"
b$=b$+" If RD=1 Jump S ;"
b$=b$+" If J0&1 Jump Up ;"
b$=b$+" If J0&2 Jump Down ;"
b$=b$+" If J0&4 Jump Left ;"
b$=b$+" If J0&8 Jump Right ;"
If world<>8 : b$=b$+" If J0&16 Jump Fire ;" : End If
b$=b$+" Anim 1,(32,4) ;"
b$=b$+" Jump Begin ;"
b$=b$+"Up: If J0&4 Jump P ; If J0&8 Jump E ; If J0&16 Jump K ; Anim 1,(33,4) ; Move 0,-20,10 ; Anim 0,(34,4)(35,4)(36,4)(37,4) ; Move 0,-40,20 ; Move 0,50,30 ; Jump Begin ;"
b$=b$+"Left: Anim 1,(29,3)(30,3)(31,3) ; Move -12,0,6 ; Jump Begin ;"
b$=b$+"G: Let X=-32 ; Jump Begin ;"
b$=b$+"Right: Anim 1,(26,3)(27,3)(28,3) ; Move 12,0,6 ; Jump Begin ;"
b$=b$+"V: Let X=320 ; Jump Begin ;"
b$=b$+"P: If J0&16 Jump W ; Anim 1,(31,4) ; Move -5,-20,8 ; Anim 0,(45,4)(46,4)(47,4)(48,4) ; Move -25,-40,15 ; Move -30,50,20 ; Jump Begin ;"
b$=b$+"E: If J0&16 Jump I ; Anim 1,(28,4) ; Move 5,-20,8 ; Anim 0,(41,4)(42,4)(43,4)(44,4) ; Move 25,-40,15 ; Move 30,50,20 ; Jump Begin ;"
b$=b$+"Down: If J0&16 Jump O ; Anim 1,(38,4)(39,4) ; Move 0,0,10 ; Anim 1,(40,4) ; Move 0,0,50 ; Jump Begin ;"
b$=b$+"W: Anim 1,(31,4) ; Move -5,-20,5 ; Anim 0,(45,4)(46,4)(47,4)(48,4) ; Move -40,-90,20 ; Move -50,100,30 ; Jump Begin ;"
b$=b$+"I: Anim 1,(28,4) ; Move 5,-20,5 ; Anim 0,(41,4)(42,4)(43,4)(44,4) ; Move 40,-90,20 ; Move 50,100,30 ; Jump Begin ;"
b$=b$+"O: Anim 1,(52,2)(53,2)(54,2)(55,2) ; Move 0,0,20 ; Let RB=159 ; Let Y=RB ; Anim 1,(54,2)(53,2)(52,2) ; Move 0,0,10 ; Jump Begin ;"
b$=b$+"S: Anim 1,(52,2)(53,2)(54,2)(55,2) ; Move 0,0,20 ; Let RB=159 ; Let Y=RB ; Anim 15,(55,3)(25,3) ; Move 0,0,80 ; Let RD=0 ; Jump Begin ;"
b$=b$+"K: Anim 1,(33,4) ; Move 0,-20,8 ; Anim 0,(34,4)(35,4)(36,4)(37,4) ; Move 0,-90,30 ; Move 0,100,40 ; Jump Begin ;"
b$=b$+"F: Anim 1,(52,2)(53,2)(54,2)(55,2) ; Move 0,0,20 ; Let RB=RF ; Let Y=RB ; Anim 1,(54,2)(53,2)(52,2) ; Move 0,0,10 ; Jump Begin ;"
Channel 2 To Bob 2 : Amal 2,b$
End If
If world<>8 Then Amal 3,c$ : Amal 6,f$
Amal 4,d$ : Amal 5,e$
If world=8 Then Amal 3,f$ : Amal 6,c$
Amal On
Make Mask
If world=4 Then Screen 2 : Locate 36,0 : Print "KUKI" : Screen 0
If world<>4 Then Screen 2 : Locate 36,0 : Print "----" : Screen 0
Repeat
k$=Inkey$ : k$=Upper$(k$)
If k$="S" Then Inc re
If k$="C" and level=5 Then ran=1
If re>-1
If k$="A" : Dec re : End If
End If
If k$="P" Then Amal Freeze : Wait Key : Amal On
If world<>8
For x=1 To nf
Bob x+2,,,a+nfe
If x=nf/2 : nfe=3 : End If
Next
nfe=0
Inc a
If Amreg(2)<>1 and Amreg(3)<>1 : Amreg(4)=Rnd(15) : End If
End If
x1=x1+k1
If world=1 or world=3 or world=6
y1=(-0.008363191*x1^2)+(2.5925896*x1)-25.089598
End If
If world=2 or world=4
y1=k1*(Sin((x1*Pi#)/180)*50)+100
End If
If world=5 or world=7
y1=k1*(Sin((x1*Pi#)/90)*50)+100
End If
If world=8
y1=k1*(Cos((x1*Pi#)/90)*50)+120
End If
If x1>320 or x1<0 : k1=-k1 : End If
If world<>8
If Bob Col(1,3 To 20)
c=Col(-1)
Bob c,330,300,a : Sam Play 15,1,9000 : Dec fruits : Add score1,10
Screen 2 : Home : Print "P1";score1 : Screen 0
boni=Rnd(10)
If boni=1
bono=Rnd(6)+56
Bob 24,,,bono
End If
End If
If Bob Col(2,3 To 20)
c=Col(-1)
Bob c,330,300,a : Sam Play 15,1,9000 : Dec fruits : Add score2,10
Screen 2 : Locate 65,0 : Print "P2";score2 : Screen 0
boni=Rnd(10)
If boni=1
bono=Rnd(6)+56
Bob 24,,,bono
End If
End If
If Bob Col(24,1 To 2)
c=Col(-1)
If c=1
If bono=>56 and bono<62
Sam Play 15,5,10000 : Add score1,50
Screen 2 : Home : Print "P1";score1 : Screen 0
End If
End If
If c=2
If bono=>56 and bono<62
Sam Play 15,5,10000 : Add score2,50
Screen 2 : Locate 65,0 : Print "P2";score2 : Screen 0
End If
End If
If bono=62
Sam Play 15,5,10000
If p1<1 : Bob 1,100,159,1 : Channel 1 To Bob 1 : Amal 1,a$ : Amal On 1 : End If
If p1<5 : Inc p1 : End If
If plrs=2 and p2<1 : Bob 2,182,159,25 : Channel 2 To Bob 2 : Amal 2,b$ : Amal On 2 : End If
If plrs=2 and p2<5 : Inc p2 : End If
Screen 1
For i=1 To p1
Paste Bob 2+(i*9)-7,2,63
Next i
If plrs=2
For i=1 To p2
Paste Bob 263+(i*9),2,64
Next i
End If
Screen 0
End If
bono=120 : Bob 24,,,120
End If
End If
If Bob Col(1,21 To 23) and cheat<>1
pk1=p1
If p1>0 and Amreg(2)<>1 : Dec p1 : Amreg(0)=159 : Amreg(2)=1 : Bob 1,100,159,1 : Sam Play 15,2,9000 : End If
If p1<1 : Amal Off 1 : Bob Off 1 : Sam Play 15,2,9000 : Amreg(2)=0 : End If
If pk1<>p1
Screen 1
Ink 0 : Bar 2,2 To 47,9
If p1>0
For i=1 To p1
Paste Bob 2+(i*9)-7,2,63
Next i
End If
Screen 0
End If
End If
If Bob Col(2,21 To 23) and cheat<>1
pk2=p2
If p2>0 and Amreg(3)<>1 : Dec p2 : Amreg(1)=159 : Amreg(3)=1 : Bob 2,182,159,25 : Sam Play 15,2,9000 : End If
If p2<1 : Amal Off 2 : Bob Off 2 : Sam Play 15,2,9000 : Amreg(3)=0 : End If
If pk2<>p2
Screen 1
Ink 0 : Bar 272,2 To 315,9
If p2>0
For i=1 To p2
Paste Bob 263+(i*9),2,64
Next i
End If
Screen 0
End If
End If
Bob 21,x1,y1,
If world=8
If Fire(1) and p1>0
Amreg(8)=1
End If
If plrs=2 and p2>0
If Fire(0)
Amreg(9)=1
End If
End If
If Bob Col(25,22 To 23)
Sam Play 15,1,9000 : Dec fruits : Add score1,10
Screen 2 : Home : Print "P1";score1 : Screen 0
Amreg(8)=0 : Bob 25,400,,
End If
If Bob Col(24,22 To 23)
Sam Play 15,1,9000 : Dec fruits : Add score2,10
Screen 2 : Locate 65,0 : Print "P2";score2 : Screen 0
Amreg(9)=0 : Bob 24,400,,
End If
End If
If fruits<1
Wait 25 : Amal Off : Bob Off
Rainbow Del 0
If world=8
Rainbow Del 0
Load "Font.abk"
Cls 0
Wait 50
Paste Bob 51,18,5 : Sam Play 15,3,9000 : Wait 25
Paste Bob 86,20,10 : Sam Play 15,3,9000 : Wait 25
Paste Bob 118,20,8 : Sam Play 15,3,9000 : Wait 25
Paste Bob 157,18,1 : Sam Play 15,3,9000 : Wait 25
Paste Bob 190,21,12 : Sam Play 15,3,9000 : Wait 25
Paste Bob 222,20,7 : Sam Play 15,3,9000 : Wait 150
Paste Bob 130,69,13 : Sam Play 15,3,9000 : Wait 25
Paste Bob 165,68,9 : Sam Play 15,3,9000 : Wait 25
Paste Bob 88,119,4 : Sam Play 15,3,9000 : Wait 25
Paste Bob 125,120,6 : Sam Play 15,3,9000 : Wait 25
Paste Bob 157,121,14 : Sam Play 15,3,9000 : Wait 25
Paste Bob 181,121,15 : Sam Play 15,3,9000 : Wait 25
Paste Bob 210,121,17 : Sam Play 15,3,9000 : Wait 25
Wait 150
End If
If level=5 : m1=m1+3 : m2=m2+3 : m3=m3+3
level=0 : Inc world : Add lapiz,2
Fade 5 : Wait 100
Gosub bonus_game
End If
Screen 1
Paper 0 : Pen lapiz : Home : Cdown : Cdown : Cright : Print world
Screen 0
i=Rnd(1) : If i=0 : x1=0 Else x1=319 : End If
ran=0 : ranb=0
Goto inicio
End If
If a>67 Then a=65
If ran=1
Inc ranb
Rainbow 0,ranb,40,210
If ranb>209 : ranb=0 : End If
End If
If re=0 Then Wait Vbl
If re>0 Then Wait Vbl : Wait re
Until k$="Q" or (p1<1 and p2<1)
Amal Off : Bob Off
Screen Close 2
Screen 0
Screen Close 1
Rainbow Del 1
Load "Font.abk"
Ink 0 : x=0
For i=10 To 200 Step 2
Bar 0,0 To i+x,i
Add x,2
If x>120 Then x=120
Next i
Cls 0
Rainbow Del 0
Wait 50
Paste Bob 71,20,2 : Sam Play 15,3,9000 : Wait 25
Paste Bob 114,20,6 : Sam Play 15,3,9000 : Wait 25
Paste Bob 146,21,11 : Sam Play 15,3,9000 : Wait 25
Paste Bob 196,21,8 : Sam Play 15,3,9000 : Wait 25
Paste Bob 91,68,13 : Sam Play 15,3,9000 : Wait 25
Paste Bob 124,67,16 : Sam Play 15,3,9000 : Wait 25
Paste Bob 156,68,8 : Sam Play 15,3,9000 : Wait 25
Paste Bob 188,68,14 : Sam Play 15,3,9000 : Wait 25
Wait 150
Goto init
End
bonus_game:
Load "BONO.SGE",8
Load "Sprites/Vaca.abk"
Unpack 8 To 0
Shift Up 4,16,23,1
av$="Anim 0,(1,4)(2,4) ;"
av$=av$+"Begin: If J1&1 Jump Up ;"
av$=av$+" If J1&2 Jump Down ;"
av$=av$+" If J1&4 Jump Left ;"
av$=av$+" If J1&8 Jump Right ;"
av$=av$+" Jump Begin ;"
av$=av$+"Up: If Y<0 Jump Begin ; Move 0,-8,4 ; Jump Begin ;"
av$=av$+"Down: If Y>140 Jump Begin ; Move 0,8,4 ; Jump Begin ;"
av$=av$+"Left: If X<0 Jump Begin ; Move -8,0,4 ; Jump Begin ;"
av$=av$+"Right: If X>278 Jump Begin ; Move 8,0,4 ; Jump Begin ;"
Bob 5,200,100,1 : Channel 1 To Bob 5 : Amal 1,av$
If plrs=2
bv$="Anim 0,(3,4)(4,4) ;"
bv$=bv$+"Begin: If J0&1 Jump Up ;"
bv$=bv$+" If J0&2 Jump Down ;"
bv$=bv$+" If J0&4 Jump Left ;"
bv$=bv$+" If J0&8 Jump Right ;"
bv$=bv$+" Jump Begin ;"
bv$=bv$+"Up: If Y<0 Jump Begin ; Move 0,-8,4 ; Jump Begin ;"
bv$=bv$+"Down: If Y>140 Jump Begin ; Move 0,8,4 ; Jump Begin ;"
bv$=bv$+"Left: If X<0 Jump Begin ; Move -8,0,4 ; Jump Begin ;"
bv$=bv$+"Right: If X>278 Jump Begin ; Move 8,0,4 ; Jump Begin ;"
Bob 6,242,100,3 : Channel 2 To Bob 6 : Amal 2,bv$
End If
Amal On
Bob 1,138,80,50 : Bob 2,138,80,50 : Bob 3,138,80,50 : Bob 4,138,80,50
mv5=0 : mv6=0 : mv7=0 : mv8=0
Double Buffer : Timer=0
Repeat
r=Rnd(8)
If r=5 and mv5=0 Then mv5=1 : xx(1)=138 : yy5=80 : i5=0 : a(1)=((Rnd(1)+1)*11)+5-11
If r=6 and mv6=0 Then mv6=1 : xx(2)=138 : yy6=80 : i6=0 : a(2)=((Rnd(1)+1)*11)+5-11
If r=7 and mv7=0 Then mv7=1 : xx(3)=138 : yy7=80 : i7=0 : a(3)=((Rnd(1)+1)*11)+5-11
If r=8 and mv8=0 Then mv8=1 : xx(4)=138 : yy8=80 : i8=0 : a(4)=((Rnd(1)+1)*11)+5-11
If mv5=1 Then x5=Rnd(10)-5 : y5=Rnd(4)-2 : mv5=2
If mv6=1 Then x6=Rnd(10)-5 : y6=Rnd(4)-2 : mv6=2
If mv7=1 Then x7=Rnd(10)-5 : y7=Rnd(4)-2 : mv7=2
If mv8=1 Then x8=Rnd(10)-5 : y8=Rnd(4)-2 : mv8=2
If mv5=2
xx(1)=xx(1)+x5 : yy5=yy5+y5
Inc i5
If a(1)=15 or a(1)=26 : mv5=0 : a(1)=50 : End If
If i5>5 : i5=0 : Inc a(1) : End If
End If
If mv6=2
xx(2)=xx(2)+x6 : yy6=yy6+y6
Inc i6
If a(2)=15 or a(2)=26 : mv6=0 : a(2)=50 : End If
If i6>5 : i6=0 : Inc a(2) : End If
End If
If mv7=2
xx(3)=xx(3)+x7 : yy7=yy7+y7
Inc i7
If a(3)=15 or a(3)=26 : mv7=0 : a(3)=50 : End If
If i7>5 : i7=0 : Inc a(3) : End If
End If
If mv8=2
xx(4)=xx(4)+x8 : yy8=yy8+y8
Inc i8
If a(4)=15 or a(4)=26 : mv8=0 : a(4)=50 : End If
If i8>5 : i8=0 : Inc a(4) : End If
End If
Bob 1,xx(1),yy5,a(1)
Bob 2,xx(2),yy6,a(2)
Bob 3,xx(3),yy7,a(3)
Bob 4,xx(4),yy8,a(4)
If Bob Col(5,1 To 4)
c=Col(-1)
If a(c)=13
Sam Play 15,5,9000 : xx(c)=500
If p1<5 : Inc p1 : End If
If plrs=2 and p2<5 : Inc p2 : End If
Screen 1
For i=1 To p1
Paste Bob 2+(i*9)-7,2,27
Next i
If plrs=2
For i=1 To p2
Paste Bob 263+(i*9),2,28
Next i
End If
Screen 0
End If
If a(c)=24 : Sam Play 15,1,5000 : Timer=Timer+500 : xx(c)=500 : End If
End If
If Bob Col(6,1 To 4)
c=Col(-1)
If a(c)=13
Sam Play 15,5,10000 : xx(c)=500
Sam Play 15,5,10000 : xx(c)=500
If p1<5 : Inc p1 : End If
If plrs=2 and p2<5 : Inc p2 : End If
Screen 1
For i=1 To p1
Paste Bob 2+(i*9)-7,2,27
Next i
If plrs=2
For i=1 To p2
Paste Bob 263+(i*9),2,28
Next i
End If
Screen 0
End If
If a(c)=24 : Sam Play 15,1,5000 : Timer=Timer+500 : xx(c)=500 : End If
End If
Screen 2 : Locate 36,0 : Print (Timer/50);" " : Screen 0
Wait Vbl
Until (Timer/50)>30
Shift Off
Return
main:
Inc level : fruits=18
Load "sprites/my2.abk"
r=Rnd(14)+1 : r$=Str$(r)+".abk"
s=Rnd(14)+1 : s$=Str$(s)+".abk"
m1$=Str$(m1)+".abk" : m2$=Str$(m2)+".abk" : m3$=Str$(m3)+".abk"
Load "sprites/"+r$-" ",2
Load "sprites/"+s$-" ",2
Load "sprites/"+m1$-" ",2
If world<>8
Load "sprites/"+m2$-" ",2
Load "sprites/"+m3$-" ",2
End If
If world=8 Then level=5
If level=5
If world<>4
Set Rainbow 0,15,208,"","",""
Restore _rainbdata
For c=0 To 207
Read cva
Rain(0,c)=cva
Next c
Else
Set Rainbow 0,15,210,"","","(1,1,15)(1,-1,15)"
End If
End If
If level=1
r$="(3,1,15)(3,-1,15)(3,1,15)"
g$="(3,0,15)(3,1,15)(3,0,15)"
bb$="(3,0,15)(3,1,15)(3,-1,15)"
If world=4 or world=6
r$=""
g$=""
bb$="(4,1,15)(4,-1,15)"
End If
If world=5
r$="(3,1,15)(3,0,15)(3,0,15)"
g$="(3,0,15)(3,1,15)(3,0,15)"
bb$="(3,0,15)(3,0,15)(3,1,15)"
End If
If world=7
r$="(3,1,15)(3,0,15)(3,0,15)(3,-1,15)"
g$="(3,0,15)(3,1,15)(3,0,15)(3,0,15)"
bb$="(3,0,15)(3,0,15)(3,1,15)(3,0,15)"
End If
End If
If level=2
r$="(4,1,15)(4,0,15)(4,0,15)"
g$="(4,1,15)(4,-1,15)(4,0,15)"
bb$="(4,0,15)(4,0,15)(4,1,15)"
If world=4
r$=""
g$=""
bb$="(4,-1,15)(4,1,15)"
End If
If world=7
r$=""
g$=""
bb$="(4,1,15)(4,-1,15)"
End If
End If
If level=3
r$="(10,1,15)"
g$=""
bb$="(10,-1,15)"
If world=4
r$="(4,1,15)(4,-1,15)"
g$=""
bb$="(4,1,15)(4,-1,15)"
End If
If world=7
r$="(5,1,15)(5,-1,15)(5,0,15)"
g$=""
bb$="(5,-1,15)(5,0,15)(5,1,15)"
End If
End If
If level=4
r$="(2,0,15)(2,0,15)(2,1,15)(2,0,15)"
g$="(2,0,15)(2,1,15)(2,0,15)(2,0,15)"
bb$="(2,1,15)(2,0,15)(2,0,15)(2,-1,15)"
If world=4
r$="(2,0,15)(2,1,15)(2,-1,15)"
g$=""
bb$="(2,1,15)(2,0,15)(2,-1,15)"
End If
If world=7
r$="(2,0,15)(2,1,15)(2,-1,15)(2,0,15)(2,0,15)(2,1,15)(4,-1,15)"
g$="(2,0,15)(2,0,15)(2,0,15)(2,0,15)(2,1,15)(2,0,15)(4,-1,15)"
bb$="(2,1,15)(2,0,15)(2,-1,15)(2,1,15)(2,0,15)(2,0,15)(4,-1,15)"
End If
End If
If level<>5 Then Set Rainbow 0,15,210,r$,g$,bb$
Rainbow 0,0,40,210
View
p=world
For i=1 To 20
Paste Icon i*16-16,0,p
Paste Icon i*16-16,190,p
If world<>8 Then Paste Icon i*16-16,120,p
Next i
For i=1 To 13
Paste Icon 0,(i*10)-10,p
Paste Icon 304,(i*10)-10,p
Next i
Amreg(5)=88
nfe=0
If world<>8
If world>5
For x=1 To 18
Bob x+2,15*x+5,50,65+nfe
If x=9 : nfe=3 : End If
Next x
End If
If world=1 or world=3
For x=1 To 18
Bob x+2,15*x+5,Sin((15*x+5)*Pi#/180)*50+100,65
Next x
End If
If world=2 or world=7
For x=1 To 9
Bob x+2,31*x-5,50,65
Bob x+11,31*x-5,140,65+3
Next x
End If
If world=4
For x=1 To 18
Bob x+2,15*x+5,Sin((15*x+5)*Pi#/90)*50+100,65
Next x
End If
If world=5
For x=1 To 18
Bob x+2,15*x+5,Cos((15*x+5)*Pi#/180)*50+100,65
Next x
End If
End If
nf=18 : nfe=0 : a=65
If world<>8
c$="Anim 0,(71,4)(72,4)(73,4)"
d$="Begin: Anim 0,(74,4)(75,4)(76,4) ; Move 272,0,100 ; Anim 0,(77,4)(78,4)(79,4) ; Move -272,0,100 ; Jump Begin"
e$="Begin: If RE=8 Jump Right ;"
e$=e$+"If RE=4 Jump Left ;"
e$=e$+" Jump Begin ;"
e$=e$+"Right: Let X=-32 ; Anim 0,(80,4)(81,4)(82,4) ; Move 400,0,200 ; Let RE=0 ; Jump Begin ;"
e$=e$+"Left: Let X=320 ; Anim 0,(83,4)(84,4)(85,4) ; Move -400,0,200 ; Let RE=0 ; Jump Begin "
f$="Begin:Move 300,168,80 : Move 0,-168,50 : Move -300,168,80 : Move 0,-168,50 : Jump Begin "
Else
d$="Anim 0,(71,8)(73,8)(71,8)(71,8)(71,8)(71,8)"
d$=d$+"Begin: Move 10,100,60 ; Move -20,0,10 ; Move -10,-50,20 ; Move 20,-70,30 ; Move 0,20,10 ; Jump Begin "
e$="Anim 0,(72,8)(74,8)(72,8)(72,8)(72,8)(72,8)"
e$=e$+"Begin: Move -10,100,60 ; Move 20,0,10 ; Move 10,-50,20 ; Move -20,-70,30 ; Move 0,20,10 ; Jump Begin "
f$="Begin: Anim 0,(120,4) ; Let X=RG ; Let Y=RA ; If RI=1 Jump Fire ; Jump Begin ;"
f$=f$+"Fire: Anim 0,(65,4)(66,4)(67,4) ; Move 0,-150,80 ; Let RI=0 ; Jump Begin "
c$="Begin: Anim 0,(120,4) ; Let X=RH ; Let Y=RB ; If RJ=1 Jump Fire ; Jump Begin ;"
c$=c$+"Fire: Anim 0,(68,4)(68,4)(70,4) ; Move 0,-150,80 ; Let RJ=0 ; Jump Begin "
fruits=30
End If
Return
_rainbdata:
Data $f00,$f00,$f00,$f10,$f10,$f10,$f20,$f20,$f20,$f30,$f30,$f30
Data $f40,$f40,$f40,$f50,$f50,$f50,$f60,$f60,$f60,$f70,$f70,$f70
Data $f80,$f80,$f80,$f90,$f90,$f90,$fa0,$fa0,$fa0,$fb0,$fb0,$fb0
Data $fc0,$fc0,$fc0,$fd0,$fd0,$fd0,$fe0,$fe0,$fe0,$ff0,$ff0,$ff0
Data $ff0,$ff0,$ef0,$ef0,$df0,$df0,$cf0,$cf0,$bf0,$bf0,$af0,$af0
Data $9f0,$9f0,$8f0,$8f0,$7f0,$7f0,$6f0,$6f0,$5f0,$5f0,$4f0,$4f0
Data $3f0,$3f0,$2f0,$2f0,$1f0,$1f0,$f0,$f0
Data $f0,$f0,$f1,$f1,$f2,$f2,$f3,$f3,$f4,$f4,$f5,$f5,$f6,$f6
Data $f7,$f7,$f8,$f8,$f9,$f9,$fa,$fa,$fb,$fb,$fc,$fc,$fd,$fd
Data $fe,$fe,$ff,$ff,$ef,$ef,$df,$df,$cf,$cf,$bf,$bf
Data $bf,$bf,$af,$af,$9f,$9f,$8f,$8f,$7f,$7f,$6f,$6f,$5f,$5f
Data $4f,$4f,$3f,$3f,$2f,$2f,$1f,$1f,$f,$f
Data $f,$f,$10f,$10f,$20f,$20f,$30f,$30f,$40f,$40f,$50f,$50f
Data $60f,$60f,$70f,$70f,$80f,$80f,$90f,$90f,$a0f,$a0f,$b0f,$b0f
Data $c0f,$c0f,$d0f,$d0f,$e0f,$e0f,$f0f,$f0f,$f0f,$f0f,$f0e,$f0e
Data $f0d,$f0d,$f0c,$f0c,$f0b,$f0b,$f0a,$f0a,$f09,$f09,$f08,$f08
Data $f07,$f07,$f06,$f06,$f05,$f05,$f04,$f04,$f03,$f03,$f02,$f02
Data $f01,$f01,$f00,$f00