Blöder Ball

[Green Snake]

ohne worte

[benny]

Spielansatz ist weltklasse

[bluejoke]

Super!

[Lukaso]

Geil

[Andre]

Jo, geiles Prog! Showcase, Showcase, Showcase!

Showcase vielleicht nicht gleich, aber für das neue CodeArchiv auf jeden Fall schonmal abgespeichert.

[DarkDragon]

Dieses Gummiband wie du es nennst finde ich besonders geil, erinnert mich an diese Plasmaleuchten(ich hab ne Spiralförmige, ihr kennt sie wohl eher als Kugel und wenn man dranfasst gehen die Blitze an die stelle, wo ihr die Kugel berührt.)

[dllfreak2001]

Paar ander Blitze:

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()
ExamineDesktops()
Global sh.l,sw.l,sd.l
sw = DesktopWidth(0)
sh = DesktopHeight(0)
sd = DesktopDepth(0)

OpenScreen(sw,sh,sd,"PlasmaFlash_v1.0")

; Meine Blitzprozedur
;PlasmaFlash(StartpositionX,StartpositionY,EndPositionX,EndPositionY,Rot,Grün,Blau,Qualität-Menge der Unterteilungen,Menge der einzelblitze,zoom,Zufallsradius)
Procedure.b   PlasmaFlash(sposx.l, sposy.l, eposx.l, eposy.l, fred.l, fgreen.l, fblue.l,quality.l,density.l,size.l,radius.l)
   pi.f = 3.1415926
   
   If density => 0 And quality > 0 And size > 0
        For x = 0 To density
            olposx.l = sposx.l
            olposy.l = sposy.l
            For y = 0 To quality
                ntn.f = (olposy-eposy)/(olposx-eposx)
                nbr.f = ATan(ntn)
                rad.f = (nbr/pi)*180
                If  eposx > olposx
                    rad + 180
                EndIf
                nx = Cos(2*pi*((Random(radius)-radius/2+180+rad)/360))*(size/((quality+1)/2))
                ny = Sin(2*pi*((Random(radius)-radius/2+180+rad)/360))*(size/((quality+1)/2))
                If Sqr(Pow(olposx-eposx,2)+Pow(olposy-eposy,2)) < (size/quality)
                    nx = eposx-olposx
                    ny = eposy-olposy
                EndIf
                Line(olposx,olposy,nx,ny,RGB(fred-(fred / quality)*y,fgreen-(fgreen / quality)*y,fblue-(fblue / quality)*y))    
                olposx + nx
                olposy + ny  
            Next
        Next
        ProcedureReturn 1
    Else
        ProcedureReturn 0
    EndIf
EndProcedure

qual = 200
den = 1
sz = 200
dg = 180

rd = 200
gr = 50
bl = 10
Repeat
    ExamineKeyboard()
    ExamineMouse()
    
    
    If KeyboardPushed(#PB_Key_A)
        qual + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_Z)
        qual - 1
    EndIf
    
    If KeyboardPushed(#PB_Key_S)
        den + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_X)
        den - 1
    EndIf  
    
    If KeyboardPushed(#PB_Key_D)
        sz + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_C)
        sz - 1
    EndIf  
    If KeyboardPushed(#PB_Key_F)
        dg + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_V)
        dg - 1
    EndIf      
     If KeyboardPushed(#PB_Key_G)
        rd + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_B)
        rd - 1
    EndIf         
    If KeyboardPushed(#PB_Key_H)
        gr + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_N)
       gr  - 1
    EndIf   
    If KeyboardPushed(#PB_Key_J)
        bl + 1
    EndIf
    
    If KeyboardPushed(#PB_Key_M)
        bl - 1
    EndIf   
    
    
    StartDrawing(ScreenOutput())
    Circle(sw/2,sh/2,16,RGB(70,70,70))

    PlasmaFlash(sw/2,sh/2,MouseX(),MouseY(),rd,gr,bl,qual,den,sz,dg)
    
    DrawingMode(1)
    FrontColor(255,255,255)
    Locate(0,0)
    DrawText("Rot: " + Str(rd)+"   (+G -B)")
    Locate(0,16)
    DrawText("Grün: " + Str(gr)+"   (+H -N)")
    Locate(0,32)
    DrawText("Blau: " + Str(bl)+"   (+J -M)")
    Locate(0,48)
    DrawText("Qualität: " + Str(qual)+"   (+A -Y)")
    Locate(0,64)
    DrawText("Dichte: " + Str(den)+"   (+S -X)")
    Locate(0,80)
    DrawText("Größe: " + Str(sz)+"   (+D -C)")
    Locate(0,96)
    DrawText("Radius: " + Str(dg)+"   (+F -V)")

    Line(MouseX()-8,MouseY(),16,0,RGB(255,255,0))
    Line(MouseX(),MouseY()-8,0,16,RGB(255,255,0))
    StopDrawing()
    
    FlipBuffers()
    ClearScreen(0,0,0)

Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()
End

Mal ein anderer Blitzcode

[NicTheQuick]

Nach 30 gefangenen Kugeln ist mir die erst durch die Lappen gegangen.

[125]

Hi,
Das Game ist Top, ich zogg jetz seit einer viertel Stunde

mfg
125

[SlapY]

Hi,
lol geht voll ab xD ! ..ne nette sache das .

Bye
Slap