Mein erstes PB-Spielchen: BallaBalla

[Andreas_S]

boah, bin ich froh dass ich hier scheiße sagen darf...
ich hatte grad in nem anderen forum eine unsägliche diskussion,
wo man mir doch glatt für dieses wort ans bein pissen wollte.

Welches Forum war den das? Die Admins müssen dort 6 sein .

[Lavendem]

Hier ist ein Mirror (KEINE WARTEZEIT!): http://z15.zupload.com/download.php?fil ... path=52838
Ihr könnt die MD5's testen falls ihr glaubt ich hab da ein Virus eingepflanzt

[ReneMiner]

die meisten kennen nix anderes... aber rapidshare ist echt scheiße.

...
eine alternative wäre z.b. www.uploaded.to

Ich werds mir merken
Vieleicht hab ich ja wieder mal was hochzuladen...
Übrigens hab ich pb erst seit letztem Donnerstag und ballaballa hab ich in der Nacht von Samstag auf Sonntag geschrieben - hab gestern nur noch ein paar kleine Ausbesserungen vorgenommen und Kommentare reingeschrieben.
Da es mit 3d nicht ganz so flott geht spiel ich mit dem Gedanken vor pb4.2 noch einen Flipper zu basteln, ich bin aber kein guter Grafiker und auch mein "Tonstudio" ist eher dürftig

[Lavendem]

ReneMiner, Ich kann keinen besseren Host empfehlen als zUpload. www.zupload.com

PS: Ich habe BallaBalla schon ins zUpload hochgeladen.. zwei posts über

[ReneMiner]

Ich habs gesehen- Danke- ich spar mir deshalb das jetzt nochmal irgendwo anders hochzuladen (es sei denn ich müsste irgendwas ausbessern) - also wo wars jetzt gleich?

hier
http://rapidshare.com/files/44611905/Ba ... a.zip.html
hier
http://z15.zupload.com/download.php?fil ... path=52838
und das


Verbesserungswünsche im BallaBalla- Programmablauf sind natürlich selbst zu verwirklichen

[Lavendem]

Wie wärs mit einem Horizontal-Version? So dass der Schläger rechts ist und all die BallaBalla Dingen links?? Es sieht besser aus wenn ich mein Kopf 90 Grad drehe

[ReneMiner]

Dann rechtsklick doch bitte auf das Symbol Deines Grafikkarten-Herstellers,(ganz rechts in der Taskleiste)
wähle "Dreh-Einstellungen\90° drehen" ^^

[Christian H]

Hallo ReneMiner,

meine Tochter (10 Jahre) hat gefallen an deinem kleinem Spiel gefunden. Und nach dem sie mit bekommen hat das ich es verändern/erweitern kann sprudelt sie nur so über vor Ideen. Da sie das Ergebnis gerne an ihre Freunde weitergeben will muss die Rechtefrage vorher geklärt sein.
Dürfen wir dein Code erweitern und weiter geben?

Gruß Christian

PS: Ein Bonuslevel von Sarah

Code: Alles auswählen

  Data.s "1111110001111111" ; 00
  Data.s "2222222022222222" ; 01
  Data.s "3333333033333333" ; 02
  Data.s "4444448084444444" ; 03
  Data.s "885555:0:5555588" ; 04
  Data.s "::::::000:::::::" ; 05
  Data.s "0000000000000000" ; 06
  Data.s "0000000000000000" ; 07
  Data.s "0000000000000000" ; 08
  Data.s "0000000000000000" ; 09
  Data.s "0000000000000000" ; 10
  Data.s "0000000000000000" ; 11 

[ReneMiner]

Der Code sei Euer, Ihr dürft damit machen was Ihr wollt - nur gewinnbringend vertreiben dürft Ihr ihn nicht.
Wenn Ihr allerdings sehr viele neue Levels bastelt dann solltet Ihr beim Eingabe verabreiten, Ball abfeuern die Geschwindigkeit etwas herunterregeln so das es auf Level 20 noch spielbar bleibt.
Gleiches gilt in der Prozedur "Stein getroffen" - dort wird am Ende die Geschwindigkeit für Zusatz-Bälle festgelegt - obwohl es bei den Zusatzbällen nicht sooooo dramatisch ist wenn sie etwas schneller wären.

Auch wenn der Code in einem Buch abgedruckt wird hab ich kein Problem damit. Die "kommerzielle" Nutzung des Codes sei einzig den Betreibern dieses Forums und den pb-Machern erlaubt die es nach ihrem Gutdünken als Beispiel verwenden dürfen.


Ansonsten würd ich mich freuen zu sehen was Ihr daraus gemacht habt

[Christian H]

Ansonsten würd ich mich freuen zu sehen was Ihr daraus gemacht habt

Sobald eine Version vorliegt die nicht nach Baustelle ausschaut werde ich sie hier veröffentlichen.

Ich habe mal die Steuerung verändert.

Code: Alles auswählen

    Case #Befehl_GehLinks
      
      If vorherigerBefehl = #Befehl_GehLinks  
        If PaddelSpeed < 16
          PaddelSpeed = PaddelSpeed + 1 
        EndIf  
      Else
        PaddelSpeed = 1
      EndIf
       
      If PaddelLinks - PaddelSpeed < 0 
          PaddelSpeed = PaddelLinks
      EndIf        
          
      If PaddelLinks >= (PaddelSpeed )
        PaddelLinks = PaddelLinks - PaddelSpeed
        ResetList(Ball())
        While NextElement(Ball())
            If Ball()\Geschw = 0
              Ball()\Pos\X = Ball()\Pos\X - PaddelSpeed
            EndIf
        Wend      
      EndIf
  
    Case #Befehl_GehRechts
    
      If vorherigerBefehl = #Befehl_GehRechts 
        If PaddelSpeed < 16
          PaddelSpeed = PaddelSpeed + 1
        EndIf  
      Else
        PaddelSpeed = 1
      EndIf  
      
      If PaddelLinks + PaddelBreit + PaddelSpeed > 511
         PaddelSpeed = 512 - PaddelBreit - PaddelLinks
      EndIf   
                  
      If PaddelLinks + PaddelBreit < 511 + PaddelSpeed
        PaddelLinks = PaddelLinks + PaddelSpeed
        ResetList(Ball())
        While NextElement(Ball())
          If Ball()\Geschw = 0
            Ball()\Pos\X = Ball()\Pos\X + PaddelSpeed
          EndIf      
        Wend
      EndIf
  
  EndSelect
  
;  Debug PaddelSpeed
  

Ist im ersten Moment etwas komisch, aber wen man sich daran gewöhnt hat besser als vorher. (So die einstimmige Meinung hier im Haushalt.)

Gruß Christian