Sorry your browser is not supported!

hide mouse ; AUTOCAM OFF ; LOAD IMAGE "TITLE.BMP",100 ; LOAD SOUND "START.WAV",1 ;  LOAD SOUND "END.WAV",2 ; LOAD SOUND "CAT.WAV",3 ;LOAD SOUND "DOG.WAV",4 ; LOAD IMAGE "PAK.BMP",2 ; SPRITE 1,0,0,2 ; HIDE SPRITE 1 ; PASTE IMAGE 100,0,0 ; SUSPEND FOR KEY
LOAD IMAGE "FLOOR.BMP",1 ;MAKE MATRIX 1,1000,1000,10,10; SET MATRIX WIREFRAME OFF 1;LOAD OBJECT "VINCE.X",1 ; POSITION OBJECT 1,2,0,2 ;LOAD OBJECT "CAT.X",2;LOAD OBJECT "DOG.X",3;LOAD OBJECT "FOOD.X",4;LOAD OBJECT "LEVEL1.X",100;LOAD SOUND "START.WAV",1
POSITION MATRIX 1,-50,0,-50 ; PREPARE MATRIX TEXTURE 1, 1, 100, 100 ;FILL MATRIX 1, 0, 100; SYNC ON ; SYNC RATE 100 ; SCALE OBJECT 1 ,50,50 ,50 ; SCALE OBJECT 2 ,50,50 ,50 ; SCALE OBJECT 3 ,50,50 ,50 ; POSITION OBJECT 4,1,0,10
SET GLOBAL COLLISION ON ; SHOW OBJECT 2 ; SHOW OBJECT 3 ;SET OBJECT COLLISION TO POLYGONS 100 ; LEVEL#=0.3 ; LOAD OBJECT "FOOD.X",5; POSITION OBJECT 5,1,0,5 ; POSITION OBJECT 1,10,0,10 ; PLAY SOUND 1 ; DO ; SYNC
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+3,OBJECT POSITION Z(1)-2.5 ; POINT CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
IF UPKEY()=1 THEN MOVE OBJECT 1,0.05 ; IF SHIFTKEY()=1 AND UPKEY()=1 THEN MOVE OBJECT 1,0.5
IF LEFTKEY()=1 THEN TURN OBJECT LEFT 1,10
IF RIGHTKEY()=1 THEN TURN OBJECT RIGHT 1,10
IF SPACEKEY()=1 THEN POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+1,OBJECT POSITION Z(1)-4 ; IF CONTROLKEY()=1 THEN POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1)+1,OBJECT POSITION Z(1)+4
IF SPACEKEY()=1 OR CONTROLKEY()=1 THEN POINT CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
IF OBJECT IN SCREEN(2) =0 ; POSITION OBJECT 2,OBJECT POSITION X(4),OBJECT POSITION Y(4),OBJECT POSITION Z(4); ENDIF
IF OBJECT IN SCREEN(3) =0 ; POSITION OBJECT 3,OBJECT POSITION X(5),OBJECT POSITION Y(5),OBJECT POSITION Z(5); ENDIF
IF OBJECT IN SCREEN(2) =1 ; POINT OBJECT 2,OBJECT POSITION X(2)+10,0,OBJECT POSITION Z(2)+10; MOVE OBJECT 2,LEVEL# / 6; ENDIF
IF OBJECT IN SCREEN(3) =1 ; POINT OBJECT 3,OBJECT POSITION X(3)+10,0,OBJECT POSITION Z(3)+10; MOVE OBJECT 3,LEVEL# / 6; ENDIF
IF OBJECT COLLISION(100, 0)>1 AND OBJECT COLLISION(100, 0)<4 ; POSITION OBJECT 2,15,OBJECT POSITION Y(2),OBJECT POSITION Z(2);POSITION OBJECT 3,15,OBJECT POSITION Y(3),OBJECT POSITION Z(3);ENDIF
IF OBJECT COLLISION(100, 0)=1 THEN MOVE OBJECT 1,-1 ;
IF OBJECT COLLISION(1, 2)=1 AND OBJECT VISIBLE(2) = 1 ;PLAY SOUND 3 ;ENDIF ; IF OBJECT COLLISION(1, 2)=1 THEN HIDE OBJECT 2
IF OBJECT COLLISION(1, 3)=1 AND OBJECT VISIBLE(3) = 1 ;PLAY SOUND 4 ;ENDIF ; IF OBJECT COLLISION(1, 3)=1 THEN HIDE OBJECT 3
IF OBJECT VISIBLE(2) = 0; IF OBJECT VISIBLE(3) = 0 ; PLAY SOUND 2 ; LEVEL# = LEVEL# + 1 ; SHOW OBJECT 2 ; SHOW OBJECT 3 ; SHOW SPRITE 1 ; SUSPEND FOR KEY ; HIDE SPRITE 1 ; POSITION OBJECT 1,0,0,0 ; ENDIF ;ENDIF
LOOP