DEFINT A-b
DIM tre(1570)
DIM bang(255)
DIM stemme%(8)
DIM punktX(30)
DIM punktY(30)
DIM tallet(12)
DIM navnet$(12)

WINDOW 2

k$="DUELL:  "
k$=k$+navn2$+"  MOT  BR0DRENE  MAFIANI  "


SCREEN 1,640,200,4,2
WINDOW 2,k$,(0,0)-(631,185),2,1
 PALETTE 8,1,.3,.2
  IF navn2$="LISTE" THEN GOSUB slutten

 LINE(15,1)-(610,96),3,b
 LINE(25,5)-(600,92),3,b
 PAINT(20,50),3
  LOCATE 2,14
  PRINT "ETTERLYST FOR UTALLIGE ATTENTATER"
  LOCATE 4,21
  PRINT  "BR0DRENE MAFIANI"
  LOCATE 12,5
  PRINT  "Familien Mafiani er stolte leiemordere. De er kjent for"
  PRINT " sin arbeidsglede og bommer aldri. Dessuten er de mestere i"
  PRINT " kamuflasjeteknikk  og kan krype usett rundt i gresset. - I"
  PRINT " et idyllisk landskap skal du duellere med den farlige ban-"
  PRINT " den.  Du blir  utstyrt med fem liv, og det gis poeng etter "
  PRINT " hurtighet.  - Skyt i stykker de fallende bombene!"
  PRINT "    Treffer du uskyldige, mister du alle poengene."


     banditt$(1)="Rabalder"
     banditt$(2)="Punktum"
     banditt$(3)="Rabies"
     banditt$(4)="Anaconda"
     lyd=0
      SOUND 146.83,40,250,0
 FOR i=20 TO 20
    SOUND 220,14,250,0
   READ fil$
   OPEN fil$ FOR INPUT AS i
   OBJECT.SHAPE i,INPUT$(LOF(i),i)
   CLOSE i

     SOUND 146.83,14,250,0
    IF i MOD 10=0 OR i MOD 10=1 THEN
     lyd=lyd+1
      GOSUB spill
    END IF

     IF i MOD 10=1 THEN
         OBJECT.Y 10, 50
         OBJECT.X 10,80

         OBJECT.ON 10
            sted=INT((i-1)/3.6)
            LOCATE 9,i+sted-3
            PRINT banditt$(i/10)
            LOCATE 10,i+sted-3
            PRINT "Mafiani"

     END IF
  NEXT i
     SOUND 146.83,40,250,0

 DATA "skurk1"

reserver=5
Rtid=1.2
'OBJECT.OFF
FOR i=1 TO 22
    READ punktX(i)
    READ punktY(i)
NEXT i
  DATA 273,32,273,97,210,97,200,80,160,88,94,96
  DATA 94,80,360,90,400,97,600,96,540,80
  DATA 38,165,135,165,150,165,175,165,200,165,218,165
  DATA 240,165,442,165,567,165,397,106,213,114

  FOR bb=0 TO 8
  READ stemme%(bb)
  NEXT bb
  DATA 320,0,150,1,28000,64,10,0,2


  snakk$(1)="AO NAXIXIY."
  snakk$(2)="IHKKEH MAE5Y."
  snakk$(3)="UHFF  DAX."
  snakk$(4)="SLEHMMEHN."
  snakk$(5)="AEUWUWUW."
  snakk$(6)="JEHIH1 SKAXLL SIHIH DEH."
  snakk$(7)="AEAEAESHSHSH."

  prat$(1)="YAXAX.  YAXAX."
  prat$(3)="/HAX, /HAX."
  prat$(5)="BAE BAE LIHLLEH LAXM."
  prat$(7)="JAXBBIHDAXBBIHDUHUHUH."
 'SAY snakk$(6),stemme%

' END

FOR i=0 TO 25
bang(i)=SIN(i/3.1)*120
IF i<50 THEN bang(i)=-120
NEXT i
 GOSUB farger
   LINE (0,0)-(631,95),0,bf

FOR b=1 TO 20
 SCROLL (0,0)-(631,185),0,1
 NEXT b
 OBJECT.OFF

GOSUB grafikk
  feltene:

  DATA "felt6","felt7","felt8","felt9","felt10","felt11","felt12"
  DATA "felt6b","felt7b","felt8b","felt9b","felt10b","felt11b","felt12b"




 OPEN "skudd" FOR INPUT AS 1
 OBJECT.SHAPE 1,INPUT$(LOF(1),1)
 CLOSE 1

 WAVE 0,bang
 WAVE 2,bang
  SOUND 20,1,0,0
  skutt=1
          xx=70
          yy=50
         OBJECT.Y 20,yy
         OBJECT.X 20,xx

         OBJECT.ON 20

runde:

yyy=yy
xxx=xx
         OBJECT.Y 20,yyy 
         OBJECT.X 20,xxx
         OBJECT.ON 20
 LOCATE 1,1
  INPUT "bredde ",xx
  IF xx=0 THEN xx=xxx
  PRINT xx
  INPUT "hoyde ",yy
  IF yy=0 THEN yy=yyy     
  PRINT yy
  
GOTO runde

farger:
 'PALETTE 1,.3,.5,.5
  PALETTE 2,.1,.3,.1
  PALETTE 3,.8,.6,.53
  PALETTE 4,.1,.4,0
  PALETTE 5,.4,.7,.4
  PALETTE 6,.8,.8,0
  PALETTE 7,.47,.87,1

RETURN

opp:


starten:
LINE(0,180)-(631,186),8,bf
LINE(0,179)-(631,179),0
LINE(0,178)-(631,178),1
LOCATE 21,4
PRINT " POENG: ";
LOCATE 21,22
PRINT " SUM POENG:   ";
LOCATE 21,52
PRINT " LIV: ";reserver;" ";
RETURN

bilde:

  READ felt$
  OPEN felt$ FOR INPUT AS 9
OBJECT.SHAPE 9,INPUT$(LOF(9),9)
CLOSE 9

 OBJECT.X 9,536
OBJECT.Y 9,oy
OBJECT.ON 9

GET(536,oy)-(632,ny),tre
OBJECT.OFF 9
OBJECT.CLOSE 9

RETURN

grafikk:

oy=0
ny=111
FOR t=1 TO 2
xx=0
FOR i=1 TO 7

  GOSUB bilde

  PUT(xx,oy),tre
    xx=xx+96
 NEXT i
  IF t=1 THEN LINE(0,112)-(632,185),0,bf
 oy=112:ny=186
NEXT t
GOSUB starten
'stid=TIMER+4
RETURN


spill:
      SOUND WAIT
      SOUND tone1(lyd),varighet(lyd),250,1
      SOUND tone2(lyd),varighet(lyd),250,2
      SOUND tone3(lyd),varighet(lyd),250,3
      SOUND RESUME
RETURN

tone:
      READ tone1(t)
      READ tone2(t)
      READ tone3(t)
      READ varighet(t)
RETURN

  END