| Zäher Sumpf (Add-on für Worms-Clones) von ??? |
| Ich wollte mal so ne Palette an schönen Effekten und Add.ons für Worms-Clones runterproggen. So, als erstes das Wasser: Leider kein schönes Meeressalzwasserwellenschlagambiente, sondern ein hinterlistiges, gefährliches, atomverseuchtes Todessumpfambiente: [code:1:98f87fc978] Const WellenPunkte = 50 Dim WelleSteigung#(WellenPunkte) Dim WelleZufall(WellenPunkte) Graphics 640,480 SetBuffer BackBuffer() While Not KeyDown(1) Cls Wellen Flip Wend End Function Wellen() mx = MouseX() my = MouseY() Color 255,0,0 Oval mx-3,my-3,6,6,0 Color 255,255,255 Hoehe = 240 - my min = 640 minx = 0 For i = 1 To WellenPunkte tx = 640 / WellenPunkte * (i) If Abs(mx - tx) < min Then min = Abs(mx - tx) minx = i Next For i = 1 To WellenPunkte - 1 If (i = minx) And (MouseDown(1)) And (my > 240 - WelleSteigung#(i)) Then WelleSteigung#(i) = Hoehe Else If (Not i = minx) Then WelleSteigung#(i) = (WelleSteigung#(i-1)+WelleSteigung#(i)+WelleSteigung#(i+1)) / 3.01 Else If Not MouseDown(1) Then WelleSteigung#(i) = (WelleSteigung#(i-1)+WelleSteigung#(i)+WelleSteigung#(i+1)) / 3.01 EndIf EndIf Next For i = o To WellenPunkte WelleZufall(i) = (WelleZufall(i) + Rnd(15)) Mod 360 Next For i = 1 To WellenPunkte - 1 x1# = 640 / WellenPunkte * (i - 1) y1# = 240 - WelleSteigung#(i - 1) + Sin(WelleZufall(i - 1)) * 1 x2# = 640 / WellenPunkte * i y2# = 240 - WelleSteigung#(i) + Sin(WelleZufall(i)) * 1 Line x1#,y1#,x2#,y2# Next End Function[/code:1:98f87fc978] Zur Steuerung: Die Maus simuliert einen schweren Gegenstand, der eigentlich im Sumpf langsam untergehen soll. Also: Einfach linke Maustaste klicken, die Maus bewegen und sehen, was passiert. Wenn ihr sonst noch welche kleinen Scripts für eure nicht fertiggestellten Spiele braucht, sagt mir bitte bescheid! ;) |