Runtime error 105 - file does not exist at line 36

Author

Message

SOPA78

15

Years of Service

User Offline

Joined: 19th Feb 2011

Location:

Posted: 19th Feb 2011 08:34 Edited at: 19th Feb 2011 12:52

Link

I get Runtime error 105 - file does not exist at line 36.
But when i saved it last night it still worked!
Does any one know how to solve it?
This is my code.

Set Display Mode 1000,950,0
Sync On: Sync Rate 60
Load Image "Images\menu.jpg" ,1
Paste Image 1,-5,0
Load Music "SoundTrack\m1.mp3",1
loop music 1
Set Text Opaque

CENTER TEXT 320,300, "Safari Car"
CENTER TEXT 320,250, "F1"
CENTER TEXT 320,200, "Normal Car"
CENTER TEXT 320,150, "Police Car"

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  If Mc=1 Then Gosub CheckRegion
  Sync
Loop
End

CheckRegion:

If Mx > 300 and My > 280 And Mx < 340 And My < 320
      stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car1\small.3DS" ,1
LOAD IMAGE "Objects\car1\small4x4.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END

Endif
  
  
If Mx > 300 and My > 230 And Mx < 340 And My < 270
    stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car2\H-F1 Car-Move.x" ,1
LOAD IMAGE "Objects\car2\f1car.dds" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END

Endif
  If Mx > 300 and My > 180 And Mx < 340 And My < 220
    stop music 1
    CLS
    
    Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car3\car.3DS" ,1
LOAD IMAGE "Objects\car3\car.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END
   
  Endif

If Mx > 300 and My > 130 And Mx < 340 And My < 170
    stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car4\policeca.3DS" ,1
LOAD IMAGE "Objects\car4\policeCa.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
ENDIF
END

+ Code Snippet

Set Display Mode 1000,950,0
Sync On: Sync Rate 60
Load Image "Images\menu.jpg" ,1
Paste Image 1,-5,0
Load Music "SoundTrack\m1.mp3",1
loop music 1
Set Text Opaque

CENTER TEXT 320,300, "Safari Car"
CENTER TEXT 320,250, "F1"
CENTER TEXT 320,200, "Normal Car"
CENTER TEXT 320,150, "Police Car"

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  If Mc=1 Then Gosub CheckRegion
  Sync
Loop
End

CheckRegion:

  If Mx > 300 and My > 280 And Mx < 340 And My < 320
      stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car1\small.3DS" ,1
LOAD IMAGE "Objects\car1\small4x4.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END

  Endif
  
  
If Mx > 300 and My > 230 And Mx < 340 And My < 270
    stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car2\H-F1 Car-Move.x" ,1
LOAD IMAGE "Objects\car2\f1car.dds" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END

  Endif
  If Mx > 300 and My > 180 And Mx < 340 And My < 220
    stop music 1
    CLS
    
    Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car3\car.3DS" ,1
LOAD IMAGE "Objects\car3\car.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
END
   
  Endif

If Mx > 300 and My > 130 And Mx < 340 And My < 170
    stop music 1
    CLS

Sync on
sync rate 30

R# = 0
SPEED# = 0

Camdist# = 20.0
TrackAngle = 180: Rem 0 - Behind, 180 - Front, 90 & 270 - Sides
ReqCamHeight# = 7.5
Camsmooth = 15
ColFlag = 0

Make Matrix 1,500,500,20,20
LOAD IMAGE "Objects\Skys\cm4.bmp" ,4
prepare Matrix Texture 1,4,4,4
fill Matrix 1,5,4
randomize Matrix 1,2
ghost Matrix On 1
ghost Matrix Off 1
update matrix 1

LOAD OBJECT "Objects\Other Objects\model_1.x" ,4
POSITION OBJECT 4,250,Get Ground Height(1,250,250)+1.0,250

LOAD OBJECT "Objects\car4\policeca.3DS" ,1
LOAD IMAGE "Objects\car4\policeCa.bmp" ,1
TEXTURE OBJECT 1,1
Position Object 1,250,Get Ground Height(1,250,250)+1.0,250

MAKE OBJECT SPHERE 3,-2000,50,50
LOAD IMAGE "Objects\Skys\cm1.bmp" ,3
TEXTURE OBJECT 3,3

MAKE OBJECT PLAIN 2,1600,1600
TEXTURE OBJECT 2,4
XROTATE OBJECT 2, -90
SCALE OBJECT TEXTURE 2,10.0,10.0
HIDE OBJECT 2

Make Light 1
SET SPOT LIGHT 1,30,10
COLOR LIGHT 1, RGB(0,0,225)
POSITION LIGHT 1,200,0,200
POINT LIGHT 1,0,0,1

DO

IF SHIFTKEY() = 1 then SPEED# = SPEED# -1 
IF CONTROLKEY() = 1 then SPEED# = SPEED# +1
IF SPACEKEY() = 1 then SPEED# = 0 and R# = 0 and P# = 0
IF SPEED# = -7 then SPEED# = -6
IF SPEED# = -1 OR SPEED# = 1 OR SPEED# = -2 then Camdist = 15.0 ELSE Camdist = 10.0
IF SPEED# = 1 then R# = 0.75
IF SPEED# = 1 then SPEED# = N
IF SPEED# = -1 then R# = 0

IF SPEED# = N OR SPEED# = 1 then CENTER TEXT 320,0,"R"
IF SPEED# = 0 then CENTER TEXT 320,0,"N"
IF SPEED# = -1 then CENTER TEXT 320,0,"1"
IF SPEED# = -2 then CENTER TEXT 320,0,"2"
IF SPEED# = -3 then CENTER TEXT 320,0,"3"
IF SPEED# = -4 then CENTER TEXT 320,0,"4"
IF SPEED# = -5 then CENTER TEXT 320,0,"5"
IF SPEED# = -6 then CENTER TEXT 320,0,"6"

IF SPEED# = 0 and R# = 0 then P# = 0
IF R# = 0.75 then if downkey() = 1 then P# = 5 else P# = 0
IF SPEED# = -6 OR SPEED# = -5 OR SPEED# = -4 OR SPEED# = -3 OR SPEED# = -2 OR SPEED# = -1 then if upkey() = 1 then P# = 5 else P# = 0

aY# = Object angle Y (1)
if downkey() = 1 then move object 1,R#
if upkey() = 1 then move object 1,SPEED#
If Leftkey()=1 then aY# = Wrapvalue(aY#-P#)
If Rightkey()=1 then aY# = Wrapvalue(aY#+P#)
Yrotate object 1,aY#
 
ObjX# = Object Position X(1): ObjZ# = Object Position Z(1)
ObjHeight# = Get Ground Height(1,ObjX#,ObjZ#)
Position Object 1,ObjX#,ObjHeight#+1.0,ObjZ#
Camheight# = ObjHeight#+ReqCamHeight#
Set Camera To Follow ObjX#,ObjHeight#,ObjZ#,WrapValue(Object Angle Y(1)+TrackAngle),Camdist#,Camheight#,Camsmooth,ColFlag

sync
LOOP

WAIT ESCAPEKEY() = 1
ENDIF
END

[Mod edit - closed the code tag]

Back to top

Profile PM

BatVink

Moderator

23

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 19th Feb 2011 13:08

Link

Quote: "Set Display Mode 1000,950,0"

You must implement a valid screen resolution.

Back to top

Profile PM Email

Westmere

16

Years of Service

User Offline

Joined: 12th Mar 2010

Location: Germany

Posted: 19th Feb 2011 13:52

Link

It might seem like a really stupid suggestion but have you checked if your files are all where they are supposed to be? Especially the one in the line that comes up in the error message?

If so, you might want to tripple-spell-check the filenames and compare them to the actual filenames (in case there's a typo).

You can also try the Get Dir$ command to find out if you are in the directory you expect to be in.

An "If file exist" statement might also helpt you get down to the problem.

If all else fails try to think really hard if you really didn't change the slightest bit since your program last run.

Hope one of these hints gets you to the solution.