When I finish Labyrinth I plan on making a Yipe Style Game.
If GM 4 comes out quick enough I will be able to insert a text field as well.
Hey Al, will it be possible to have different text field positions on each card?
Anyone have the Sc version of V6?
Anyone have the Sc version of V6?-Gandolf
LET gridlayout$ = "" LET northcard = 0 LET southcard = 0 LET eastcard = 0 LET westcard = 0 LET playerY = gridY * 44 LET playerY = playerY - 39 LET playerX = gridX * 44 LET playerX = playerX - 39 LET moveY = gridY LET moveX = gridX SPRITE 15 playerX playerY $playersprite$$ '----PLAYER CODE-------------------------------------------------------------------- ------------ ON KEYDOWN LET newtile$ = "empty" IF keydown$ = "UPARROW" THEN LET moveY = gridY - 1 IF keydown$ = "DOWNARROW" THEN LET moveY = gridY + 1 IF keydown$ = "LEFTARROW" THEN LET moveX = gridX - 1 IF keydown$ = "RIGHTARROW" THEN LET moveX = gridX + 1 '----GRID CODE-------------------------------------------------------------------- --------------- LET moveXY = 0 LET moveXY = 7 * moveY LET moveXY = moveXY - 7 LET moveXY = moveXY + moveX LET newtile$ = MID$ gridlayout$ moveXY 1 IF newtile$ = "0" THEN LET newtile$ = "empty" IF newtile$ = "1" THEN LET newtile$ = "wall" IF newtile$ = "2" THEN LET newtile$ = "portal 1" '---/GRID CODE-------------------------------------------------------------------- --------------- IF moveY < 1 THEN LET gridY = 7 GOTOCARD northcard END IF IF moveY > 7 THEN LET gridY = 1 GOTOCARD southcard END IF IF moveX > 7 THEN LET gridX = 1 GOTOCARD eastcard END IF IF moveX < 1 THEN LET gridX = 7 GOTOCARD westcard END IF IF newtile$ = "portal 1" THEN LET gridY = 0 LET gridX = 0 GOTOCARD 0 END IF IF newtile$ = "empty" THEN IF keydown$ = "UPARROW" THEN LET playerY = playerY - 44 IF keydown$ = "DOWNARROW" THEN LET playerY = playerY + 44 IF keydown$ = "LEFTARROW" THEN LET playerX = playerX - 44 IF keydown$ = "RIGHTARROW" THEN LET playerX = playerX + 44 LET gridY = moveY LET gridX = moveX END IF IF newtile$ = "wall" THEN LET moveY = gridY LET moveX = gridX END IF SPRITE 15 playerX playerY END KEYDOWN '---/PLAYER CODE-------------------------------------------------------------------- ------------
LET gridlayout$ = ""  LET northcard = 0  LET southcard = 0  LET eastcard = 0  LET westcard = 0  LET playerY = gridY * 44  LET playerY = playerY - 39  LET playerX = gridX * 44  LET playerX = playerX - 39  LET moveY = gridY  LET moveX = gridX   CREATESPRITE 15, "player"MOVESPRITE 15, playerx, playery   '----PLAYER CODE--------------------------------------------------------------------  ------------  ON KEYDOWN  LET newtile$ = "empty"  IF keydown$ = "UPARROW" THEN LET moveY = gridY - 1  END IFIF keydown$ = "DOWNARROW" THEN LET moveY = gridY + 1  END IFIF keydown$ = "LEFTARROW" THEN LET moveX = gridX - 1  END IFIF keydown$ = "RIGHTARROW" THEN LET moveX = gridX + 1  END IF'----GRID CODE--------------------------------------------------------------------  ---------------  LET moveXY = 0  LET moveXY = 7 * moveY  LET moveXY = moveXY - 7  LET moveXY = moveXY + moveX  LET newtile$ = MID$(gridlayout$, moveXY, 1)IF newtile$ = "0" THEN LET newtile$ = "empty"  END IFIF newtile$ = "1" THEN LET newtile$ = "wall"  END IFIF newtile$ = "2" THEN LET newtile$ = "portal 1"  END IF'---/GRID CODE--------------------------------------------------------------------  ---------------  IF moveY < 1 THEN   LET gridY = 7   GOTOCARD northcard  END IF  IF moveY > 7 THEN   LET gridY = 1   GOTOCARD southcard  END IF  IF moveX > 7 THEN   LET gridX = 1   GOTOCARD eastcard  END IF  IF moveX < 1 THEN   LET gridX = 7   GOTOCARD westcard  END IF  IF newtile$ = "portal 1" THEN   LET gridY = 0   LET gridX = 0   GOTOCARD 0  END IF  IF newtile$ = "empty" THEN   IF keydown$ = "UPARROW" THEN LET playerY = playerY - 44  END IF  IF keydown$ = "DOWNARROW" THEN LET playerY = playerY + 44  END IF  IF keydown$ = "LEFTARROW" THEN LET playerX = playerX - 44  END IF  IF keydown$ = "RIGHTARROW" THEN LET playerX = playerX + 44  END IF  LET gridY = moveY   LET gridX = moveX  END IF  IF newtile$ = "wall" THEN   LET moveY = gridY   LET moveX = gridX  END IF   MOVESPRITE 15, playerx, playeryEND KEYDOWN  '---/PLAYER CODE--------------------------------------------------------------------  ------------ Â