;randErrGen by Blitzbasic meeting Berlin 11-12.7.2008
;for best taste, activate debugmode.
;this function comes with 13 unique special errors,
;some very easy and often to find, some very rare and mighty.
;Version 1.1
;LOG
;1.1 - Rechtsschreibfehler ausgebessert

randomErrorGenerator()

;BENUTZUNG AUF EIGENE GEFAHR
Function randomErrorGenerator()
   SeedRnd MilliSecs()
   Select Rand(0,15)
      Case 0
         d.dummy = Null
         Print d\crash
      Case 1
         b = 0
         a= 5/b
      Case 2
         MoveEntity (a,0,0,0)
      Case 3
         Local arr[2]
         c = 3
         b = arr[c]
      Case 4
         bank = CreateBank(0)
         PeekInt(bank,2)
      Case 5
         Graphics 800,600,32,1
         .here
         doNothing()
         Goto here
      Case 6
         Graphics 333,666,32,1
      Case 7
         CreateCamera()
      Case 8
         ReadInt(ReadFile("\/:*?<>|"))
      Case 9
         Repeat
            CreateBank(1024*2^16)
         Forever
      Case 10
         Graphics 400,300
         SetBuffer BackBuffer()
         For i=20 To 99
            Cls
            Text 10,120,"Status MEGAPROJECT!!! : "+i+"%"
            Delay Rand(100)
            Rect 0,140,i*4,20
            Flip
         Next
         RuntimeError "Project cancelled: Keinen Grafiker gefunden."
      Case 11
         DrawImage(0,0,0)
      Case 12
         SetGfxDriver(2^16)
      Case 13;ultimate error (!!! crashes XP !!!)
         stream = WriteFile("recurrence.bat")
         WriteLine(stream,"echo doomed")
         WriteLine(stream,":label")
         WriteLine(stream,"start recurrence.bat")
         WriteLine(stream,"goto label")
         CloseFile stream
         ExecFile("recurrence.bat")
         RuntimeError "How fast can you click?"
      Case 14
         longText$ = "1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish1234567890ThisStreamIsJustRubbish"
         Repeat
            longText = longText + longText
            AppTitle longText
         Forever
      Default
         RuntimeError "Can't find error (or can't decide which one to take)"
   End Select
End Function

Function doNothing()
End Function


Type dummy
   Field crash
End Type

Graphics3D 640,480,0,2
Local x=CreatePivot()
Local y=CopyMesh(x)