Flyplane
Download
1 / 18

FLYPLANE - PowerPoint PPT Presentation


  • 109 Views
  • Uploaded on

FLYPLANE. Door Zander Van Campen en Tom Wislez. Wat doet het programma?. Vliegtuigje Bewegen naar boven of onder met de pijltoetsen Benzinemeter Benzine tank leeg of crash tegen gebouw  Neerstorten. Indeling van het programma. Scherm instellen Variabelen benoemen

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about ' FLYPLANE' - bing


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Flyplane

FLYPLANE

Door Zander Van Campen

en Tom Wislez


Wat doet het programma
Wat doet het programma?

  • Vliegtuigje

  • Bewegen naar boven of onder met de pijltoetsen

  • Benzinemeter

  • Benzine tank leeg of crash tegen gebouw

     Neerstorten


Indeling van het programma
Indeling van het programma

  • Scherm instellen

  • Variabelen benoemen

  • Hoofdscherm tekenen

  • Spel-lus:

    • Vliegtuig tekenen

    • Getkey-lus

      • Pixel-test

      • Benzine-test

      • Gebouwen tekenen

    • Neerstort-lus


I instellen van scherm

We moeten ervoor zorgen dat het scherm de gewenste afmetingen heeft en dat er geen grafieken op staan

94 aantal pixels op de x-as

62 aantal pixels op de y-as

0üXmin:94üXmax

0üYmin:62üYmax

ClrDraw

FnOff

AxesOff

I. Instellen van scherm


Ii variabelen benoemen

G is tankpunt afmetingen heeft en dat er geen grafieken op staan

Z is de hoogte

X is voor de gebouwen

F is de benzine waarde

V is voor de ‘warning’ bericht

O is voor de al dan niet afsluiting van de tankplek

0üG

9üZ

188üX

1000üF

1üV

0üO

II. Variabelen benoemen


Iii hoofdscherm tekenen

Line(0,5,0,0 afmetingen heeft en dat er geen grafieken op staan

Line(94,5,94,0

Horizontal 6

Text(57,1," FUEL: ",F,"

If F<300 or (Fù300 and V=0):Then

If V=1:Then

Text(57,34,"!WARNING!!DANGER!"

0üV

Else

Line(34,4,93,4,0

Line(34,3,93,3,0

Line(34,2,93,2,0

Line(34,1,93,1,0

Line(34,0,93,0,0

1üV

End

End

III. Hoofdscherm tekenen


Iv spel lus

Vliegtuig tekenen afmetingen heeft en dat er geen grafieken op staan

Lbl A

Line(5,Z,13,Z

Line(5,Z+1,12,Z+1

Line(5,Z+2,6,Z+2

Pt-On(5,Z+3

Line(9,Z+2,10,Z+2

Pt-On(9,Z+3

Line(8,Z-1,9,Z-1

Pt-On(8,Z-2

IV. Spel-lus


Iv spel lus1

Repeat Aø0 afmetingen heeft en dat er geen grafieken op staan

getKeyüA

X-1üX

If (pxl-Test(63-Z,5) or pxl-Test(59-Z,6) or pxl-Test(59-Z,10) or pxl-Test(64-Z,9) or pxl-Test(61-Z,13))=1:Then

Goto B

End

If F÷0:Then

Goto B

End

Getkey-lus

Pixel-test

Benzine-test

IV. Spel-lus


Iv spel lus2

Getkey-lus afmetingen heeft en dat er geen grafieken op staan

‘Fuel’-tekst schrijven

F-4üF

Line(X-39,14,X-39,18,0

Line(X-36,18,X-36,16

Pt-On(X-38,17

Line(X-38,15,X-38,14

Line(X-35,18,X-35,14,0

Line(X-33,18,X-33,14,0

Line(X-34,18,X-34,15

Line(X-32,18,X-32,14

Line(X-31,18,X-31,14,0

Pt-On(X-30,17

Pt-On(X-30,15

Line(X-28,18,X-28,14

Line(X-27,18,X-27,14,0

Line(X-26,18,X-26,15

Pt-On(X-24,14

Line(X-94,29,X-94,7

Line(X-67,36,X-67,62

IV. Spel-lus


Iv spel lus3

Getkey-lus afmetingen heeft en dat er geen grafieken op staan

Gebouwen tekenen

Line(X-82,29,X-82,7,0

Line(X-58,36,X-58,62,0

Line(X-22,41,X-22,13,0

Line(X-89,41,X-89,62,0

Line(X-6,41,X-6,62

Line(X+5,41,X+5,62,0

Line(X,29,X,7

Line(X+12,29,X+12,7,0

Line(X+27,36,X+27,62

Line(X+36,36,X+36,62,0

Line(X+53,41,X+53,7

Line(X+72,41,X+72,7,0

Line(X+88,41,X+88,62

IV. Spel-lus


Iv spel lus4

Afsluiten van de tankplek afmetingen heeft en dat er geen grafieken op staan

Dit muurtje zorgt ervoor dat je enkel kan tanken als je benzine kleiner is dan 472. Want dan gaat het muurtje weg.

If O=0:Then

Line(X-41,41,X-41,7

Line(X-39,12,X-39,7,0

Else

Line(X-41,41,X-41,13

End

If F<472

Then

1üO

Else

0üO

End

IV. Spel-lus


Iv spel lus5

Tankpunt afmetingen heeft en dat er geen grafieken op staan

G is variabele voor aantal keer er bijgetankt kan worden. Dus per pixel dat het vliegtuig in dat punt staat komt er 50 benzine bij.

If G=0:Then

Pt-On(X-31,9

Pt-Off(X-30,9

End

If (X-31=13 and Z=9) or Gø0:Then

G+1üG

F+50üF

If G=9:Then

0üG

End

End

End

IV. Spel-lus


Iv spel lus6

Bewegen naar boven of beneden afmetingen heeft en dat er geen grafieken op staan

Getkey

25= pijltje naar boven

34= pijltje naar onder

If A=25 or A=34:Then

Line(5,Z,13,Z,0

Line(5,Z+1,12,Z+1,0

Line(5,Z+2,6,Z+2,0

Pt-Off(5,Z+3

Line(9,Z+2,10,Z+2,0

Pt-Off(9,Z+3

Line(8,Z-1,9,Z-1,0

Pt-Off(8,Z-2

End

IV. Spel-lus


Iv spel lus7

Bewegen naar boven of beneden (vervolg) afmetingen heeft en dat er geen grafieken op staan

Aanpassen variabele Z.

If A=25 and Z+2÷58:Then

Z+2üZ

End

If A=34 and Z-2ù2:Then

Z-2üZ

End

IV. Spel-lus


Iv spel lus8

het programma afsluiten afmetingen heeft en dat er geen grafieken op staan

getkey-functie

45 = clear-toets

If A=45

Then

ZStandard

AxesOn

ClrDraw

ClrHome

Stop

End

Goto A

IV. Spel-lus


Iv spel lus9

3. afmetingen heeft en dat er geen grafieken op staanNeerstort-lus (Lbl B)

We gebruiken hier een For-lus.

Lbl B

ZüB

5üC

5üD

For(Á,úZ,0,5

Z-5üZ

C+4üC

IV. Spel-lus


Iv spel lus10

3. afmetingen heeft en dat er geen grafieken op staanNeerstort-lus

Vliegtuig tekenen en wissen

Line(C,Z,C+8,Z

Line(C,Z+1,C+7,Z+1

Line(C,Z+2,C+1,Z+2

Pt-On(C,Z+3

Line(C+4,Z+2,C+5,Z+2

Pt-On(C+4,Z+3

Line(C+3,Z-1,C+4,Z-1

Line(D,B,D+8,B,0

Line(D,B+1,D+7,B+1,0

Line(D,B+2,D+1,B+2,0

IV. Spel-lus


Iv spel lus11

3. afmetingen heeft en dat er geen grafieken op staanNeerstort-lus

Vervolg vliegtuig:

Pt-Off(D,B+3

Line(D+4,B+2,D+5,B+2,0

Pt-Off(D+4,B+3

Line(D+3,B-1,D+4,B-1,0

Pt-Off(D+3,B-2

ZüB

CüD

End

Disp "CRASHED AND DIED

IV. Spel-lus


ad