Hi marcus
There is a DIM error in your code at Line 172 (version 1.1h 17.03.03 )
The Dim is (17,5) and in your loops, you go to (16,9)
Edit: also on other DIM i found errors, array out of bounds, il try to fix it
Code: Select all
Dim dif.b(17,5)
Restore difficulte
For i=1 To 16
For j=5 To 9
;Debug Str(i) + " " + Str(j)
Read dif(i,j)
Next j
Next i
Edit: Does not work completely, my ghosts ar of the screen
Regards,
Berikco
http://www.benny.zeb.be/purebasic.htm