Sorry your browser is not supported!

rem -----------------------------------------------------------
Rem Dumbow & Cool - Go Karting Mini Game
Rem 2006
Rem ALPHA BUILD. 50%!!!
rem -----------------------------------------------------------



      rem Basic Setup
      SET DISPLAY MODE 800, 600, 32
      Set Window Off
      sync on : sync rate 60
      Autocam off
      hide mouse
      backdrop on : color backdrop rgb(0,0,0)
      SET AMBIENT LIGHT 80
      set camera range 1,5000
      fog distance 700 : fog on

      camera=1 : player_obj=5
      AI_obj1=1
      AI_obj2=9
      AI_obj3=13

      rem Arrays dimming
      dim scenerytype(50)
      dim sceneryX(50)
      dim sceneryY(50)
      dim sceneryZ(50)
      dim readscenenum(50)
      dim readscenestate(50)
      dim readscenetag(50)
      dim readscenetag2#(50)
      dim epartx#(20) : dim eparty#(20) : dim epartz#(20)
      dim epartxvel#(20) : dim epartyvel#(20) : dim epartzvel#(20)
      dim epartlife(20) : einten#=10 : einten2#=5
      dim emax(1)
      emax(1)=9
      dim howmany(0)
      dim matrixsizex(20)
      dim matrixsizez(20)
      dim matrixposx(20)
      dim matrixposy(20)
      dim matrixtile(100,100)
      dim matrixheight(100,100)
      dim matrixatr(20,5)
      dim platformtype(100)
      dim platformx(100)
      dim platformy(100)
      dim platformz(100)
      dim platformtag1#(100)
      dim platformtag2#(100)
      dim platformtag3#(100)
      dim cointaken(100) : dim coinx(100) : dim coinz(100) : dim coiny(100)
      dim gemtype(50)
      dim gemX(50)
      dim gemY(50)
      dim gemZ(50)
      coinlimit=15 : sparklepos=150
      dim partx#(20) : dim party#(20) : dim partz#(20)
      dim partxvel#(20) : dim partyvel#(20) : dim partzvel#(20)
      dim partlife(20) : inten#=50

      dim zonetype(50)
      dim zoneX1(50)
      dim zoneX2(50)
      dim zoneZ1(50)
      dim zoneZ2(50)

      load image "menu/splash.bmp",999,1
      cls
      for x=0 to 10
      sprite 999,400-150,300-100,999 : fastSYNC
      next x




      rem Player 1 -------------------------------------------------------------------------------

         rem Player Object [1]
         make object cone 1,5 : hide object 1

         rem Player 1 Shadow [2]
         make object plain 2,45,55
         xrotate object 2,90 : load image "3d/shadebox.bmp",2
         texture object 2,2 : ghost object on 2,1
         SET OBJECT FILTER 2,0 : fix object pivot 2

         rem Player Object [1]
         load object "karting/1/gokart.x",3 : scale object 3,550,550,550 : set object 3,1,0,0,1,1,0,1
         yrotate object 3,180 : fix object pivot 3
         glue object to limb 3,1,0

         rem Player Shadow Cone
         make object cone 4,5 : hide object 4
         glue object to limb 2,4,0

      rem Player 2 -------------------------------------------------------------------------------

         rem Player Object [5]
         make object cone 5,5 : hide object 5

         rem Player 1 Shadow [6]
         make object plain 6,45,55
         xrotate object 6,90
         texture object 6,2 : ghost object on 6,1
         SET OBJECT FILTER 6,0 : fix object pivot 6

         rem Player Object [7]
         load object "karting/2/gokart.x",7 : scale object 7,550,550,550 : set object 7,1,0,0,1,1,0,1
         yrotate object 7,180 : fix object pivot 7
         glue object to limb 7,5,0

         rem Player Shadow Cone [8]
         make object cone 8,5 : hide object 8
         glue object to limb 6,8,0


      rem Player 3 -------------------------------------------------------------------------------

         rem Player Object [9]
         make object cone 9,5 : hide object 9

         rem Player 1 Shadow [10]
         make object plain 10,45,55
         xrotate object 10,90
         texture object 10,2 : ghost object on 10,1
         SET OBJECT FILTER 10,0 : fix object pivot 10

         rem Player Object [11]
         load object "karting/3/gokart.x",11 : scale object 11,550,550,550 : set object 11,1,0,0,1,1,0,1
         yrotate object 11,180 : fix object pivot 11
         glue object to limb 11,9,0

         rem Player Shadow Cone [12]
         make object cone 12,5 : hide object 12
         glue object to limb 10,12,0

      rem Player 4 -------------------------------------------------------------------------------

         rem Player Object [13]
         make object cone 13,5 : hide object 13

         rem Player 1 Shadow [14]
         make object plain 14,45,55
         xrotate object 14,90
         texture object 14,2 : ghost object on 14,1
         SET OBJECT FILTER 14,0 : fix object pivot 14

         rem Player Object [15]
         load object "karting/4/gokart.x",15 : scale object 15,550,550,550 : set object 15,1,0,0,1,1,0,1
         yrotate object 15,180 : fix object pivot 11
         glue object to limb 15,13,0

         rem Player Shadow Cone [16]
         make object cone 16,5 : hide object 16
         glue object to limb 14,16,0


      rem Players 1 to 4 Angles Calculation Arrays
      rem ----------------------------------------

         dim jump(50)
         dim length#(50)
         dim across#(50)
         dim length2#(50)
         dim across2#(50)

         dim cartnum(3)
         dim cartvalue1#(3)
         dim cartvalue2#(3)

         cartnum(0)=1
         cartnum(1)=5
         cartnum(2)=9
         cartnum(3)=13

      rem Load Player AI --------------------------------------------------------------------

         dim kartx#(10000)
         dim karty#(10000)
         dim kartz#(10000)
         dim kartAx#(10000)
         dim kartAy#(10000)
         dim kartAz#(10000)
         dim kartval#(10000)
         dim kartCH#(10000)
         dim kartLAP#(10000)

         load array "ai/k1x",KARTX#(0)
         load array "ai/k1y",KARTY#(0)
         load array "ai/k1z",KARTZ#(0)
         load array "ai/k1ax",KARTAX#(0)
         load array "ai/k1ay",KARTAY#(0)
         load array "ai/k1az",KARTAZ#(0)
         load array "ai/k1af",KARTval#(0)
         load array "ai/k1C",KARTCH#(0)
         load array "ai/k1L",KARTLAP#(0)

         dim kartx2#(10000)
         dim karty2#(10000)
         dim kartz2#(10000)
         dim kartAx2#(10000)
         dim kartAy2#(10000)
         dim kartAz2#(10000)
         dim kartval2#(10000)
         dim kartCH2#(10000)
         dim kartLAP2#(10000)

         load array "ai/k2x",KARTX2#(0)
         load array "ai/k2y",KARTY2#(0)
         load array "ai/k2z",KARTZ2#(0)
         load array "ai/k2ax",KARTAX2#(0)
         load array "ai/k2ay",KARTAY2#(0)
         load array "ai/k2az",KARTAZ2#(0)
         load array "ai/k2af",KARTval2#(0)
         load array "ai/k2C",KARTCH2#(0)
         load array "ai/k2L",KARTLAP2#(0)

         dim kartx3#(10000)
         dim karty3#(10000)
         dim kartz3#(10000)
         dim kartAx3#(10000)
         dim kartAy3#(10000)
         dim kartAz3#(10000)
         dim kartval3#(10000)
         dim kartCH3#(10000)
         dim kartLAP3#(10000)

         load array "ai/k3x",KARTX3#(0)
         load array "ai/k3y",KARTY3#(0)
         load array "ai/k3z",KARTZ3#(0)
         load array "ai/k3ax",KARTAX3#(0)
         load array "ai/k3ay",KARTAY3#(0)
         load array "ai/k3az",KARTAZ3#(0)
         load array "ai/k3af",KARTval3#(0)
         load array "ai/k3C",KARTCH3#(0)
         load array "ai/k3L",KARTLAP3#(0)


         dim kartx4#(10000)
         dim karty4#(10000)
         dim kartz4#(10000)
         dim kartAx4#(10000)
         dim kartAy4#(10000)
         dim kartAz4#(10000)
         dim kartval4#(10000)


      rem Load Zones --------------------------------------------------------------------

         load array "data/k1/Z1",zonetype(0)
         load array "data/k1/Z2",zoneX1(0)
         load array "data/k1/Z3",zoneX2(0)
         load array "data/k1/Z4",zoneZ1(0)
         load array "data/k1/Z5",zoneZ2(0)

      rem Load Font width --------------------------------------------------------------------

         dim fontwidth(255)
         load array "config/font",fontwidth(0)

      rem Smoke [100 to 200]
      load image "3d/spray5.bmp",6
      load image "3d/spray6.bmp",7
      dim smoke(30)
      dim smokescale#(30)
      for smoke=100 to 120
      make object plain smoke,30+rnd(15),30+rnd(15)
      ghost object on smoke
      texture object smoke,6+rnd(1)
      disable object zread smoke
      next smoke

      rem Splash particles                                OBJ   [121 to 130]
      load image "3d/splash.bmp",8
      load image "3d/puddle.bmp",9
      for t=1 to emax(1)
      bugfix#=rnd(10)
      make object plain (121+t),20+bugfix#,20+bugfix#
      texture object (121+t),8+rnd(1) : ghost object on 121+t,2
      set object light 121+t,1
      disable object zread 121+t : hide object 121+t
      next t

      rem Ripple Image for Water Hit                       OBJ    [131]
      load image "3d/ring.bmp",10
      make object plain 131,100,100 : xrotate object 131,90 : fix object pivot 131
      texture object 131,10 : disable object zread 131
      ghost object on 131

      rem Bubbles                                          OBJ    [132-146]
      dim bubsize(14)
      load image "3d/b2.bmp",11
      for bub=132 to 146
         bugfix#=rnd(2)
         make object plain bub,1+bugfix#,1+bugfix#
         position object bub,0,70,0
         texture object bub,11
         ghost object on bub
         set object light bub,1
         disable object zread bub
      next bub

      rem Splash Ring
      load object "3d2/ring.x",147
      scale object 147,2000,2000,2000
      ghost object on 147 : set object fog 147,0 : set object light 147,1
      disable object zread 147

      rem Grass 1
      load image "3d/gbackspin.bmp",117

      make object plain 148,20,20
      make object plain 149,20,20

      texture object 148,117 : texture object 149,117
      ghost object on 148 : ghost object on 149
      disable object zread 148 : disable object zread 149
      set object light 148,1 : set object light 149,1

      rem Coins are 150 - 200

      rem Magical changing effect
      load image "3d/starx.bmp",115
      load image "3d/star2.bmp",116
      inten#=10
      dim max(1)
      max(1)=10
      for t=1 to max(1)
      make object plain (200+t),38+rnd(10),41+rnd(10)
      texture object (200+t),115+rnd(1)
      hide object (200+t)
      set object (200+t),1,0,0,1,0,0
      disable object zread 200+t
      ghost object on 200+t,2
      set object specular 200+t,0
      next t

      rem Backdrop, water, water saver
      load image "3d/bg1.bmp",100
      load image "3d/bg1.bmp",101
      load image "3d/bg1.bmp",102

      load image "3d/waterplain.bmp",103
      load image "3d/bg1.bmp",104
      load image "3d/bg1.bmp",105

      load image "3d/ice1.bmp",106
      load image "3d/flare.bmp",107
      load image "3d/sunimage.bmp",108

      load image "3d/waterfall4.bmp",109
      load image "3d/rainbow.bmp",110
      load image "3d/shade.bmp",111,1
      load image "3d/lip.bmp",112,1 : lip=112
      load image "3d/shadow.bmp",113
      load image "3d/star2.bmp",114

      load image "2d/corner1.bmp",118
      load image "2d/corner2.bmp",119
      load image "2d/corner3.bmp",120
      load image "2d/corner4.bmp",121

      load image "2d/needle.bmp",122,1

      load image "3d/white.bmp",123,1

      load image "2d/red.bmp",124,1
      load image "2d/green.bmp",125,1

      load image "menu/race.bmp",126,1
      load image "menu/race2.bmp",127,1
      load image "2d/pick.bmp",128,1
      load image "menu/game2.bmp",129,1
      load image "menu/op4.bmp",130,1

      rem Font images, beginning at 100
      fontimagebump=150
      imagebeginnumber=33+fontimagebump
      load image "2d/font/53.bmp",imagebeginnumber,1
      imagebeginnumber=44+fontimagebump
      load image "2d/font/54.bmp",imagebeginnumber,1
      imagebeginnumber=46+fontimagebump
      load image "2d/font/55.bmp",imagebeginnumber,1
      imagebeginnumber=45+fontimagebump
      load image "2d/font/56.bmp",imagebeginnumber,1
      imagebeginnumber=65+fontimagebump
      for textimage=1 to 26
      load image "2d/font/"+str$(textimage)+".bmp",imagebeginnumber,1
      inc imagebeginnumber
      next textimage
      imagebeginnumber=97+fontimagebump
      for textimage=27 to 52
      load image "2d/font/"+str$(textimage)+".bmp",imagebeginnumber,1
      inc imagebeginnumber
      next textimage
      imagebeginnumber=48+fontimagebump
      load image "2d/font/66.bmp",imagebeginnumber,1
      imagebeginnumber=39+fontimagebump
      load image "2d/font/67.bmp",imagebeginnumber,1
      imagebeginnumber=58+fontimagebump
      load image "2d/font/68.bmp",imagebeginnumber,1
      imagebeginnumber=59+fontimagebump
      load image "2d/font/68.bmp",imagebeginnumber,1
      imagebeginnumber=63+fontimagebump
      load image "2d/font/69.bmp",imagebeginnumber,1
      imagebeginnumber=49+fontimagebump
      for textimage=57 to 65
      load image "2d/font/"+str$(textimage)+".bmp",imagebeginnumber,1
      inc imagebeginnumber
      next textimage











      rem Skysphere
      make object sphere 99,10000 : yrotate object 99,180 : fix object pivot 99
      scale object 99,100,30,100 : fade object 99,0 : set object 99,1,0,0,1,0,0
      yrotate object 99,180 : fix object pivot 99

      rem Water saver
      make object plain 98,10000,10000
      xrotate object 98,90 : fix object pivot 98
      set object 98,1,1,0,1,0,0 : texture object 98,106

      rem Water
      make object plain 97,2500,2500
      texture object 97,106 : set object light 97,0
      xrotate object 97,90 : fix object pivot 97
      ghost object on 97

      rem Sunflare
      make object plain 96,34,14
      yrotate object 96,180
      ghost object on 96
      texture object 96,107
      position object 96,0,0,6
      lock object on 96

      rem Sun image
      make object plain 95,350,350
      texture object 95,108
      ghost object on 95
      fade object 95,200
      disable object zread 95

      rem White flare
      make object plain 94,34,14
      yrotate object 94,180
      ghost object on 94
      texture object 94,123
      position object 94,0,0,6
      lock object on 94




      rem Scenery load
      gosub scenerymake

      rem Draw world
      if world=0 then texture object 99,100 : texture object 98,103
      if world=1 then texture object 99,101 : texture object 98,104
      if world=2 then texture object 99,102 : texture object 98,105

      rem Sounds needed
      load sound "sound/kartgo1.wav",1
      load sound "sound/kartgo_loop.wav",2
      load sound "sound/splash.wav",3
      load sound "sound/underwater.wav",4
      load sound "sound/coin.wav",5
      load sound "sound/popup.wav",6

      load sound "sound/ambient1.wav",100 : loop sound 100


      rem Track Loading
      rem ==================================================================
      matrix=0
      load image "3d/k1.bmp",1011

      rem Matrices
      load array "data/k1/m11",howmany(0) : load array "data/k1/m12",matrixsizex(0)
      load array "data/k1/m13",matrixsizez(0) : load array "data/k1/m14",matrixposx(0)
      load array "data/k1/m15",matrixposy(0) : load array "data/k1/matr",matrixatr(0)
      for make=1 to howmany(0)
      make matrix make,matrixsizex(make)*1.5,matrixsizez(make)*1.5,matrixsizex(make)/50,matrixsizez(make)/50
      position matrix make,matrixposx(make),0,matrixposy(make)
      load array "data/k1/mtile"+str$(make)+"num",matrixtile(0)
      load array "data/k1/mtile"+str$(make)+"high",matrixheight(0)
      prepare matrix texture make,1011,16,16
      set matrix trim make,0.01,0.01
      for tilex=0 to (matrixsizex(make)/50)-1 : for tilez=0 to (matrixsizez(make)/50)-1
      set matrix tile make,tilex,tilez,matrixtile(tilex,tilez)
      next tilez : next tilex
      for tilex=0 to (matrixsizex(make)/50) : for tilez=0 to (matrixsizez(make)/50)
      set matrix height make,tilex,tilez,matrixheight(tilex,tilez)
      next tilez : next tilex
      set matrix make,0,1,1,2,1,0,1
      update matrix make
      inc matrix
      next make

      rem Grass
      dim grasstype(300)
      dim grassx(300)
      dim grassy(300)
      dim grassz(300)
      dim grasslength(300)

      load array "data/k1/grasstype",grasstype(1)
      load array "data/k1/grassx",grassx(1)
      load array "data/k1/grassy",grassy(1)
      load array "data/k1/grassz",grassz(1)
      load array "data/k1/grasslength",grasslength(1)
      createnumber=1100
      for erase=1100 to 1400
      if object exist(erase)=1 then delete object erase
      next erase
      for make=0 to 300
      if grasstype(make)=1
      make object plain createnumber,grasslength(make),75
      xrotate object createnumber,110 : fix object pivot createnumber
      position object createnumber,grassx(make),grassy(make)-(8.48)*1.5,grassz(make)+2
      texture object createnumber,lip
      set object createnumber,1,0,0,2,0,0
      set object transparency createnumber,1
      set object filter createnumber,0
      scale object texture createnumber,grasslength(make)/75,1
      inc createnumber
      endif
      if grasstype(make)=2
      make object plain createnumber,grasslength(make),75
      xrotate object createnumber,110 : fix object pivot createnumber
      yrotate object createnumber,270
      position object createnumber,grassx(make)-3,grassy(make)-(8.48)*1.5,grassz(make)
      texture object createnumber,lip
      set object createnumber,1,0,0,2,0,0
      set object transparency createnumber,1
      set object filter createnumber,0
      scale object texture createnumber,grasslength(make)/75,1
      inc createnumber
      endif
      if grasstype(make)=3
      make object plain createnumber,grasslength(make),75
      xrotate object createnumber,110 : fix object pivot createnumber
      yrotate object createnumber,180
      position object createnumber,grassx(make),grassy(make)-(8.48)*1.5,grassz(make)-3
      texture object createnumber,lip
      set object createnumber,1,0,0,2,0,0
      set object transparency createnumber,1
      set object filter createnumber,0
      scale object texture createnumber,grasslength(make)/75,1
      inc createnumber
      endif
      if grasstype(make)=4
      make object plain createnumber,grasslength(make),75
      xrotate object createnumber,110 : fix object pivot createnumber
      yrotate object createnumber,90
      position object createnumber,grassx(make)+2,grassy(make)-(8.48)*1.5,grassz(make)
      texture object createnumber,lip
      set object createnumber,1,0,0,2,0,0
      set object transparency createnumber,1
      set object filter createnumber,0
      scale object texture createnumber,grasslength(make)/75,1
      inc createnumber
      endif
      next make

      rem Player position values

      VERYBEGINNING:

      play sound 6

      dxscrolly=180 : filmfunction=0 : gamemode=2 : wraper#=0
      L1x=600
      L2x=800
      L3x=900
      L4x=900

      RESTART:

      SPEED#=0
      STARTIMER=200 : enemyAI=0
      displaytext=0 : displaytext$="The race is on!"
      checkpoint#=0 : lap#=-1
      checkscore#=0 : timesec#=5

      REPLACE:
      playerx#=1500
      playerz#=1115
      playery#=103
      oldplayerx#=1500
      oldplayerz#=1115
      FRAME#=3.999 : speed#=0

      rem Position player
      position object 1,1750,103,541 : yrotate object 1,270 : angle#=270 : oldangle#=270 : XA#=270
      position object 5,1650,103,541 : yrotate object 5,270
      position object 9,1750,103,429 : yrotate object 9,270
      position object 13,1650,103,429 : yrotate object 13,270

         rem Backdrop off.
         sprite 1,900,900,125
         set sprite 1,0,1
         hide sprite 1

      delete sprite 999


      rem MAIN GAME
      rem ------------------------------------------------------------------------------
      do


         rem Font replenish
         for font=1 to 40
            if sprite exist(font)=1 then hide sprite font
         next font
         for font=100 to 400
            if sprite exist(font)=1 then hide sprite font
         next font
         spritenumber=100
         if sprite exist(9)=1
         IF GAMEMODE=0 THEN SHOW SPRITE 9
         IF GAMEMODE=>1 THEN HIDE SPRITE 9
         endif




         rem TIMEOUT
         rem ------------------------------------------------------
         if gamemode=0
         if timesec#=<0
         if timemin#=<0
         if timemilli#=59

            menuchoice=0 : menumoveflag=1 : ionaboobs=1 : wraper#=0
            L2x=800
            L3x=900
            L4x=900
            L1x=600 : clsrota=1 : gamemode=2 : filmfunction=1

         endif
         endif
         endif
         endif

         rem WINNING
         rem -----------------------------------------------------

         if gamemode=0
         if lap#=2

            menuchoice=0 : menumoveflag=1 : ionaboobs=1 : wraper#=0
            L1x=600
            L2x=800
            L3x=900
            L4x=900

            gamemode=2
            if PLAYERPOSITION#=1
               L1x=600 : clsrota=1 : filmfunction=2
            else
               L1x=600 : clsrota=1 : filmfunction=3
            endif

         endif
         endif





      rem Retain player information for replays
      REM --------------------------------------------------

      IF GAMEMODE=0

      KARTX4#(enemyAI)=OBJECT POSITION X(player_obj)
      KARTY4#(enemyAI)=OBJECT POSITION y(player_obj)
      KARTZ4#(enemyAI)=OBJECT POSITION z(player_obj)
      KARTAX4#(enemyAI)=OBJECT angle x(player_obj)
      KARTAY4#(enemyAI)=OBJECT angle y(player_obj)
      KARTAZ4#(enemyAI)=OBJECT angle z(player_obj)
      KARTval4#(enemyAI)=OBJECT frame(player_obj+2)

      ENDIF


      rem Calculate score for enemy cart
      REM --------------------------------------------------
         inc racecheck

         if racecheck=5
            racecheck=0


         rem Figure out AI Karter distance to whatever
         FOR ZONE=0 TO 45

            rem Checkpoint 0 for KART 1
            if kartCH#(enemyAI)=0 : if zonetype(ZONE)=6
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj1))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj1))
               KARTERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 1 for KART 1
            if kartCH#(enemyAI)=1 : if zonetype(ZONE)=7
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj1))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj1))
               KARTERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 2 for KART 1
            if kartCH#(enemyAI)=2 : if zonetype(ZONE)=8
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj1))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj1))
               KARTERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif

            rem Checkpoint 0 for KARTb 2
            if kartCH2#(enemyAI)=0 : if zonetype(ZONE)=6
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj2))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj2))
               KARTERDIST2#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 1 for KARTb 2
            if kartCH2#(enemyAI)=1 : if zonetype(ZONE)=7
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj2))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj2))
               KARTERDIST2#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 2 for KARTb 2
            if kartCH2#(enemyAI)=2 : if zonetype(ZONE)=8
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj2))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj2))
               KARTERDIST2#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif




            rem Checkpoint 0 for KARTb 3
            if kartCH3#(enemyAI)=0 : if zonetype(ZONE)=6
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj3))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj3))
               KARTERDIST3#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 1 for KARTb 3
            if kartCH3#(enemyAI)=1 : if zonetype(ZONE)=7
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj3))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj3))
               KARTERDIST3#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 2 for KARTb 3
            if kartCH3#(enemyAI)=2 : if zonetype(ZONE)=8
               bugfix#=(zoneX1(ZONE)-object position x(ai_obj3))
               bugfix2#=(zoneZ1(ZONE)-object position z(ai_obj3))
               KARTERDIST3#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif

            rem -----

            rem Checkpoint 0 for player
            if checkpoint#=0 : if zonetype(ZONE)=6
               bugfix#=(zoneX1(ZONE)-object position x(player_obj))
               bugfix2#=(zoneZ1(ZONE)-object position z(player_obj))
               PLAYERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 1 for player
            if checkpoint#=1 : if zonetype(ZONE)=7
               bugfix#=(zoneX1(ZONE)-object position x(player_obj))
               bugfix2#=(zoneZ1(ZONE)-object position z(player_obj))
               PLAYERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif
            rem Checkpoint 2 for player
            if checkpoint#=2 : if zonetype(ZONE)=8
               bugfix#=(zoneX1(ZONE)-object position x(player_obj))
               bugfix2#=(zoneZ1(ZONE)-object position z(player_obj))
               PLAYERDIST#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )
            endif : endif

         next zone

         endif

         rem Assume First for Player Cart
         playerposition#=1

         if kartLAP#(enemyAI)>checkscore# then inc playerposition#
         if kartLAP2#(enemyAI)>checkscore# then inc playerposition#
         if kartLAP3#(enemyAI)>checkscore# then inc playerposition#

            rem Same position? Lets check distances
            if kartLAP#(enemyAI)=checkscore#
               if KARTERDIST#=<PLAYERDIST# then inc playerposition#
            endif

            if kartLAP2#(enemyAI)=checkscore#
               if KARTERDIST2#=<PLAYERDIST# then inc playerposition#
            endif

            if kartLAP3#(enemyAI)=checkscore#
               if KARTERDIST3#=<PLAYERDIST# then inc playerposition#
            endif


      dec time#

      rem Assumed normals
      if playerinwater=0
         stop sound 4
      else
         if sound playing(4)=0 then loop sound 4
      endif


      IF GAMEMODE=0

      IF STARTIMER=>1 THEN DEC STARTIMER

      ENDIF

      if dxscrolly=>0 then dec dxscrolly,16
      if dxscrolly=<0 then dxscrolly=0
      if L1x=>20 then dec L1x,20
      if L2x=>20 then dec L2x,20
      if L3x=>20 then dec L3x,20
      if L4x=>20 then dec L4x,20
      if L5x=>20 then dec L5x,20
      if L6x=>20 then dec L6x,20
      if L7x=>20 then dec L7x,20


      oldx#=object position x(player_obj)
      oldz#=object position z(player_obj)

      set camera aspect 0.66666666
      set cursor 20,200
      turning=0
      if smokefader#=>190 then smoking=0
      targetframe#=4
      oldplayerx#=playerx#
      oldplayerz#=playerz#
      if object position y(player_obj)=>60 then playerinwater=0

      rem Player Switch for Testing Purposes
      if inkey$()="0" then gamemode=0

      rem Control [1]
      if gamemode=0

         IF STARTIMER=<0

      IF PLAYERINWATER=0
      If upkey()=1 then speed# = curvevalue(7.7,speed#,150)
      If downkey()=1 then speed# = curvevalue(0.0,speed#,150)
      if upkey()=0 and downkey()=0 then speed# = curvevalue(0.0,speed#,150)
      If rightkey()=1 then turn# = curvevalue(5,turn#,5) : turning=1 : dec drifter#,0.50 : targetframe#=2
      If leftkey()=1 then turn# = curvevalue(-5,turn#,5) : turning=1 : dec drifter#,0.50 : targetframe#=6
      if rightkey()=0 and leftkey()=0 then turn# = curvevalue(0.0,turn#,5) : inc drifter#,0.95


         else

         speed# = curvevalue(0.0,speed#,20)

         endif

         ENDIF

      if speed#=<0 then speed#=0

      if frame#=<targetframe# then inc frame#,0.1
      if frame#=>targetframe# then dec frame#,0.1
      if drifter#=<28 then drifter#=28
      if drifter#=>70 then drifter#=70
      inc angle#,turn#*(speed#/drifter#)
      yrotate object player_obj,curvevalue(angle#,oldangle#,80)
      oldangle# = object angle y(player_obj)
      set object frame player_obj+2,frame#
      move object player_obj,0-(speed#)
      yrotate object player_obj,angle#
      position object player_obj,object position x(player_obj),playery#,object position z(player_obj)

      endif


      rem Winning, losing, starting.
      if gamemode=2

      speed# = curvevalue(0.0,speed#,120)
      if speed#=<0 then speed#=0

      if frame#=<targetframe# then inc frame#,0.1
      if frame#=>targetframe# then dec frame#,0.1
      if drifter#=<28 then drifter#=28
      if drifter#=>70 then drifter#=70
      inc angle#,turn#*(speed#/drifter#)
      yrotate object player_obj,curvevalue(angle#,oldangle#,80)
      oldangle# = object angle y(player_obj)
      set object frame player_obj+2,frame#
      move object player_obj,0-(speed#)
      yrotate object player_obj,angle#
      position object player_obj,object position x(player_obj),playery#,object position z(player_obj)

      endif





      rem Player Sounds[1]
         if sound playing(2)=0 then loop sound 2
         set sound volume 2,71+(speed#*3)
         if speed#=>0
            set sound speed 2,100+speed#*5000
         else
            set sound speed 2,100-speed#*5000
         endif

      rem Smoke
      crosssignal=0
      if turn#*(speed#/drifter#)=>-2
      if turn#*(speed#/drifter#)=<-0.15 then smoking=1 : dec smokefader#,1.5 : crosssignal=1
      endif
      if turn#*(speed#/drifter#)=<2
      if turn#*(speed#/drifter#)=>0.15 then smoking=1 : dec smokefader#,1.5 : crosssignal=1
      endif
      if smokefader#=<0 then smokefader#=0
      if crosssignal=0 then inc smokefader#,5
      if smokefader#=>200 then smokefader#=200
      gosub tiresmoke

      rem Wave
      BUBx#=object position x(player_obj)
      BUBz#=object position z(player_obj)

      show object 131
      IF WAVESCALE=<450 THEN inc wavescale,4+swimwave
      ` if wavescale=>200 then wavescale=31
      position object 131,wavex#,60.1,wavez#
      FADE OBJECT 131,200-(wavescale/2)
      scale object 131,wavescale,wavescale,wavescale


      rem Ripple thing
      position object 147,wavex#,60.1,wavez#
      scale object 147,waveRIPscale1,waveRIPscale2,waveRIPscale1
      if waveRIPscale2=>0
         show object 147
         dec waveRIPgrav#,12 : inc waveRIPscale1,40 : waveRIPscale2=waveRIPscale2+waveRIPgrav#
      else
         hide object 147
      endif



      for bub=132 to 140

         if playerinwater=0

            hide object bub

         endif

         if playerinwater=1

            position object bub,object position x(bub),object position y(bub)+2,object position z(bub)
            bubsize(bub-132)=bubsize(bub-132)-15
            fade object bub,bubsize(bub-132)

            if OBJECT POSITION Y(BUB)=>60

               bubsize(bub-132)=150+rnd(50)
               show object bub
               scale object bub,bubsize(bub-132),bubsize(bub-132),bubsize(bub-132)
               position object bub,(BUBx#-20)+rnd(40),40-rnd(30),(BUBz#-20)+rnd(40)

            endif

         endif

      next bub

      rem Player hit water?
      if playerinwater=0

         hide object 131
         waveRIPscale2=0

      if object position y(player_obj)=<60
         bugfix1#=object position x(player_obj)
         bugfix2#=object position y(player_obj)
         bugfix3#=object position z(player_obj)
         waveRIPscale1=600 : waveRIPscale2=200 : waveRIPgrav#=400
         request_explosion2(bugfix1#,bugfix2#,bugfix3#,emax(1),einten2#,75)
         wavex#=object position x(player_obj)
         wavez#=object position z(player_obj)
         wavescale=0

         playerinwater=1 : play sound 3
      endif

      endif

      if playerinwater=1

         show object 131

      endif




      rem Zones handling
      for X=0 to 45


         rem Plain Grass
         if zonetype(x)=1
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)
            speed# = curvevalue(0.0,speed#,150)
            ongrass=1


         endif : endif : endif : endif : endif

         rem Corner, EAST to NORTH, outisde
         if zonetype(x)=2
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            bugfix#=object position x(player_obj)-zoneX1(X)
            bugfix2#=object position z(player_obj)-zoneZ1(X)

            rem SlowDown
            if bugfix2#=<bugfix#
               ongrass=1
               speed# = curvevalue(0.0,speed#,150)
            endif

         endif : endif : endif : endif : endif

         rem Corner, EAST to NORTH, inside
         if zonetype(x)=3
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            bugfix#=object position x(player_obj)-zoneX1(X)
            bugfix2#=object position z(player_obj)-zoneZ1(X)


            if bugfix2#=>bugfix#
               ongrass=1
               speed# = curvevalue(0.0,speed#,150)
            endif

         endif : endif : endif : endif : endif


         rem Corner, TYPE 4
         if zonetype(x)=4
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            bugfix#=zoneX2(X)-object position x(player_obj)
            bugfix2#=object position z(player_obj)-zoneZ1(X)

            if bugfix2#=<bugfix#
               ongrass=1
               speed# = curvevalue(0.0,speed#,150)
            endif

         endif : endif : endif : endif : endif


         rem Corner, TYPE 5
         if zonetype(x)=5
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            bugfix#=object position x(player_obj)-zoneX1(X)
            bugfix2#=zonez2(X)-object position z(player_obj)

            if bugfix2#=<bugfix#
               ongrass=1
               speed# = curvevalue(0.0,speed#,150)
            endif

         endif : endif : endif : endif : endif



         rem Checkpoint 0
         if checkpoint#=0
         if zonetype(x)=6
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)


            checkpoint#=1 : inc lap# : inc checkscore#

            inc timesec#,20 : timemilli#=0

            if lap#=1
               displaytext=0 : displaytext$="Checkpoint and new lap!"
            endif
            if lap#=0
               displaytext=0 : displaytext$="Checkpoint - extra time!"
            endif

         endif : endif : endif : endif : endif : endif

         rem Checkpoint 1
         if checkpoint#=1
         if zonetype(x)=7
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            inc timesec#,10 : timemilli#=0

            checkpoint#=2 : inc checkscore# : displaytext=0 : displaytext$="Checkpoint - extra time!"

         endif : endif : endif : endif : endif : endif

         rem Checkpoint 2
         if checkpoint#=2
         if zonetype(x)=8
         if object position x(player_obj)=>zoneX1(X)
         if object position z(player_obj)=>zoneZ1(X)
         if object position x(player_obj)=<zoneX2(X)
         if object position z(player_obj)=<zoneZ2(X)

            inc timesec#,5 : timemilli#=0

            checkpoint#=0 : inc checkscore# : displaytext=0 : displaytext$="Checkpoint - extra time!"

         endif : endif : endif : endif : endif : endif


      next X

      rem Scenery
      gosub scenery

      rem Update player
      playerx#=object position x(player_obj)
      groundy#=get ground height(1,playerx#,playerz#)+3
      playerz#=object position z(player_obj)
      a#=object angle y(player_obj)

      rem Update Enemy AI
      IF STARTIMER=0 THEN inc enemyAI
      position object ai_obj1,KARTX#(enemyAI),KARTY#(enemyAI),KARTZ#(enemyAI)
      rotate object ai_obj1,KARTAX#(enemyAI),KARTAY#(enemyAI),KARTAZ#(enemyAI)
      set object frame ai_obj1+2,kartVAL#(enemyAI)

      position object ai_obj2,KARTX2#(enemyAI),KARTY2#(enemyAI),KARTZ2#(enemyAI)
      rotate object ai_obj2,KARTAX2#(enemyAI),KARTAY2#(enemyAI),KARTAZ2#(enemyAI)
      set object frame ai_obj2+2,kartVAL2#(enemyAI)

      position object ai_obj3,KARTX3#(enemyAI),KARTY3#(enemyAI),KARTZ3#(enemyAI)
      rotate object ai_obj3,KARTAX3#(enemyAI),KARTAY3#(enemyAI),KARTAZ3#(enemyAI)
      set object frame ai_obj3+2,kartVAL3#(enemyAI)

      IF GAMEMODE=1

         lap#=0

         IF ENEMYAI=>9999 THEN ENEMYAI=0

         position object player_obj,KARTX4#(enemyAI),KARTY4#(enemyAI),KARTZ4#(enemyAI)
         rotate object player_obj,KARTAX4#(enemyAI),KARTAY4#(enemyAI),KARTAZ4#(enemyAI)
         set object frame player_obj+2,kartVAL4#(enemyAI)

      ENDIF


      rem Angles Calculate for All 4 Cars
      foot#=15

      for car=0 to 3

         if object position y(cartnum(car))=>60

         tempx#=object position x(cartnum(car))
         tempz#=object position z(cartnum(car))
         tab#=object angle y(cartnum(car))

      tempa#=wrapvalue(tab#-45)
      frontleftx#=newxvalue(tempx#,tempa#,foot#) : frontleftz#=newzvalue(tempz#,tempa#,foot#)
      tempa#=wrapvalue(tab#+45)
      frontrightx#=newxvalue(tempx#,tempa#,foot#) : frontrightz#=newzvalue(tempz#,tempa#,foot#)
      tempa#=wrapvalue(tab#+225)
      backleftx#=newxvalue(tempx#,tempa#,foot#) : backleftz#=newzvalue(tempz#,tempa#,foot#)
      tempa#=wrapvalue(tab#+135)
      backrightx#=newxvalue(tempx#,tempa#,foot#) : backrightz#=newzvalue(tempz#,tempa#,foot#)

      rem Calculate degree of tilting from corner heights
      frontlefth#=get ground height(1,frontleftx#,frontleftz#)
      frontrighth#=get ground height(1,frontrightx#,frontrightz#)
      backlefth#=get ground height(1,backleftx#,backleftz#)
      backrighth#=get ground height(1,backrightx#,backrightz#)

      across#(car)=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
      length#(car)=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

         `if jump(player_obj)=0
      if cartnum(car)=player_obj

      if jump=0
      if playerinwater=0

       across2#=((frontrighth#-frontlefth#)+(backrighth#-backlefth#))/2.0
       length2#=((backlefth#-frontlefth#)+(backrighth#-frontrighth#))/2.0

      endif
      endif
      endif

         endif

      next car

      rem Calculate Hill Sliding for Player Car
      playerslide#=get ground height(1,playerx#,playerz#)
      slideleft#=get ground height(1,playerx#-5,playerz#)
      slideright#=get ground height(1,playerx#+5,playerz#)
      slideup#=get ground height(1,playerx#,playerz#+5)
      slidedown#=get ground height(1,playerx#,playerz#-5)


         rem Slide as Appropriate
         if playerslide#-slideleft#=>0.1
         if playerslide#-slideleft#=<8
         if playerslide#-slideright#=<-0.1
            dec playerx#,(playerslide#-slideleft#)/6
            playerslide#=get ground height(1,playerx#,playerz#)
            groundy#=playerslide#+3
         endif
         endif
         endif

         if playerslide#-slideright#=>0.1
         if playerslide#-slideright#=<8
         if playerslide#-slideleft#=<-0.1
            dec playerx#,(playerslide#-slideleft#)/6
            playerslide#=get ground height(1,playerx#,playerz#)
            groundy#=playerslide#+3
         endif
         endif
         endif

         if playerslide#-slideup#=>0.1
         if playerslide#-slideup#=<8
         if playerslide#-slidedown#=<-0.1
            dec playerz#,(playerslide#-slidedown#)/6
            playerslide#=get ground height(1,playerx#,playerz#)
            groundy#=playerslide#+3
         endif
         endif
         endif

         if playerslide#-slidedown#=>0.1
         if playerslide#-slidedown#=<8
         if playerslide#-slideup#=<-0.1
            inc playerz#,(playerslide#-slideup#)/6
            playerslide#=get ground height(1,playerx#,playerz#)
            groundy#=playerslide#+3
         endif
         endif
         endif

      IF GAMEMODE=0

         position object player_obj,playerx#,object position y(player_obj),playerz#

      ENDIF

       rem Player
       h#=get ground height(1,playerx#,playerz#)
       trackh#=(frontlefth#+frontrighth#+backlefth#+backrighth#)/4.0
       if trackh#>h# then h#=trackh#
         v#=0.4199


       rem Gravity
       if playerinwater=0


         playerinwaterSPAWN=0


         if jump=0

            if groundy#=<playery#-3
               jump=1
            else
            playery#=groundy# : gravity#=0
            endif

         endif

         if jump=1

            playery#=playery#-gravity#
            inc gravity#,0.16

         if playery#=<groundy# then playery#=groundy# : jump=0

         endif

       endif

      if playerinwater=1


         inc playerinwaterSPAWN,2

         rem Go in water? Respawn!
         if playerinwaterSPAWN=>200
            playerinwater=0 : displaytext=0 : displaytext$="No chance of winning now!" : whiteout=150
            goto REPLACE
         endif

         if gravity#=>0.24 then dec gravity#,0.2
         if gravity#=<0.16 then gravity#=0.16
         playery#=playery#-gravity#


      endif

      rem Shadow hiding for water
      if playerinwater=0


         if object position y(player_obj)=>100

            show object player_obj+1

         else

            hide object player_obj+1

         endif

      else

         hide object player_obj+1

      endif


      rem Shadow and stuff
      yrotate object 4,object angle y(1)
      position object 4,object position x(1),groundy#-2.6,object position z(1)
      rotate object 2,wrapvalue(length#(0)/v#),0,wrapvalue(across#(0)/v#)

      yrotate object 8,object angle y(5)
      position object 8,object position x(5),groundy#-2.6,object position z(5)
      rotate object 6,wrapvalue(length#(1)/v#),0,wrapvalue(across#(1)/v#)

      yrotate object 12,object angle y(9)
      position object 12,object position x(9),groundy#-2.6,object position z(9)
      rotate object 10,wrapvalue(length#(2)/v#),0,wrapvalue(across#(2)/v#)

      yrotate object 16,object angle y(13)
      position object 16,object position x(13),groundy#-2.6,object position z(13)
      rotate object 14,wrapvalue(length#(3)/v#),0,wrapvalue(across#(3)/v#)











      rem Calculate collision with other karts
      for car=0 to 3

         CHECK:


         if cartnum(car)=player_obj then goto elapsecheck

               bugfix#=(object position x(player_obj)-object position x(cartnum(car)))
               bugfix2#=(object position z(player_obj)-object position z(cartnum(car)))
               disttocar#=sqrt( (BUGFIX#*BUGFIX#) + (BUGFIX2#*BUGFIX2#) )

            atanbugfix#=atanfull(bugfix#,bugfix2#)

         if disttocar#=<40

            PLAYERX#=newxvalue(playerx#,atanbugfix#,40-disttocar#)
            PLAYERZ#=newzvalue(playerz#,atanbugfix#,40-disttocar#)

         endif


         ELAPSECHECK:

      next car


      rem Slave and Tree Collision
      inc slaverota
      if slaverota=>3


      for t=0 to 5

         if slavetype(t)=>1
         if object position x(player_obj)=>object position x(readslavenumber(t))-30
         if object position x(player_obj)=<object position x(readslavenumber(t))+30
         if object position z(player_obj)=>object position z(readslavenumber(t))-30
         if object position z(player_obj)=<object position z(readslavenumber(t))+30

               displaytext=0 : displaytext$="Watch out man!" : whiteout=150
               goto REPLACE

         endif
         endif
         endif
         endif
         endif

      next t

      for t=0 to 50

         rem Tree Collide
         if scenerytype(t)=1

         if object position x(player_obj)=>object position x(readscenenum(t))-30
         if object position x(player_obj)=<object position x(readscenenum(t))+30
         if object position z(player_obj)=>object position z(readscenenum(t))-30
         if object position z(player_obj)=<object position z(readscenenum(t))+30

               displaytext=0 : displaytext$="Try to avoid those." : whiteout=150
               goto REPLACE

         endif
         endif
         endif
         endif
         endif

         rem Slave Collide
         if scenerytype(t)=8

         if object position x(player_obj)=>object position x(readscenenum(t))-35
         if object position x(player_obj)=<object position x(readscenenum(t))+35
         if object position z(player_obj)=>object position z(readscenenum(t))-35
         if object position z(player_obj)=<object position z(readscenenum(t))+35

               displaytext=0 : displaytext$="You cant do that!" : whiteout=150
               goto REPLACE

         endif
         endif
         endif
         endif
         endif

      next t
      slaverota=0
      endif


      rem Player
      IF GAMEMODE=0
      position object player_obj,playerx#,playery#,playerz#
      yrotate object player_obj,a#
      ENDIF

      if playerinwater=0

         if jump=1 then LENGTH2#=curvevalue(0,length2#,6) : ACROSS2#=curvevalue(0,across2#,6)

         oldLENGTH2#=LENGTH2# : oldACROSS2#=ACROSS2#

      if jump=0
         rotate object player_obj+2,wrapvalue(length2#/v#),0,wrapvalue(across2#/v#)
      ENDIF

      endif


      rem Shadow Scaling
      variable#=100-(playery#-groundy#)*2
      if variable#=<25 then variable#=25
      scale object player_obj+1,variable#,variable#,variable#

      rem Camera for Gameplay
      if gamemode=0

         xa#=curveangle(a#,xa#,65)
         cx#=newxvalue(OBJECT POSITION X(player_obj),xa#,150-FOVZOOM#)
         cz#=newzvalue(OBJECT POSITION z(player_obj),xa#,150-FOVZOOM#)
         cy2#=OBJECT POSITION y(player_obj)+92-fovzoom#

         x#=object position x(player_obj)
         z#=object position z(player_obj)
         y#=object position y(player_obj)

         ` if spacekey()=1 then FOVZOOM#=20
         IF FOVZOOM#=>0 THEN DEC FOVZOOM#,0.1
         set camera fov 420+FOVZOOM#

         set camera aspect 1.333333333
         SET CAMERA VIEW 0,0,800,600
         position camera cx#, cy2#, cz#
         point camera object position x(player_obj),object position y(player_obj)+25,object position z(player_obj)

      endif



      rem REPLAY CODE
      rem ----------------------------------------------------------------------------
      rem Camera for Films
      if gamemode=1

         REPLAYANGLE=0
         FOCUSOFREPLAY=5


         rem Return to Main game after replay
         if KARTX4#(enemyAI+1)=0

            whiteout=150
            menuchoice=0 : menumoveflag=1 : ionaboobs=1
            L1x=600
            L2x=800
            L3x=900
            L4x=900

         position object player_obj,KARTX4#(enemyAI-1),KARTY4#(enemyAI-1),KARTZ4#(enemyAI-1)
         rotate object player_obj,KARTAX4#(enemyAI-1),KARTAY4#(enemyAI-1),KARTAZ4#(enemyAI-1)
         set object frame player_obj+2,kartVAL4#(enemyAI-1)

            gamemode=2 : wraper#=0
            clsrota=1 : filmfunction=2 : replayangle=9 : goto stfumary

         endif





            if object position Z(focusofreplay)=<1050

               if object position x(focusofreplay)=>1500
                  if object position x(focusofreplay)=<2000 then replayangle=1
               ENDIF

               if object position x(focusofreplay)=>2000
                  if object position x(focusofreplay)=<3100 THEN replayangle=2
               endif

            endif


            if object position x(focusofreplay)=>2500
            if object position x(focusofreplay)=<3500
            if object position z(focusofreplay)=<3150
            if object position z(focusofreplay)=>2450

               replayangle=3

            endif
            endif
            endif
            endif

            if object position x(focusofreplay)=>3500
            if object position x(focusofreplay)=<5000
            if object position z(focusofreplay)=<3500
            if object position z(focusofreplay)=>2700

               replayangle=4

            endif
            endif
            endif
            endif

            if object position x(focusofreplay)=>4500
            if object position x(focusofreplay)=<5000
            if object position z(focusofreplay)=>3500
            if object position z(focusofreplay)=<6000

               replayangle=5

            endif
            endif
            endif
            endif

            if object position x(focusofreplay)=>2500
            if object position x(focusofreplay)=<4500
            if object position z(focusofreplay)=>3500
            if object position z(focusofreplay)=<6000

               replayangle=6

            endif
            endif
            endif
            endif

            if object position x(focusofreplay)=>750
            if object position x(focusofreplay)=<2500
            if object position z(focusofreplay)=>3500
            if object position z(focusofreplay)=<6000

               replayangle=7

            endif
            endif
            endif
            endif


            if object position x(focusofreplay)=>750
            if object position x(focusofreplay)=<1500
            if object position z(focusofreplay)<3500
            if object position z(focusofreplay)=>1500

               replayangle=8

            endif
            endif
            endif
            endif




            remstart

            if KEYSTATE(77)=1 then position camera camera position x()+5,camera position y(),camera position z()
            if KEYSTATE(75)=1 then position camera camera position x()-5,camera position y(),camera position z()
            if KEYSTATE(72)=1 then position camera camera position x(),camera position y(),camera position z()+5
            if KEYSTATE(76)=1 then position camera camera position x(),camera position y(),camera position z()-5
            if inkey$()="3" then position camera camera position x(),camera position y()-5,camera position z()
            if inkey$()="9" then position camera camera position x(),camera position y()+5,camera position z()
            if inkey$()="u" then inc pointz#,15
            if inkey$()="h" then dec pointx#,15
            if inkey$()="j" then dec pointz#,15
            if inkey$()="k" then inc pointx#,15
            if inkey$()="t" then dec pointy#,15
            if inkey$()="g" then inc pointy#,15
            POINT CAMERA pointx#,pointy#,pointz#
            SET CAMERA FOV MOUSEY()
            remend




      rem ACTION REPLAYS
      rxa#=wrapvalue(rxa#+1)


      for settledown=0 to 4

          rem Angle 0 [ FOLLOWING ]
         if replayangle=0

            cx#=newxvalue(OBJECT POSITION X(FOCUSOFREPLAY),rxa#,200)
            cz#=newzvalue(OBJECT POSITION z(FOCUSOFREPLAY),rxa#,200)
            cy2#=OBJECT POSITION y(FOCUSOFREPLAY)+92
            position camera cx#, cy2#, cz#
            point camera object position x(FOCUSOFREPLAY),object position y(FOCUSOFREPLAY)+10,object position z(FOCUSOFREPLAY)
            set camera fov 33


         ENDIF

         rem Angle 1 [ STARTING GRID ]
         if replayangle=1


            position camera 1421,770,294
            point camera 1905,-90,420
            set camera fov 30


         endif

         rem Angle 2 [ CORNER ]
         if replayangle=2


            position camera 3100+(distanceworkto#/3),125,435+(distanceworkto#/10)
            distanceworkto#=camera position x()-object position x(focusofreplay)

            position camera 3100+(distanceworkto#/3),125,435+(distanceworkto#/10)
            distanceworkto#=camera position x()-object position x(focusofreplay)

            point camera object position x(focusofreplay),120,object position z(focusofreplay)
            set camera fov 8-(distanceworkto#/300)
         endif

         rem Angle 3 [ WATERFALL LONGSHOT ]
         if replayangle=3


            position camera 4084,325,2422
            point camera 0,-645,4080

            set camera fov 17


         endif


         rem Angle 4 [ CHECKPOINT CORNER 1 ]
         if replayangle=4

            position camera object position x(focusofreplay),120,2662
            point camera object position x(focusofreplay),120,6570

            distanceworkto#=object position z(focusofreplay)-2662

           set camera fov 10-(distanceworkto#/300)



         endif

         rem Angle 5 [ CHECKPOINT CORNER 2 ]
         if replayangle=5

            position camera 4734,140,(object position z(focusofreplay))-150

            point camera object position x(focusofreplay),120,object position z(focusofreplay)

            distanceworkto#=object position z(focusofreplay)-2662

            set camera fov 18
         endif


         rem Angle 6 [ LONGSHOT 1 ]
         if replayangle=6


          POSITION CAMERA 1300,105,4762.5


            inc vannishift
            if vannishift=>0
               vanni1x#=(object position x(focusofreplay))-rnd(2)+rnd(4)
               vanni1z#=(object position z(focusofreplay))-rnd(2)+rnd(4)
               vanni1y#=(118+rnd(4))
            vannishift=-25

            endif

            vanni2x#=curvevalue(vanni1x#,vanni2x#,20)
            vanni2y#=curvevalue(vanni1y#,vanni2y#,20)
            vanni2z#=curvevalue(vanni1z#,vanni2z#,20)

            POINT CAMERA vanni2x#,vanni2y#,vanni2z#

            set camera fov 1.5

         endif


         rem Angle 7 [ FOLLOWING CAR ALONG LONGSHOT ]
         if replayangle=7

            distanceworkto#=object position x(focusofreplay)-750

           position camera (object position x(focusofreplay)+650)-( (distanceworkto#/3) ),150,object position z(focusofreplay)
           `position camera object position x(focusofreplay),150,object position z(focusofreplay)-( (distanceworkto#/3) )

            point camera object position x(focusofreplay),120,object position z(focusofreplay)

            set camera fov 2+(distanceworkto#/40)

         endif


         rem Angle 7 [ FOLLOWING CAR ALONG LONGSHOT ]
         if replayangle=8


            position camera object position x(focusofreplay),700,object position z(focusofreplay)
            point camera object position x(focusofreplay),0,object position z(focusofreplay)

            set camera fov 20


         endif



         next settledown

            IF INKEY$()="F" THEN INC enemyAI,5
            IF INKEY$()="f" THEN INC enemyAI,5
            IF INKEY$()="r" THEN ENEMYai=0
            IF INKEY$()="R" THEN ENEMYai=0

         set camera aspect 2.22222222222222
         SET CAMERA VIEW 0,120+dxSCROLLY,800,480-dxSCROLLY
      endif


stfumary:

      rem Camera for START / WINNING / LOSE
      if gamemode=2


         if filmfunction=0
         m_2=126
         m_3=129
         endif

         if filmfunction=1
         m_2=126
         m_3=129
         endif

         if filmfunction=2
         m_2=130
         m_3=127
         endif

         if filmfunction=3
         m_2=126
         m_3=129
         endif

         arrowx=500 : m_2s=1 : m_3s=1 : m_4s=0

   if menumoveflag=0
      if ionaboobs=0
   if upkey()=1 then dec menuchoice : wraper#=0 : wrapergrav#=1.5 : menumoveflag=1
   if downkey()=1 then inc menuchoice : wraper#=0 : wrapergrav#=1.5 : menumoveflag=1
   if joystick up()=1 then dec menuchoice : wraper#=0 : wrapergrav#=1.5 : menumoveflag=1
   if joystick down()=1 then inc menuchoice : wraper#=0 : wrapergrav#=1.5 : menumoveflag=1
      endif
   endif

   if menuchoice=2 then menuchoice=0
   if menuchoice=-1 then menuchoice=1

   if upkey()=0 : if joystick up()=0 : if joystick down()=0
   if downkey()=0 then menumoveflag=0 : ionaboobs=0
   endif : endif : endif

      rem Retry or race or whatever
      IF MENUCHOICE=0

         ARROWY=400

         rem RACE! at beginning
         if filmfunction=0

            if l3x=0
            if returnkey()=1

                  dxSCROLLY=300
                  whiteout=150 : gamemode=0

            endif : endif
         endif

         rem Time Out
         if filmfunction=1

            if l3x=0
            if returnkey()=1

               dxSCROLLY=300
               whiteout=150 : gamemode=0 : goto restart

            endif : endif
         endif

         rem You're winner!
         if filmfunction=2
            if l3x=0
            if returnkey()=1

               END

            endif : endif
         endif

         rem You're loser!
         if filmfunction=3
            if l3x=0
            if returnkey()=1

               dxSCROLLY=300
               whiteout=150 : gamemode=0 : goto restart

            endif : endif
         endif



      endif

      rem Quit in all instances except for replay
      IF MENUCHOICE=1

         ARROWY=420

            if l3x=0
         if returnkey()=1
         if filmfunction=2

            rem Call replay
            whiteout=150
            gosub coindisplay : cls : enemyAI=0 : gamemode=1

         else

            end

         endif
         endif
            endif

      endif

   sprite 10,(arrowx)+L2X,arrowy+2,128 : show sprite 10

   IF L3x=0
      inc wraper#,wrapergrav# : dec wrapergrav#,0.08 : if wraper#=<0 then wraper#=0 : wrapergrav#=2
   ENDIF

   rem Bouncing text etc...
   if arrowy=400
         line2x=wraper#
   else
         line2x=0
   endif
   if arrowy=420
         line3x=wraper#
   else
         line3x=0
   endif


   sprite 2,(520+line2x)+L2x,400,m_2 : set sprite 2,0,1 : show sprite 2
   sprite 3,(520+line3x)+L3x,420,m_3 : stretch sprite 3,100,100 : show sprite 3
















         REM GLOBAL GLOBAL GLOBAL BLACK BOX
         ink rgb(5,5,5),1

         box 500+L1x,148,508+L1x,381-8
         box 772+L1x,148,780+L1x,381-8
         box 508+L1x,140,772+L1x,148
         box 508+L1x,381-8,772+L1x,381

         box 508+L1x,148,772+L1x,381-8
         sprite 13,500+L1x,140,118 : show sprite 13
         sprite 14,772+L1x,140,119 : show sprite 14
         sprite 15,500+L1x,381-8,120 : show sprite 15
         sprite 16,772+L1x,381-8,121 : show sprite 16

         set camera aspect 2.22222222222222
         SET CAMERA VIEW 0,120+dxSCROLLY,800,480-dxSCROLLY
         rxa#=wrapvalue(rxa#+0.8)

         rem Begin with
         if filmfunction=0

            reading$="Grand Prix Stage 1"
            writerx=520+L1x : writery=160 : gosub drawword
            reading$="Beat the other racers"
            writerx=520+L1x : writery=200 : gosub drawword
            reading$="and the clock to win!"
            writerx=520+L1x : writery=220 : gosub drawword

            cx#=newxvalue(OBJECT POSITION X(player_obj),rxa#,200)
            cz#=newzvalue(OBJECT POSITION z(player_obj),rxa#,200)
            cy2#=OBJECT POSITION y(player_obj)+92
            position camera cx#, cy2#, cz#
            point camera object position x(player_obj),object position y(player_obj)+10,object position z(player_obj)
            set camera fov 33

         endif

         rem Out of time
         if filmfunction=1

            reading$="Out of time!"
            writerx=520+L1x : writery=160 : gosub drawword
            reading$="You've got to be quicker"
            writerx=520+L1x : writery=200 : gosub drawword
            reading$="than that to win!"
            writerx=520+L1x : writery=220 : gosub drawword

            cx#=newxvalue(OBJECT POSITION X(player_obj),rxa#,200)
            cz#=newzvalue(OBJECT POSITION z(player_obj),rxa#,200)
            cy2#=OBJECT POSITION y(player_obj)+92
            position camera cx#, cy2#, cz#
            point camera object position x(player_obj),object position y(player_obj)+10,object position z(player_obj)
            set camera fov 33

         endif

         rem Winner
         if filmfunction=2

            reading$="You won!"
            writerx=520+L1x : writery=160 : gosub drawword
            reading$="Great work! That was"
            writerx=520+L1x : writery=200 : gosub drawword
            reading$="some great driving!"
            writerx=520+L1x : writery=220 : gosub drawword

            cx#=newxvalue(OBJECT POSITION X(player_obj),rxa#,200)
            cz#=newzvalue(OBJECT POSITION z(player_obj),rxa#,200)
            cy2#=OBJECT POSITION y(player_obj)+92
            position camera cx#, cy2#, cz#
            point camera object position x(player_obj),object position y(player_obj)+10,object position z(player_obj)
            set camera fov 33

         endif

         rem Loser
         if filmfunction=3

            reading$="You lost!"
            writerx=520+L1x : writery=160 : gosub drawword
            reading$="You bet the clock but"
            writerx=520+L1x : writery=200 : gosub drawword
            reading$="not the other racers."
            writerx=520+L1x : writery=220 : gosub drawword
            reading$="Try again."
            writerx=520+L1x : writery=240 : gosub drawword

            cx#=newxvalue(OBJECT POSITION X(player_obj),rxa#,200)
            cz#=newzvalue(OBJECT POSITION z(player_obj),rxa#,200)
            cy2#=OBJECT POSITION y(player_obj)+92
            position camera cx#, cy2#, cz#
            point camera object position x(player_obj),object position y(player_obj)+10,object position z(player_obj)
            set camera fov 33

         endif

      endif
















      rem Handle tires turning
      scroll limb texture player_obj+2,2,-0.007*speed#,-0.007*speed#
      scroll limb texture player_obj+2,3,-0.007*speed#,-0.007*speed#
      scroll limb texture player_obj+2,11,-0.007*speed#,-0.007*speed#
      scroll limb texture player_obj+2,13,-0.007*speed#,-0.007*speed#

      rem Sun
      gosub sun



      rem Handle water splash
      handle_explosion()
      handle_explosion2()
      gosub part_rotate

      rem Sky and water etc...
      yrotate object 97,object angle y(97)-0.1
      position object 97,camera position x(),60,camera position z()
      position object 98,camera position x(),2,camera position z()
      position object 99,camera position x(),camera position y()-120,camera position z()

      rem 2D, right at end
      gosub 2dkarts

      rem Whiteout
      fade object 94,whiteout
      if whiteout=>0 then dec whiteout,6
      if whiteout=<10 then hide object 94
      if whiteout=>10 then show object 94

      if clsrota=3 then clsrota=0
      if clsrota=2 then cls : clsrota=3
      if clsrota=1 then cls : clsrota=2
    if clsrota=0 then fastsync
    loop

      rem Tile Squeal Smoke / Grass out back
      tiresmoke:


         rem Grass from behind
         grass1x#=newxvalue(OBJECT POSITION X(player_obj),wrapvalue(object angle y(player_obj)+130),-24)
         grass1z#=newzvalue(OBJECT POSITION z(player_obj),wrapvalue(object angle y(player_obj)+130),-24)
         grass2x#=newxvalue(OBJECT POSITION X(player_obj),wrapvalue(object angle y(player_obj)-130),-24)
         grass2z#=newzvalue(OBJECT POSITION z(player_obj),wrapvalue(object angle y(player_obj)-130),-24)

         if ongrass=1
         if speed#=>2

         bugfix#=rnd(150)

         scale object 148,50+bugfix#,50+bugfix#,50+bugfix#

         bugfix#=rnd(150)

         scale object 149,50+bugfix#,50+bugfix#,50+bugfix#

         fade object 148,200
         fade object 149,200

         position object 148,grass1x#,playery#,grass1z#
         position object 149,grass2x#,playery#,grass2z#

         show object 148
         show object 149

         else

         hide object 148
         hide object 149

         endif

         else

         hide object 148
         hide object 149

         endif


         for smoke=0 to 20

            fade object smoke+100,(200-smokescale#(smoke))-smokefader#
            smokescale#(smoke)=smokescale#(smoke)+6+rnd(1)

            position object smoke+100,object position x(smoke+100),playery#+(0.6+rnd(0.7)),object position z(smoke+100)

            if smokescale#(smoke)=>50+rnd(160)

            if smoke=<10
            gayx#=newxvalue(OBJECT POSITION X(player_obj),wrapvalue(object angle y(player_obj)+130),-24)
            gayz#=newzvalue(OBJECT POSITION z(player_obj),wrapvalue(object angle y(player_obj)+130),-24)
            else
            gayx#=newxvalue(OBJECT POSITION X(player_obj),wrapvalue(object angle y(player_obj)-130),-24)
            gayz#=newzvalue(OBJECT POSITION z(player_obj),wrapvalue(object angle y(player_obj)-130),-24)
            endif


            if smoking=1

            smokescale#(smoke)=(40-(smokefader#/5))+rnd(20) : position object smoke+100,gayx#,playery#,gayz#


               if ongrass=0

                  show object smoke+100

               else

                  hide object smoke+100

               endif

            else

               hide object smoke+100

            endif


            endif

            rotate object smoke+100,camera angle x(),camera angle y(),camera angle z()
            scale object smoke+100,smokescale#(smoke),smokescale#(smoke),smokescale#(smoke)

         next smoke

         ongrass=0

      return

      rem Sunflare
      sun:

      defadesun=0

      if camera angle y()=>290 : if camera angle y()=<340
      defadesun=1
      if sfade=<98 then inc sfade,2
      fade object 96,sfade
      endif : endif

      if defadesun=0
      if sfade=>2 then dec sfade,2
      fade object 96,sfade
      endif

      scale object 95,50+(sfade/2),50+(sfade/2),50+(sfade/2)
      position object 95,camera position x()-350,camera position y()+40,camera position z()+350
      rotate object 95,camera angle x(),camera angle y(),camera angle z()

      return





      rem Make scenery
      rem -----------------------------------------------------------------
      scenerymake:
      load array "data/k1/sc11",scenerytype(0)
      load array "data/k1/sc21",sceneryX(0)
      load array "data/k1/sc31",sceneryY(0)
      load array "data/k1/sc41",sceneryZ(0)
      scenery=1700

      for make=1700 to 1900
      if object exist(make)=1 then delete object make
      next make

      rem SCENERY!
      for makeXX=0 to 50
      if scenerytype(makeXX)=>1

      rem Tree
      if scenerytype(makeXX)=1
      LOAD OBJECT "3D/TREE.X",scenery : SCALE OBJECT scenery,5000,5000,5000
      readscenenum(makeXX)=scenery
      POSITION OBJECT scenery,sceneryX(makeXX),sceneryY(makeXX)+40,sceneryZ(makeXX)
      endif

      rem Grass
      if scenerytype(makeXX)=2
      LOAD OBJECT "3D/grass.X",scenery : SCALE OBJECT scenery,700,700,700 : yrotate object scenery,rnd(360)
      readscenenum(makeXX)=scenery
      POSITION OBJECT scenery,sceneryX(makeXX)+10,sceneryY(makeXX),sceneryZ(makeXX)
      endif

      rem Rock
      if scenerytype(makeXX)=3
      LOAD OBJECT "3D/rock.X",scenery : SCALE OBJECT scenery,1500,1500,1500
      readscenenum(makeXX)=scenery
      POSITION OBJECT scenery,sceneryX(makeXX),sceneryY(makeXX)-10,sceneryZ(makeXX)
      endif

      rem Bee
      if scenerytype(makeXX)=4
      LOAD OBJECT "3D/BEE.X",scenery : SCALE OBJECT scenery,75000,75000,75000
      readscenenum(makeXX)=scenery
      POSITION OBJECT scenery,sceneryX(makeXX),sceneryY(makeXX)+50,sceneryZ(makeXX)
      endif

      rem Waterfall
      if scenerytype(makeXX)=5
      make object plain scenery,270,150
      POSITION OBJECT scenery,sceneryX(makeXX)-10,70,(sceneryZ(makeXX)-67)
      texture object scenery,109 : ghost object on scenery
      xrotate object scenery,45
      scroll object texture scenery,0.0,0.03
      readscenenum(makeXX)=scenery
         set object scenery,1,0,0,1,1,0,1
      inc scenery
      LOAD OBJECT "3D/WATERFALL.X",scenery : SCALE OBJECT scenery,8000,9000,13000
      YROTATE OBJECT SCENERY,180 : GHOST OBJECT ON SCENERY
      POSITION OBJECT scenery,sceneryX(makeXX),sceneryY(makeXX)+51,sceneryZ(makeXX)
         set object scenery,1,0,0,1,1,0,1
         set object specular scenery,0
         set object transparency scenery,1
      inc scenery
      make object plain scenery,500,500
      YROTATE OBJECT SCENERY,270 : GHOST OBJECT ON SCENERY
      POSITION OBJECT scenery,sceneryX(makeXX),sceneryY(makeXX)+300,sceneryZ(makeXX)-100
      texture object scenery,110 : disable object zread scenery
      fade object scenery,38
      ENDIF

      rem Tulips patch
      if scenerytype(makeXX)=6
      LOAD OBJECT "3D/tulip.X",scenery : SCALE OBJECT scenery,10000,7500,10000
         set object scenery,1,0,0,1,1,0,1
      readscenenum(makeXX)=scenery
      POSITION OBJECT scenery,(sceneryX(makeXX)-25)+rnd(50),sceneryY(makeXX)+(5+rnd(5)),(sceneryZ(makeXX)-25)+rnd(50)
         set object scenery,1,0,0,1,1,0,1
      inc scenery
      LOAD OBJECT "3D/tulip.X",scenery : SCALE OBJECT scenery,10000,7000,10000
      POSITION OBJECT scenery,(sceneryX(makeXX)-25)+rnd(50),sceneryY(makeXX)+(5+rnd(5)),(sceneryZ(makeXX)-25)+rnd(50)
         set object scenery,1,0,0,1,1,0,1
      inc scenery
      LOAD OBJECT "3D/tulip.X",scenery : SCALE OBJECT scenery,10000,8000,10000
      POSITION OBJECT scenery,(sceneryX(makeXX)-25)+rnd(50),sceneryY(makeXX)+(5+rnd(5)),(sceneryZ(makeXX)-25)+rnd(50)
         set object scenery,1,0,0,1,1,0,1
      inc scenery
      LOAD OBJECT "3D/tulip.X",scenery : SCALE OBJECT scenery,10000,7000,10000
      POSITION OBJECT scenery,(sceneryX(makeXX)-25)+rnd(50),sceneryY(makeXX)+(5+rnd(5)),(sceneryZ(makeXX)-25)+rnd(50)
         set object scenery,1,0,0,1,1,0,1
      inc scenery
      LOAD OBJECT "3D/tulip.X",scenery : SCALE OBJECT scenery,10000,8000,10000
      POSITION OBJECT scenery,(sceneryX(makeXX)-25)+rnd(50),sceneryY(makeXX)+(5+rnd(5)),(sceneryZ(makeXX)-25)+rnd(50)
         set object scenery,1,0,0,1,1,0,1
      endif

      rem Schmumps
      if scenerytype(makeXX)=8
         readscenestate(makeXX)=0
         readscenenum(makeXX)=scenery
         make object plain scenery,30,30 : texture object scenery,111
         xrotate object scenery,90 : fix object pivot scenery
         SET OBJECT FILTER scenery,0 : set object fog scenery,0
         SET OBJECT TRANSPARENCY scenery,1 : ghost object on scenery,1
         position object scenery,sceneryX(makeXX),sceneryY(makeXX)+0.3,sceneryZ(makeXX)
      inc scenery
         load object "3d/slave.x",scenery : scale object scenery,550,550,550
         set object scenery,1,1,0,1,1,0,1
         append object "3d/slavethank.x",scenery,12 : set object speed scenery,5
         position object scenery,sceneryX(makeXX),sceneryY(makeXX),sceneryZ(makeXX)
         if rnd(1)=1 then loop object scenery,12,20
      endif

         if scenerytype(makeXX)=7 then goto bugfix82
         if scenerytype(makeXX)=8 then goto bugfix82
         if scenerytype(makeXX)=10 then goto bugfix82
         if scenerytype(makeXX)=11 then goto bugfix82
         if scenerytype(makeXX)=12 then goto bugfix82
         if scenerytype(makeXX)=13 then goto bugfix82
         if scenerytype(makeXX)=14 then goto bugfix82
         if scenerytype(makeXX)=15 then goto bugfix82
         if scenerytype(makeXX)=16 then goto bugfix82
         if scenerytype(makeXX)=17 then goto bugfix82
         if scenerytype(makeXX)=19 then goto bugfix82
         if scenerytype(makeXX)=20 then goto bugfix82
         if scenerytype(makeXX)=21 then goto bugfix82
         if scenerytype(makeXX)=22 then goto bugfix82
         if scenerytype(makeXX)=23 then goto bugfix82
         if scenerytype(makeXX)=24 then goto bugfix82
         if scenerytype(makeXX)=25 then goto bugfix82
         if scenerytype(makeXX)=26 then goto bugfix82
         if object exist(scenery)=1
         set object scenery,1,0,0,1,1,0,1
         set object specular scenery,0
         set object transparency scenery,1
         endif
         bugfix82:
         inc scenery

      endif
      next makeXX


         rem Platforms
         load array "data/k1/platformmode",platformtype(1)
         load array "data/k1/platformxpos",platformx(1)
         load array "data/k1/platformypos",platformy(1)
         load array "data/k1/platformzpos",platformz(1)
         make=1000
         for object =1000 to 1100
         if object exist(object)=1 then delete object object
         next object
         for array=0 to 100

         rem Regular Type
         if platformtype(array)=1
         LOAD OBJECT "3D/platform1.X",make
         scale object make,950,1000,950
         position object make,platformx(array),platformy(array),platformz(array)
         set object make,1,1,0,1,1,0,1
         inc make
         endif

         rem Blue Type
         if platformtype(array)=2
         LOAD OBJECT "3D/platform2.X",make
         scale object make,950,500,950
         position object make,platformx(array),platformy(array),platformz(array)
         ghost object on make
         set object make,1,1,0,1,1,0,1
         inc make
         endif

         rem Button type blue
         if platformtype(array)=3
         LOAD OBJECT "3D/greenp.X",make
         scale object make,3100,3180,3100
         yrotate object make,45 : fix object pivot make
         position object make,platformx(array),platformy(array)-50,platformz(array)
         set object make,1,1,0,1,1,0,1
         hide limb make,0
         inc make
         endif

         next array




         rem Coins
         load array "data/k1/g1",gemtype(0)
         load array "data/k1/g2",gemX(0)
         load array "data/k1/g3",gemY(0)
         load array "data/k1/g4",gemZ(0)
         dim gemnum(50)
         coinlimit=0

         gosub COINDISPLAY

         rem Sparkle
         make object plain 199,250,250
         texture object 199,114 : ghost object on 199
         set object 199,1,0,0,1,0,0
         disable object zread 199


         rem Schmumps walking around
         rem ----------------------------------------------
         dim slavetype(5)
         dim slavex(5)
         dim slavey(5)
         dim slavez(5)
         dim slavepoints(5)
         dim slavepointsX(8,5)
         dim slavepointsZ(8,5)
         dim slavepointsTYPE(8,5)
         dim readslavestate(5)
         dim readslavenumber(5)
         dim readslavetag5#(5)
         dim readslavetag7(5)
         dim readslavetag6(5)
         dim readslavetag4#(5)
         dim readslavetag3(5)
         dim readslaveCHECKfocus(5)
         dim readslavechoice(5)
         dim readslavespeed#(5)


         load array "data/k1/slavetype",slavetype(0)
         load array "data/k1/slavex",slavex(0)
         load array "data/k1/slavey",slavey(0)
         load array "data/k1/slavez",slavez(0)
         load array "data/k1/slaveCHECKpoints",slavepoints(0)
         load array "data/k1/slaveCHECKtype",slavepointsTYPE(0)
         load array "data/k1/slaveCHECKx",slavepointsX(0)
         load array "data/k1/slaveCHECKz",slavepointsZ(0)

         gosub slavesdisplay


















































   return

   rem Particles rotation
   part_rotate:

      for t=1 to emax(1)
      rotate object 121+t,camera angle x(),camera angle y(),camera angle z()
      next t

      for t=132 to 146
      rotate object t,camera angle x(),camera angle y(),camera angle z()
      next t

      for t=0 to 50

         if gemtype(t)=1

         yrotate object gemnum(t),coinrr#
         yrotate object gemnum(t)+1,coinrr#

         endif

      next t

      for t=1 to max(1)

         rotate object 200+t,camera angle x(),camera angle y(),camera angle z()

      next t

      rotate object 148,camera angle x(),camera angle y(),camera angle z()
      rotate object 149,camera angle x(),camera angle y(),camera angle z()
      rotate object 199,camera angle x(),camera angle y(),camera angle z()

   return


   rem Scenery Maintain
   SCENERY:

      for scene=0 to 50

         rem Schmumps maintain
         if scenerytype(scene)=8
            if readscenestate(scene)=0
            point object readscenenum(scene)+1,object position x(player_obj),object position y(readscenenum(scene)+1),object position z(player_obj)
            endif
         endif

         rem Scroll waterfall texture
         if scenerytype(scene)=5
            scroll object texture readscenenum(scene)+1,0.0,-0.01
         endif

      next scene

      rem Coin update
      coinrr#=wrapvalue(coinrr#+(2))

      for coin=0 to 40

         if gemnum(coin)=>1
         if object exist(gemnum(coin))=1

         if object position x(player_obj)=>object position x(gemnum(coin))-25
         if object position x(player_obj)=<object position x(gemnum(coin))+25
         if object position z(player_obj)=>object position z(gemnum(coin))-25
         if object position z(player_obj)=<object position z(gemnum(coin))+25

            bx#=object position x(gemnum(coin))
            by#=object position y(gemnum(coin))
            bz#=object position z(gemnum(coin))

            play sound 5
            position object gemnum(coin),-99999,0,0
            position object gemnum(coin)+1,-99999,0,0

            request_explosion(bx#,by#,bz#,max(1),inten#,13)

         endif
         endif
         endif
         endif

         endif
         endif

      next coin

      rem Schmumps walking around
      rem ---------------------------------------------------------------------------------
      for readx=0 to 5
      slave=readslavenumber(readx)

      rem slave exists?
      IF slavetype(readx)=>1

      if readslavespeed#(readx)=<2 then readslavespeed#(readx)=2
      if readslavespeed#(readx)=>2 then readslavespeed#(readx)=readslavespeed#(readx)-0.01
      bugfix275=object angle y(readslavenumber(readx))
      readslavetag7(readx)=0

          rem ---------------------------------------------- POINT AT NEXT CHECKPOINT ----
          if readslavestate(readx)=0

             ` Increase Checkpoint
             bugfix=readslaveCHECKfocus(readx) : inc bugfix : readslaveCHECKfocus(readx)=bugfix

             ` Return to Checkpoint 1
              if readslaveCHECKfocus(readx)=>slavepoints(readx)+1 then readslaveCHECKfocus(readx)=1

             ` Point and Setup
             point object slave,slavepointsX(readslaveCHECKfocus(readx),readx),object position y(slave),slavepointsZ(readslaveCHECKfocus(readx),readx)
             readslavestate(readx)=1

          endif

          rem ---------------------------------------------- MOVE BETWEEN CHECKPOINTS ----
          if readslavestate(readx)=1

             ` Move slave and animate
             move object slave,readslavespeed#(readx)
             readslavetag7(readx)=1
             point object slave,slavepointsX(readslaveCHECKfocus(readx),readx),object position y(slave),slavepointsZ(readslaveCHECKfocus(readx),readx)

            ` Hit it? What to do?
             if object position x(slave)=>slavepointsX(readslaveCHECKfocus(readx),readx)-10
             if object position x(slave)=<slavepointsX(readslaveCHECKfocus(readx),readx)+10
             if object position z(slave)=>slavepointsZ(readslaveCHECKfocus(readx),readx)-10
             if object position z(slave)=<slavepointsZ(readslaveCHECKfocus(readx),readx)+10

                ` Point at next
                if slavepointsTYPE(readslaveCHECKfocus(readx),readx)=1 then readslavestate(readx)=0

                ` Rest
                if slavepointsTYPE(readslaveCHECKfocus(readx),readx)=2 then readslavestate(readx)=2 : readslavetag6(readx)=0

             endif : endif : endif : endif

          endif

          rem ---------------------------------------------- WAIT AT WAIT POINT ----
          if readslavestate(readx)=2

             rem Maintain
             readslavetag7(readx)=0

             ` Increase waitout
             bugfix=readslavetag6(readx)
             inc bugfix
             readslavetag6(readx)=bugfix
             if readslavespeed#(readx)=>2.5 then readslavestate(readx)=0

             if readslavetag6(readx)=>190 then readslavestate(readx)=0

          endif



            rem ANIMATION COMMANDS
            IF readslavetag7(readx)=0 then stop object slave : set object frame slave,0
            if readslavetag7(readx)=1 then set object speed slave,20*readslavespeed#(readx) : loop object slave,0.1,8

            studexa#=wrapvalue(curveangle(object angle y(slave),bugfix275,3))
            yrotate object slave,studexa#

            position object slave+1,object position x(slave),object position y(slave+1),object position z(slave)


          endif

          next readx













      rem Sparkle calculation
      if sparkle=0
      inc sparklepos,2
      if object exist(sparklepos)=0 then sparklepos=150
      position object 199,object position x(sparklepos),object position y(sparklepos),object position z(sparklepos)
      sparkle=1 : sparkletime=0
      endif
      if sparkle=1
      scale object 199,100-sparkletime,100-sparkletime,100-sparkletime
      inc sparkletime,10
      if sparkletime=>100 then sparkle=0
      endif

   return



function request_explosion(ex#,ey#,ez#,particles,intensity#,life)
t=0:p=0
repeat
   t=t+1
   if partlife(t)=0
         p=p+1 : partlife(t)=life + rnd(life/5)
         partx#(t)=ex# : party#(t)=ey# : partz#(t)=ez#
         partyvel#(t)=rnd(intensity#)-(intensity#/2) : partxvel#(t)=rnd(intensity#)-(intensity#/2)
         partzvel#(t)=rnd(intensity#)-(intensity#/2)
         show object (200+t)
      endif
   if p>=particles then exit
until t>=max(1)
endfunction
function handle_explosion()
for t=1 to max(1)
   if partlife(t)>1
      partlife(t) = partlife(t) - 1 : position object 200+t,partx#(t),party#(t),partz#(t)

      scale object 200+t,partlife(t)*10,partlife(t)*10,partlife(t)*10
      partxvel#(t)=partxvel#(t)*0.95 : partyvel#(t)=partyvel#(t)*0.95
      partzvel#(t)=partzvel#(t)*0.95 : partyvel#(t)=partyvel#(t)+0.5
      partx#(t) = partx#(t) + (partxvel#(t)) : party#(t) = party#(t)+((partyvel#(t)/2))
      partz#(t) = partz#(t) + (partzvel#(t))
      if party#(t)<=0 then partyvel#(t)=partyvel#(t)-1
   endif
   if partlife(t)=1
      partlife(t)=0 : hide object 200+t
   endif
next t
endfunction



function request_explosion2(ex2#,ey2#,ez2#,particles2,intensity2#,life2)
t2=0:p2=0
repeat : t2=t2+1
      if epartlife(t2)=0
         p2=p2+1
         epartlife(t2)=life2 + rnd(life2/5) : epartx#(t2)=ex2# : eparty#(t2)=ey2#
         epartz#(t2)=ez2# : epartyvel#(t2)=rnd(intensity2#*2)-(intensity2#/2)
         epartxvel#(t2)=rnd(intensity2#)-(intensity2#/2) : epartzvel#(t2)=rnd(intensity2#)-(intensity2#/2)
         show object (121+t2)
      endif
   if p2>=particles2 then exit
until t2>=emax(1)
endfunction

function handle_explosion2()
for t2=1 to emax(1)
   if epartlife(t2)>1
      epartlife(t2) = epartlife(t2) - 1
      position object 121+t2,epartx#(t2),eparty#(t2),epartz#(t2)
      fade object 121+t2,epartlife(t2)*2
      scale object 121+t2,epartlife(t2)*2,epartlife(t2)*2,epartlife(t2)*2
      epartxvel#(t2)=epartxvel#(t2)*0.95 : epartyvel#(t2)=epartyvel#(t2)*0.95
      epartzvel#(t2)=epartzvel#(t2)*0.95 : epartyvel#(t2)=epartyvel#(t2)-0.1
      epartx#(t2) = epartx#(t2) + (epartxvel#(t2)) : eparty#(t2) = eparty#(t2) + (epartyvel#(t2))
      epartz#(t2) = epartz#(t2) + (epartzvel#(t2)) : endif
   if epartlife(t2)=1
      epartlife(t2)=0
      hide object 121+t2 : endif
next t2
endfunction


drawword:
for character=1 to len(reading$)
individual$=mid$(reading$,character)
asciinum=asc(individual$)
if asciinum=32 then inc writerx,4 : goto spacechar
superscript=0
if asciinum=48 then superscript=4
if asciinum=49 then superscript=4
if asciinum=50 then superscript=4
if asciinum=51 then superscript=4
if asciinum=52 then superscript=4
if asciinum=53 then superscript=4
if asciinum=54 then superscript=4
if asciinum=55 then superscript=4
if asciinum=56 then superscript=4
if asciinum=57 then superscript=4
sprite spritenumber,writerx,writery-superscript,asciinum+fontimagebump : show sprite spritenumber
inc writerx,fontwidth(asciinum)
inc spritenumber
spacechar:
next character
return


COINDISPLAY:

         load array "data/k1/g1",gemtype(0)
         load array "data/k1/g2",gemX(0)
         load array "data/k1/g3",gemY(0)
         load array "data/k1/g4",gemZ(0)

         for make=150 to 198
            if object exist(make)=1 then delete object make
         next make

         make=150

         for readx=0 to 40

            if gemtype(readx)=1

            inc coinlimit

            load object "3d/coin.x",make
            scale object make,275,275,275
            set object make,1,0,0,1,1,0,1
            xrotate object make,270 : fix object pivot make
            yrotate object make,rnd(70)

            position object make,gemx(readx),gemy(readx)+20,gemz(readx)
            gemnum(readx)=make

            inc make

            make object plain make,24,5
            xrotate object make,90 : fix object pivot make
            texture object make,113
            ghost object on make,1
            SET OBJECT TRANSPARENCY make,1
            SET OBJECT FILTER make,0
            position object make,gemx(readx),gemy(readx)+0.3,gemz(readx)

            inc make

            endif

         next readx

RETURN

2dkarts:

         rem 2D STUFF
         rem -------------------------------------------------------------------------

         rem Action replay display for replays
         if gamemode=1


            inc tickereplay
            if tickereplay=<20
            reading$="Action replay!"
            writerx=656 : writery=140 : gosub drawword
            endif
            if tickereplay=40 then tickereplay=0

         endif

         rem Position and position
         IF GAMEMODE=0

         IF PLAYERPOSITION#=1 THEN reading$="Position  -  1st"
         IF PLAYERPOSITION#=2 THEN reading$="Position  -  2nd"
         IF PLAYERPOSITION#=3 THEN reading$="Position  -  3rd"
         IF PLAYERPOSITION#=4 THEN reading$="Position  -  4th"
         writerx=20-dxSCROLLY*2 : writery=20 : gosub drawword

         rem Display Laps
         showlap#=lap#
         if showlap#=<0 then showlap#=0
         reading$="Lap  -  "+str$(showlap#)+" of 2"
         writerx=20-dxSCROLLY*2 : writery=50 : gosub drawword

         rem F1 Key
         if keystate(59)=1
         ink rgb(5,5,5),0
         box 28,415-6+60,252,572
         box 20,415-6+60,28,572
         box 252,415-6+60,260,572
         box 28,407-6+60,252,415+60
         box 28,572-6,252,580
         sprite 13,20,407-6+60,118 : show sprite 13
         sprite 14,252,407-6+60,119 : show sprite 14
         sprite 15,20,572,120 : show sprite 15
         sprite 16,252,572,121 : show sprite 16
         reading$="UPKEY - accelerate"
         writerx=40 : writery=480 : gosub drawword
         reading$="DOWNKEY - brake"
         writerx=40 : writery=500 : gosub drawword
         reading$="LEFT - steer left"
         writerx=40 : writery=520 : gosub drawword
         reading$="RIGHT - steer right"
         writerx=40 : writery=540 : gosub drawword
         endif

         rem Speedometer
         sprite 9,774+dxSCROLLY*2,574,122
         rotate sprite 9,180+(speed#*10)

         rem Something to say...
         if displaytext=<150
         IF STARTIMER=0
            inc displaytext
            ink rgb(5,5,5),1
            box 268,401+60,532,398+121
            box 260,348+121,268,390+121
            box 532,348+121,540,390+121
            sprite 17,260,340+121,118 : show sprite 17
            sprite 18,532,340+121,119 : show sprite 18
            sprite 19,260,390+121,120 : show sprite 19
            sprite 20,532,390+121,121 : show sprite 20
            reading$=displaytext$
            writerx=280 : writery=360+121 : gosub drawword
         endif
         ENDIF

         rem SPEED
         displayspeed=speed#*10
         reading$=""+str$(displayspeed/10)+"mph"
         writerx=590+dxSCROLLY*2 : writery=522 : gosub drawword


         rem Timer at top
            ink rgb(5,5,5),1
            box 268+80,23-DXSCROLLY*2,532-80,65-DXSCROLLY*2
            box 260+80,31-DXSCROLLY*2,268+80,57-DXSCROLLY*2
            box 532-80,31-DXSCROLLY*2,540-80,57-DXSCROLLY*2
            reading$="0"+str$(timemin#)+""
            writerx=357 : writery=34-DXSCROLLY*2 : gosub drawword
            reading$=":"
            writerx=398 : writery=34-DXSCROLLY*2 : gosub drawword
            if timesec#=>10
               reading$=""+str$(timesec#)+""
            else
               reading$="0"+str$(timesec#)+""
            endif
            writerx=409 : writery=34-DXSCROLLY*2 : gosub drawword
            sprite 21,260+80,23-DXSCROLLY*2,118 : show sprite 21
            sprite 22,532-80,23-DXSCROLLY*2,119 : show sprite 22
            sprite 23,260+80,57-DXSCROLLY*2,120 : show sprite 23
            sprite 24,532-80,57-DXSCROLLY*2,121 : show sprite 24

            IF STARTIMER=0
            inc timemilli#
            endif

            if timemilli#=>60 then dec timesec# : timemilli#=0
            if timesec#=-1 then timesec#=59 : dec timemin#
            if timesec#=>60 then dec timesec#,60 : inc timemin#,1

            ENDIF

            if gamemode=>1
            ink rgb(0,0,0),1
            box 0,0,800,120+DXSCROLLY
            box 0,480-DXSCROLLY,800,600
            endif

         if gamemode=0
         IF STARTIMER=>1

            ink rgb(5,5,5),1
            box 268+60,401+60+DXSCROLLY*2,532-60,398+121+DXSCROLLY*2
            box 260+60,348+121+DXSCROLLY*2,268+60,390+121+DXSCROLLY*2
            box 532-60,348+121+DXSCROLLY*2,540-60,390+121+DXSCROLLY*2
            sprite 17,260+60,340+121+DXSCROLLY*2,118 : show sprite 17
            sprite 18,532-60,340+121+DXSCROLLY*2,119 : show sprite 18
            sprite 19,260+60,390+121+DXSCROLLY*2,120 : show sprite 19
            sprite 20,532-60,390+121+DXSCROLLY*2,121 : show sprite 20

            rem GO!!!
            IF STARTIMER=<50
            SPRITE 31,344,350+123+DXSCROLLY*2,125 : SHOW SPRITE 31
            SPRITE 32,384,350+123+DXSCROLLY*2,125 : SHOW SPRITE 32
            sPRITE 33,424,350+123+DXSCROLLY*2,125 : SHOW SPRITE 33
            ENDIF

            rem TWO LIGHTS
            IF STARTIMER=>50
            IF STARTIMER=<100
            SPRITE 31,344,350+123+DXSCROLLY*2,124 : SHOW SPRITE 31
            SPRITE 32,384,350+123+DXSCROLLY*2,124 : SHOW SPRITE 32
            ENDIF
            ENDIF

            rem ONE LIGHT
            IF STARTIMER=<150
            IF STARTIMER=>100
            SPRITE 31,344,350+123+DXSCROLLY*2,124 : SHOW SPRITE 31
            ENDIF
            ENDIF

         ENDIF
         endif

return

slavesdisplay:
         for object=1601 to 1640
         if object exist(object)=1 then delete object object
         next object

         create=1601 : readxwrite=0

         for readxX=0 to 5

            if slavetype(readxX)=1
            load object "3d/slave.x",create : scale object create,550,550,550 : set object create,1,1,0,1,1,0,1
            append object "3d/slavethank.x",create,12 : set object speed create,5
            position object create,slavex(readxX),slavey(readxX)-1,slavez(readxX)
            readslavestate(readxX)=0
            readslavenumber(readxX)=create
            inc create
            make object plain create,30,30 : texture object create,111
            xrotate object create,90 : fix object pivot create
            SET OBJECT FILTER create,0 : set object fog create,0
            SET OBJECT TRANSPARENCY create,1 : ghost object on create,1
            position object create,slavex(readxX),slavey(readxX)+0.3,slavez(readxX)

            inc create
            endif

            if slavetype(readxX)=2
            load object "3d/dumbow.x",create : scale object create,550,550,550 : set object create,1,1,0,1,1,0,1
            set object speed create,5
            position object create,slavex(readxX),slavey(readxX)-1,slavez(readxX)
            readslavestate(readxX)=0
            readslavenumber(readxX)=create
            inc create
            make object plain create,30,30 : texture object create,111
            xrotate object create,90 : fix object pivot create
            SET OBJECT FILTER create,0 : set object fog create,0
            SET OBJECT TRANSPARENCY create,1 : ghost object on create,1
            position object create,slavex(readxX),slavey(readxX)+0.3,slavez(readxX)

            inc create
            endif

         next readxX
return