Skandal!! - Bier enthält weibliche Hormone !

[hardfalcon]

Komisches Thema...
Naja egal, solange sich kein Forumuser angepisst fühlt...

[Batze]

@Sylvia:
Du schreibst ja nichtmal hin woher dus hast.
http://www.bambusratte.com/text-bierselbsttest.php

[freedimension]

Da müsste Sie schon ein abgeschlossenes Studium der Journalistik haben um herauszufinden von wem das ursprünglich stammt, das findest du auf so vielen Seiten und hat, zumindest für mich, schon soooo einen langen Bart

[bobobo]

Komisches Thema...
Naja egal, solange sich kein Forumuser angepisst fühlt...

apropos

Code: Alles auswählen

Enumeration
  #Window_0
  #Button_0
  #Button_1
  #Image_0
EndEnumeration

Global Image0
If OpenWindow(#Window_0, 216, 0, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
  Image0 = CreateImage(0, WindowWidth(),WindowHeight())
  If CreateGadgetList(WindowID())
    ButtonGadget(#Button_0, 0, 0, 70, 25, "Mach mal")
    ButtonGadget(#Button_1, 510, 0, 85, 25, "Ende")
    ImageGadget(#Image_0, 0, 35, 600, 265, Image0)
  EndIf
EndIf

Procedure pippi()
  StartDrawing(ImageOutput())
  Box(0,0,ImageWidth(),ImageHeight(),RGB(0,0,0))
  Ellipse(0,20,20,5,RGB(255,128,128))
  w=Random(ImageWidth())+100
  For x = 22 To w
    y=((x*x) / (Random(w)+100))+20
    Plot(x,y,RGB(255,255,0))
  Next x
  StopDrawing()
  SetGadgetState(#Image_0,image0)
  Delay(100)
  StartDrawing(ImageOutput())
  Box(0,0,ImageWidth(),ImageHeight(),RGB(0,0,0))
  StopDrawing()
  SetGadgetState(#Image_0,image0)
EndProcedure

Repeat
  Event = WaitWindowEvent()
  WindowID = EventWindowID()
  GadgetID = EventGadgetID()
  EventType = EventType()
  If Event = #PB_EventGadget
    If GadgetID = #Button_0
      pippi()
    ElseIf GadgetID = #Button_1
      End
    ElseIf GadgetID = #Image_0
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End

[Batze]

@freedimension:
eben weil das überall rumfleigt wäre es ja interressant gewesen woher sies hat.

[hardfalcon]

@bobobo: naja, meiner is größer... Nee, Spass, ich hab ganz andere Sorgen...

[Sylvia]

>>...eben weil das überall rumfleigt wäre es ja interressant gewesen woher sies hat.

Landete in gedruckter Form auf meinem Schreibtisch. Anschliessend ans
"Schwarze Brett" genagelt.

[Batze]

achso. Wollte es ja nur mal wissen.

[Franky]

@ Bobobo: Meins is besser :P

http://forums.purebasic.com/german/arch ... alisierung

Und Thema Milch: Wonach hat man eigentlich gesucht, als man entdeckt hat, dass Kühe Milch geben?

[MVXA]

@bobobo
Wenn du wirklich kleine gelbe Körner pisst, dann solltest du dringend mal
einen Arzt aufsuchen .