Code: Select all
function nb(nbs)
g = 0
for fx = -1 to 1
for fy = -1 to 1
if grid(x,y) = nbs then g = g + 1
next fy
next fx
nb() = g ' <--- I get an error here
end function
Code: Select all
function nb(nbs)
g = 0
for fx = -1 to 1
for fy = -1 to 1
if grid(x,y) = nbs then g = g + 1
next fy
next fx
nb() = g ' <--- I get an error here
end function
Code: Select all
Return MyValue
Code: Select all
Var = MyFunction()
Code: Select all
Var = Double(2)
Print Var
Print Double(2)
WaitKey
Function Double(Par)
Return Par*2
EndFunction