Graphics 800,600
SetBuffer BackBuffer()
HidePointer
While Not KeyHit(1)
If Not MouseDown(1)
Cls
EndIf
zahl=Rnd(0,455)
Text Rnd(0,800),Rnd(0,600),zahl
Rect MouseX(),MouseY(),15,15
Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30)
Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30)
Rect Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0
Oval Rnd(0,800),Rnd(0,600),Rnd(15,30),Rnd(15,30),0
Color Rnd(0,255),Rnd(0,255),Rnd(0,255)

Flip
Wend
End

Graphics3D 200,200,0,2
AppTitle "Dart ©darth" ;hahaha :) tolles wortspiel
Type shot
 Field sx
 Field sy
End Type
While Not KeyHit(1)
 Color 255,255,255 : Oval -25,-25,250,250
 Color 0,0,0 : Oval 0,0,200,200
 Color 255,255,255 : Oval 25,25,150,150
 Color 0,0,0 : Oval 50,50,100,100
 Color 255,255,255 : Oval 75,75,50,50
 Color 0,0,0 : Oval 95,95,10,10
 For s.shot=Each shot
  Color 125,125,125 : Oval s\sx-3,s\sy-3,6,6
 Next
 If MouseHit(1) Then
  If Sqr((100-mx)^2+(100-my)^2)<5 Then point=point+50
  If Sqr((100-mx)^2+(100-my)^2)>10 And Sqr((100-mx)^2+(100-my)^2)<25 Then point=point+40
  If Sqr((100-mx)^2+(100-my)^2)>25 And Sqr((100-mx)^2+(100-my)^2)<50 Then point=point+30
  If Sqr((100-mx)^2+(100-my)^2)>50 And Sqr((100-mx)^2+(100-my)^2)<75 Then point=point+20
  If Sqr((100-mx)^2+(100-my)^2)>75 And Sqr((100-mx)^2+(100-my)^2)<100 Then point=point+10
  If Sqr((100-mx)^2+(100-my)^2)>100 And Sqr((100-mx)^2+(100-my)^2)<125 Then point=point+5
  s.shot=New shot : s\sx=mx : s\sy=my
  no=no+1
 EndIf
 Color 200,0,0 : Oval mx-3,my-3,6,6
  If MilliSecs()-settime>250 Then ;"timer" funktion
   settime=MilliSecs()
   mx=Rnd(0,200) : my=Rnd(0,200)
  EndIf
 Color 200,0,0 : Text 175,5,point ;punktzahl
  If no>0 Then Text 175,15,point/no ;durchschnittliche pt pro schuss
Flip 0 : Cls
Wend : End

Graphics 400, 300, 0, 2

Print "Ich denke an etwas extrem cooles."
Ding$ = Input$("An was, glaubst du? -> ")
If Ding$ <> "Tobi" Then
   Print "Verkackt."
Else
   Print "Du kannst Gedanken lesen!"
   Print "*an anderes als Teschmacher im Anzug denk*"
EndIf
WaitKey

End

x=640
y=480
Graphics x, y, 0, 2
SetBuffer BackBuffer()
Repeat
Locate Rnd(1,x),Rnd(1,y)
c=c+1
If c=300 Then Cls:c=0

Print "Schwachsinnig"
Flip
Until KeyDown (1)=1

win=CreateWindow("GG",0,0)
HideWindow(win)
SetBuffer desktopbuffer()
Repeat
   Text Rand(0,800),Rand(0,600),"Schwachsinn?"
Forever

Graphics 640,480
SetBuffer BackBuffer()
speed=3

Repeat
   Oval x,230,20,20
   x=x+speed
   If x>620 Or x<0 Then speed=speed*(-1)
   Flip : Cls
   Delay 10
Until KeyHit(1)

;Es geht hier darum, möglichst schnell einen Stackoverflow
;durch Tastengehämmer zu erzilen. Viel Spaß wünscht euer Keks!
;(Wer's schafft, darf sich freuen)

Blubb()

Function Blubb(i = 0)
   WaitKey()
   Print i
   Blubb(i+1)
End Function

ficken = Rnd(3)
mitleid = 0
Select ficken
Case 0
Print "Ficken is geil"
Case 1
Print "Ficken wär schön, aber nur mit Gleichgeschlechtlichen"
Case 2
Print "Dicke Titten ahoi"
Print "(.)(.)"
Print "aber bitte nicht: (.)(:)"
Print "oder"
Print "°(.)°"
Case 3
Print "bin leider impotent"
mitleid = mitleid + 10
End Select

Print "Dein Mitleid beträgt: " + mitleid

AppTitle "Pimp Your Ram!"

Type Lol
   Field Omg
   Field HAX
   Field Rofl
End Type

While True
   MrKeks.Lol = New Lol
Wend

For i=0 To 9;999 ;damit keine "schaden" entsteht, falls das wirklich jemand auszuführt^^
   pfad$ = "lol"+i+".txt"
   dat = WriteFile(pfad)
   WriteLine dat,"LoL :D"
   CloseFile(dat)
Next

.start
knuff=Rand(1,100)

While Not KeyHit(1)

lol#=Input("Geb eine Zahl ein:")

If lol#=knuff Then
   Print "Du hast es geschafft!Die gesuchte Zahl war "+knuff
   Goto start
End If

If lol#<knuff Then
   Print "Diese Zahl ist zu klein!"
End If

If lol#>knuff Then
   Print "Diese Zahl ist zu groß!"
End If

Wend

Graphics 400,300,32,2

SeedRnd MilliSecs()

Timelimit = 250

Ammo = 30

Repeat
   Cls
   ;Info texts
   Text 30,10, Deaths
   Text 10,10, Score
   Text 360,280, Ammo
   ;enemies Random
      If enemy = False Then If Rand(1,100) = 1 Then enemy = True
   ;Crossfade
      Color 255,255,255
      Line 200,155,200,150
      Line 200,145,200,140
      Line 207,148,202,148
      Line 197,148,192,148
   ;Enemies Graphics + Time
      Color 0,0,255
      If enemy = True Then
         Oval 199,147,3,3
         Time = Time + 1
      EndIf
      
      If Time > Timelimit Then
         Color 255,0,0
         For i = 1 To 150
            Rect 1,1,400,i*2
            Flip
         Next
         Color 255,255,255
         Text 125,150, "Terrorists win!"
         Text 30,10, Deaths
         Text 10,10, Score
         Flip
         FlushMouse
         WaitMouse
         End
      EndIf
      
   ;shoot
      If MouseHit(1) Then If Ammo > 0 Then
      
         If enemy = True Then
            enemy = False
            Time = 0
            score = score + 1
            Timelimit = Timelimit / 1.25
            Ammo = Ammo - 1
         Else
            Ammo = Ammo - 1
         EndIf
      EndIf
   Flip   
Until KeyDown(1)
End