Problem With expecting ) error...
Blitz3D Forums/Blitz3D Programming/Problem With expecting ) error...
| ||
Please, Help me, before I pull all my hair out.. I have been trying to figure out what is wrong, I get the same type of error, when i move the types out to seperate files, someone needs to write a tutorial on how to correctly break the parts of a game out into seperate files, without getting wierd errors. Anyways here is the source, please help me find the logic error. Thanks ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ; Filename: Alpha_functions.bb ; Written: By - Ken Cornett ; [P.K.E.] - Pain Killa Entertainment(tm) - [P.K.E.] ; Copyright (c) 2004 - All Rights Reserved. ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- #Option Explicit Include "alpha_consts.bb" Global tmpcount = 0 Global cntx, cnty Global GX#, GY# Global mxspd#, myspd# Type fruititems Field picture Field gridx Field gridy Field time Field lives Field score Field matrix Field nextitem Field ID Field particles End Type ; Type Variables Declared and Setup 4 Use. Dim fruit.fruititems(18) Dim fruitgrid.fruititems(15,15) Dim grid(15,15) For tmpcount = 0 To 18 fruit.fruititems(tmpcount) = New fruititems Next For cnty = 0 To 15 For cntx = 0 To 15 fruitgrid.fruititems(cntx,cnty) = New fruititems Next Next Function Setup_Game() Graphics 1024, 768 ; Open graphics display SeedRnd MilliSecs () End Function Function Load_Fruit() Local filename$ For tmpcount = 0 To 18 filename$ = "../../media/image" + Str(tmpcount) + ".jpg" fruit(tmpcount)\picture = LoadImage(filename$) fruit(tmpcount)\gridx = 1 fruit(tmpcount)\gridy = 1 fruit(tmpcount)\time = 0 fruit(tmpcount)\lives = 0 fruit(tmpcount)\score = 0 fruit(tmpcount)\matrix = 0 fruit(tmpcount)\nextitem = 0 fruit(tmpcount)\ID = tmpcount fruit(tmpcount)\particles = LoadImage("../../media/particle1.jpg") Next End Function Function Read_Grid() Local x,y ; Grid Positioning x,y Local tempi ; Hold the currently read number for checking later. Local gridval Restore mygrid ;go back to our data statements. For y = 0 To 15 For x = 0 To 15 Read gridval tempi = gridval If tempi = 9 tempi = Rand(1,8) EndIf If tempi = 0 tempi = Rand(14,18) EndIf grid(x,y) = tempi Next Next End Function Function Setup_Grid() Read_Grid() For cnty = 0 To 15 For cntx = 0 To 15 fruitgrid(cntx,cnty)\picture = CopyImage(hold(grid(cntx,cnty))\picture) fruitgrid(cntx,cnty)\gridx = cntx fruitgrid(cntx,cnty)\gridy = cnty fruitgrid(cntx,cnty)\time = hold(grid(cntx,cnty))\time fruitgrid(cntx,cnty)\lives = hold(grid(cntx,cnty))\lives fruitgrid(cntx,cnty)\score = hold(grid(cntx,cnty))\score fruitgrid(cntx,cnty)\matrix = hold(grid(cntx,cnty))\matrix fruitgrid(cntx,cnty)\nextitem = hold(grid(cntx,cnty))\nextitem fruitgrid(cntx,cnty)\ID = hold(grid(cntx,cnty))\ID fruitgrid(cntx,cnty)\particles = CopyImage(hold(grid(cntx,cnty))\particles) Next Next End Function Function Draw_Fruit() Local countx, county SetBuffer BackBuffer() For county = 0 To 15 For countx = 0 To 15 DrawImage(fruitgrid(countx,county)\picture,countx * 32, county * 32) Next Next End Function Function Main_Game_Loop() Setup_Game() Load_Fruit() Setup_Grid() Draw_Fruit() While Not KeyDown(1) ;keep looping until ESC pressed Flip ;swap front and back buffers Wend ; continue until progrgram ends End Function Main_Game_Loop() .mygrid Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Data 0,51,50,50,50,50,50,50,50,50,50,50,50,50,52, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,60, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,70, 0 Data 0,81,80,80,80,80,80,80,80,80,80,80,80,80,82, 0 Data 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Thanks, to anyone whom can help me with this wierd error message... Error Expecting ) here. in this line-> fruitgrid(cntx,cnty)\picture = CopyImage(hold(grid(cntx,cnty))\picture) right in the cnty variable middle for some reason. Thanks. |
| ||
Whenever you get problems like this, it's always best to simplify. Regard:fruitgrid(cntx,cnty)\picture = CopyImage(hold(grid(cntx,cnty))\picture) becomes: grid_ref=grid(cntx,cnty) image=hold(grid_ref)\picture fruitgrid(cntx,cnty)\picture = CopyImage(image) In this instance, blitz is a bit tricky when it comes to arrays and types. so: array(1)\plop usually throws an error. Try: a.fruitItem=array(1) a\plop |
| ||
Also, includes are easy. Here's an example:; type.bb type a field b end type ; update.bb function updateGame() ; update here, baby end function and in the main file (the file you run) file: include "type.bb" include "update.bb" ; create a type a_new_type.a=new a a\b=25 updateGame() end The location of the main and include files is: c:\games\my new game\main.bb c:\games\my new game\update.bb c:\games\my new game\type.bb |