Maybe you should say it's BPlus code. Anyway here's a BMax conversion:
Strict AppTitle = "Small game by nawitus - F2 to restart" Global Map[9,9] Map[4,4] = 1 Global C=1,lastx=4,lasty=4 Graphics 288,288,0,2 Repeat DrawRect 0,0,96,96 DrawRect 0,192,96,96 DrawRect 192,0,96,96 DrawRect 192,192,96,96 For Local x=0 To 8 For Local y=0 To 8 ccDrawRectOutline x*32,y*32,32,32 If Map[x,y] Then DrawText Map[x,y],x*32+10,y*32+10 Next Next If MouseHit(1) Then Local mx=MouseX() Local my=MouseY() Local tx = Floor(mx/32) Local ty = Floor(my/32) If (tx>-1) And (ty>-1) And (tx<9) And (ty<9) If Map[tx,ty] = 0 If Not(tx<3 And ty<3) If Not(tx>5 And ty>5) If Not(tx<3 And ty>5) If Not(tx>5 And ty<3) If check(tx,ty) C=c+1 Map[tx,ty] = C lastx=tx lasty=ty EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf If KeyHit(KEY_F2) For Local x=0 To 8 For Local y=0 To 8 Map[x,y]=0 Next Next C=1 Map[4,4]=1 lastx=4 lasty=4 EndIf Flip Cls Until KeyHit(KEY_ESCAPE) Function Check(tx,ty) If (Abs(lastx-tx) = 2) And (Abs(lasty-ty)=1) Return 1 If (Abs(lastx-tx) = 1) And (Abs(lasty-ty)=2) Return 1 End Function ' ----------------------------------------------------------------------------- ' ccDrawRectOutline ' ----------------------------------------------------------------------------- Function ccDrawRectOutline(x,y,w,h) 'trim w = w-1 h = h-1 DrawLine(x,y,x+w,y,0) DrawLine(x+w,y,x+w,y+h,0) DrawLine(x+w,y+h,x,y+h,0) DrawLine(x,y+h,x,y,0) End Function