Keskustelu: Koodit: QB: Poliisiauton valot

Tämä piirtää siis poliisiauton sinipunaiset vilkkuvalot vilkkumaan näytölle. Punainen vasemmalla, sininen oikealla. efekti voi sopia esimerkiksi johonkin Grand Theft Auton tapaiseen rikospeliin.

Koodin rakenne ja valojen piirtäminen voi olla hiukan omapäistä mutta älkää siitä välittäkö. Pääasia että toimii

Testattu pentium 133MHz koneella, ja punaisen vilahtaminen sammumiseen asti kestää noin 0.63 sekuntia.

SCREEN 13

'Tehdään paletti, josta puolet on liuku mustasta siniseen...
OUT &H3C8, 0
FOR c = 0 TO 255 / 2
  OUT &H3C9, 0
  OUT &H3C9, 0
  OUT &H3C9, INT(c / 2)
NEXT
'ja jälkimmäinen puolisko liuku mustasta punaiseen
FOR c = 255 / 2 TO 255
  OUT &H3C9, INT(c / 2)
  OUT &H3C9, 0
  OUT &H3C9, 0
NEXT

DO
   FOR i = 253 TO 255 / 2 STEP -2.5
      'piirretään punainen valo
      CIRCLE (320 / 3, 200 / 2), 255 - i, i + 2
      PAINT (320 / 3, 200 / 2), i + 2
   NEXT i
   FOR i = 2 TO 255 / 2 STEP 2
      'sininen valo
      CIRCLE (320 / 3 * 2, 200 / 2), i, 255 / 2 - i + 2
      PAINT (320 / 3 * 2, 200 / 2), 255 / 2 - i + 2
   NEXT i
LOOP UNTIL INKEY$ <> "" 'näppäintä painamalla pääsee pois

Jos menee liian nopeasti (johtuen hidastusten puuttumisesta), niin tehkää itse sellaiset hidastuksen kuin haluatte :)

joo hyvin toimii minun 120mhz penttarillakin. Vaikka onkin yksinkertainen, sanoisin että tähän mennessä tekemistäsi efekteistä hienoin.

Senkin saasta, teit hyvää työtä! :) Aika hieno noin lyhyeksi koodiksi.

löytyykö mistään valmista exeä??

Teme: http://mbnet.fi/paauli/pav64k.zip <- tuolta löytyy koko intro, johon tämän efektin väsäsin.

heh, paletin määritys on puolet koodista tässä. x)

hehheh =)

Ainahan voi parantaa mutta kyllä tuo on paikkansa putkassa ansainnut.

Hyvä esimerkki paletin käytöstä.