20Zeiler: Bubu Butterfly's Spring Vacation

[Kaeru Gaman]

mein beitrag zum wettbewerb in der Lounge, auch mal hier gepostet.

Bubu Butterfly's Spring Vacation

Frühling! Bubu Butterfly will natürlich sofort einen Ausflug machen.
So viele schöne Blumen blühen hier, Bubu will am liebsten alle einsammeln.
Doch was ist das: Agressive Bienen kommen ihm entgegen.
Hoffentlich kann er allen ausweichen!

hier ist das listing:
18 Codezeilen mit je exakt 5 doppelpunkten.
macht zusammen 108 anweisungen, sollte akzeptabel sein,
auch wenn ein paar zeilen ziemlich lang sind,
dafür sind andere ziemlich kurz.

Code: Alles auswählen

#pf.f=3.14159265/180:Procedure Flower(x.l,y.l):For i=0 To 5:Circle(x+12*Sin(i*60*#pf),y+12*Cos(i*60*#pf),8,RGB(128,0,48)):Circle(x+12*Sin(i*60*#pf),y+12*Cos(i*60*#pf),7,RGB(255,0,96)):Next
Circle(x,y,6,RGB(255,0,96)):Circle(x,y,5,RGB(255,240,32)):EndProcedure:Procedure Bee(x.l,y.l,f.l):For i=-2 To 1:Circle(x,y-2+4*i,6,RGB(255,240,0))
Circle(x,y+4*i,6,RGB(32,32,0)):Next:Circle(x,y+6,5,RGB(255,192,0)):Circle(x+3,y+5,2,RGB(64,128,255)):Circle(x-3,y+5,2,RGB(64,128,255)):Circle(x-12,y-4-f,8,RGB(240,240,255))
Circle(x+12,y-4-f,8,RGB(240,240,255)):EndProcedure:Procedure Fly(x.l,y.l,f.l):For i=0 To 3:Circle(x+f*Sin((45+i*90)*#pf),y+f*Cos((45+i*90)*#pf),7,RGB(16,160,255)):Circle(x+2*f*Sin((45+i*90)*#pf),y+2*f*Cos((45+i*90)*#pf),7,RGB(16,160,255))
Circle(x+f*Sin((45+i*90)*#pf),y+f*Cos((45+i*90)*#pf),4,RGB(255,240,32)):Circle(x+2*f*Sin((45+i*90)*#pf),y+2*f*Cos((45+i*90)*#pf),4,RGB(255,240,32)):Next:Circle(x,y-6,3,RGB(128,96,0)):Box(x-3,y-6,6,12,RGB(128,96,0)):Circle(x,y+6,3,RGB(128,96,0))
Line(x-1,y-9,-6,-11,RGB(16,200,255)):Line(x,y-9,5,-11,RGB(16,200,255)):Circle(x,y-9,3,RGB(255,96,0)):EndProcedure:If InitSprite() And InitKeyboard() And OpenScreen(800,600,16,"SV"):SetFrameRate(60)
Dim PX(600):Dim FP(4):For n=1 To 600:PX(n)=Random(799):Next:LV=4
Repeat:FX=400:FY=500:LV-1:NW=0:Repeat
ExamineKeyboard():ClearScreen(0,128,0):If KeyboardPushed(200):FY-2:EndIf:If KeyboardPushed(203)
FX-2:EndIf:If KeyboardPushed(205):FX+2:EndIf:If KeyboardPushed(208)
FY+2:EndIf:StartDrawing(ScreenOutput()):DrawingMode(1):PX(0)=Random(799):For n=600 To 1 Step -1
PX(n)=PX(n-1):Box(PX(n),n-1,2,1,RGB(0,192,0)):Next:For n=0 To 4:If Abs(FP(n)-100-FX)<16 And Abs(c+150*n-50-FY)<16:FP(n)=0
SC+10:EndIf:Flower(FP(n)-100,c+150*n-50):Next:Locate(270,10):DrawText("Bubu Butterfly's Spring Vacation")
Locate(270,580):DrawText("Score: "+Right("000000"+Str(SC),6)+" . . . . . Lifes: "+Str(LV)):Fly(FX-DI,FY,6+3*Sin(c/8)):Bee(BX+400+100*Sin(c/20),c*4,4*Sin(c)):If Abs(BX+400+100*Sin(c/20)-(FX-DI))<24 And Abs(c*4-FY)<24:DI=10000
EndIf:c+1:If c>149:For n=4 To 1 Step -1:FP(n)=FP(n-1):Next
FP(0)=150+Random(700):BX=Random(600)-300:If DI=10000:NW=1:DI=0:EndIf
c=0:EndIf:StopDrawing():Delay(8):If KeyboardPushed(1) Or LV<0:EX=1
EndIf:FlipBuffers():Until EX=1 Or NW=1:Until EX=1:EndIf:End

Wichtige Hinweise

I)
das programm läuft im screenmode. wenn ein window-mode bevorzugt wird:

den befehl

Code: Alles auswählen

If InitSprite() And InitKeyboard() And OpenScreen(800,600,16,"SV")

ersetzen durch

Code: Alles auswählen

If InitSprite() And InitKeyboard() And OpenWindow(1,0,0,800,600,13107201,"SV") And OpenWindowedScreen(WindowID(),0,0,800,600,0,0,0)

und den befehl

Code: Alles auswählen

If KeyboardPushed(1) Or LV<0

ersetzen durch

Code: Alles auswählen

If KeyboardPushed(1) Or LV<0 Or WindowEvent() = #PB_Event_CloseWindow

oder einfach downloaden:
http://www.kaerugaman.khost24.com/downl ... ingwin.exe

II)
bei verwendung der 2DDrawing.lib (Beta) mit der MultimediaBase.lib (Beta)
kann es zu grafikfehlern kommen.
(danke an Falko für die ermittlung der verantwortlichen LIBs)
wenn der hintergrund keine scrollenden Punkte, sondern tanzende streifen zeigt,
bitte die .exe downloaden:
http://www.kaerugaman.khost24.com/downl ... spring.exe

III)
bei wenigen compiler-versionen kann ein 'expression too complex' auftreten.
bitte auch in diesem fall die o.a. .exe downloaden.

IV)
wer interessiert ist, kann sich den formatierten und kommentierten source downloaden:
http://www.kaerugaman.khost24.com/downl ... ng_long.pb

[Andre]

Finde ich echt gelungen, gerade angesichts der wenigen Code-Zeilen.

[Kaeru Gaman]

Danke

[RaVeN99]

Respekt!
Wirklich nicht schlecht was du da abgeliefert hast!
Dafür das die Grafx on the fly erzeugt werden siehts auch ganz gut aus ^^
Und in 18 Zeilen son spielprinzipi unterzubringen - not bad ^^


Mfg
RaVeN

[mipooh]

War gerade in Linux als ich das hier las und hab's mal einfach probiert...
Sieht gut aus, nur die Tastatur reagiert hier nirgendwo...vermutlich sind's doch die Pfeiltasten?
Gruss
Mipooh

[Rob]

Lässt sich mit 3.91win zwar nicht compilieren (too complex expression), läuft aber in der exe-version prächtig. Lustige Flügeleffekte mit den Kreisen

Wobei es aber eigentlich 108 Zeilen sind, wenn man sie nicht per : zusammenfasst

[Hroudtwolf]

Das ist ein Beitrag zum 20 Zeiler Wettbewerb in der Purebasic-Lounge.
Laut den Regeln sind bis zu 5 Doppelpunkte pro Zeile erlaubt.
Keine externen Resourcen und nur die Standart LIBs.


PB-Lounge/20 Zeiler

[sbehrens]

Die Graphiken sind für on-the-fly Graphics sehr gut geworden, besser als ich malen könnte Ich war bei ganzen 750 Punkten Schick!

mfG
Basti

[orange-blue]

Lustiges Spiel, hab ich fast 1 stunde lang in DBSY gespielt

[vonTurnundTaxis]

cooooooooooool