I found this code in the CodeBase but I get this error when trying to run ?
How can I fix this as I'm real new to this .
link to code
http://darkbasic.thegamecreators.com/?m=codebase_view&i=af7f83096222943ee92f413e07ace9b5
---------------------------
DarkBASIC Professional Editor
---------------------------
#100001: Could not determine parameter type of '0 `reset T' at line 63.
` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
`Created by "ToneArti" (tonechild2000@yahoo.com)
`Free Source for all who want to learn more about DBPro
`Made on Nov 30th, 2003
`Special Thanks goes to:
`Beginner's Guide to DB Programming (a great book for beginners like me!)
`CattleRustler from the forums
`DBoy780 from the forums
`Thanks you two!!!! without you I wouldnt have been able to make this thing!
load image "reblock.png",1
load image "grblock.png",2
load image "ylblock.png",3
load image "prblock.png",4
load image "blblock.png",5
load image "eraser.png",6
load image "blank.png",7
DIM Top$(4)
DIM Button$(6)
DIM Grid(118)
FileMenu:
DATA 1
DATA "New","Load","Save","Exit"
Buttons:
DATA 1
DATA "reblock","grblock","ylblock","prblock","blblock","eraser"
Remdata = 0
`Set variables
Restore FileMenu
For I = 0 to 4
Read Top$(I)
next I
Restore Buttons
For I = 0 to 6
Read Button$(I)
Next I
create bitmap 1,640,480
`Create Grid
Create_Grid:
CLS
for I = 60 to 580 step 60
line I,65,I,307
next I
for I = 64 to 308 step 22
line 60,I,541,I
next I
Create_Menu:
line 1,28,640,28
line 1,440,640,440
For I = 1 to 220 step 60
Inc T
if T > 4 then T = 4
Text I,1,Top$(T)
next I
T=0 `reset T
For I = 120 to 420 step 60
Inc T
if T > 6 then T = 6
Paste Image T,I,450
next I
set current bitmap 0
none
