Sorry your browser is not supported!

Data 5,5
Data 2, 1, 1,10, 1
Data 6, 8, 8,10, 1
Data 1, 1, 3,10, 1
Data 1, 9, 7, 7, 7
Data 1, 9, 1, 1, 1
Data 10
Data 3,3,3,3,1,1,4,4,4,4

REM Project: AGE OF PRIMITIVES
REM Created: 3/14/2005 2:11:39 PM
REM     by Coding Fodder
REM ***** Main Source File *****
REM
sync on:sync rate 0
autocam off

type unit
   owner as integer
   kind as integer
   radius as float
   range as float
   attack as integer
   hitpoints as integer
   armor as integer
   speed as float
   attack_speed as integer
   harvest_speed as integer
   goalx as float
   goalz as float
   posx as float
   posz as float
   target as integer
   actiontime as float
   animation as integer
   animation_frame as integer
endtype

Dim units(1000) as unit
dim unit_list(1000) as boolean
dim selected_units(30)
dim battalion(10,30)

global game_time#
global last_time#
global time_step#
global units_selected

make object cube 10,100
hide object 10
game_time#=timer()/1000.0
make_land()
position camera 0,0,1000,150
point camera 0,0,1000,-200
pitch camera down 70
set directional light 0,1,-2,-0.7

for i=1 to 10
   create_fighter(rnd(1)+1,rnd(1000)-500,rnd(1000)-500)
next i

for i=1 to 10
   create_worker(rnd(1)+1,rnd(1000)-500,rnd(1000)-500)
next i

for i=1 to 50
   create_resource(rnd(5000)-2500,rnd(5000)-2500)
next i


do
   last_time#=game_time#
   game_time#=timer()/1000.0
   time_step#=game_time#-last_time#
   select_unit()
   display_selected()
   command_selected()
   camera_control()
   mouse_indicator()
   move_units()
   perform_action()
   check_death()
   text 1,1,str$(screen fps())
   sync
loop

function check_death()
   for i=1 to 999
      if unit_list(i)=1
         if units(i).hitpoints<=0 then remove_unit(i)
      endif
   next i
endfunction

function remove_unit(num)
   delete object num+1000
   unit_list(num)=0
   units(num).owner=0
   units(num).kind=0
   units(num).radius=0
   units(num).range=0
   units(num).attack=0
   units(num).hitpoints=0
   units(num).armor=0
   units(num).speed=0
   units(num).harvest_speed=0
   units(num).goalx=0
   units(num).goalz=0
   units(num).target=0
   units(num).actiontime=0
   units(num).animation=0
   units(num).animation_frame=0

   for i=1 to 10
      for j=1 to 30
         if battalion(i,j)=num
            for h=j to 29
               battalion(i,h)=battalion(i,h+1)
            next h
         endif
      next j
   next i
   for j=1 to units_selected
      if selected_units(j)=num
         for h=j to units_selected-1
            selected_units(h)=selected_units(h+1)
         next h
         dec units_selected
      endif
   next j
endfunction

function perform_action()
   for i=1 to 999
      if unit_list(i)=1
         if units(i).target>0
            target=units(i).target
            if units(target).owner>0
               if abs(game_time#-units(i).actiontime)>=units(i).attack_speed
                  if ((units(i).radius+units(i).range+units(target).radius)^2.0)>=((units(i).posx-units(target).posx)^2.0+(units(i).posz-units(target).posz)^2.0)
                     units(i).actiontime=game_time#
                     units(i).animation=1
                     units(i).animation_frame=1
                     units(target).hitpoints=units(target).hitpoints-units(i).attack
                  endif
               endif
            else
               if abs(units(i).actiontime-game_time#)>=units(i).harvest_speed
                     if ((units(i).radius+units(target).radius)^2.0)>=((units(i).posx-units(target).posx)^2.0+(units(i).posz-units(target).posz)^2.0)-5
                     units(i).actiontime=game_time#
                     units(i).animation=2
                     units(i).animation_frame=1
                  endif
               endif
            endif
         endif
         select units(i).animation
            case 1:position object i+1000,object position x(i+1000),sin(units(i).animation_frame)*20.0+20,object position z(i+1000)
                   units(i).animation_frame=units(i).animation_frame+time_step#*300.0
                   if units(i).animation_frame>180 then units(i).animation=0
            endcase
         endselect
      endif
   next i
endfunction

function move_units()
   for i=0 to 999
      if unit_list(i)=1
         if units(i).target>0
            units(i).goalx=units(units(i).target).posx
            units(i).goalz=units(units(i).target).posz
         endif
         dist#=time_step#*units(i).speed
         totaldist#=((units(i).posx-units(i).goalx)^2.0+(units(i).posz-units(i).goalz)^2.0)
         if totaldist#>100
            angle#=atanfull(units(i).goalx-units(i).posx,units(i).goalz-units(i).posz)
            tempx#=units(i).posx
            tempz#=units(i).posz
            clear=0
            counter=0
            repeat
               x#=tempx#+sin(angle#)*dist#
               z#=tempz#+cos(angle#)*dist#
               position_unit(i,x#,z#)
               if collision(i)=0
                  clear=1
               else
                  if totaldist#<1700
                     clear=1
                     position_unit(i,tempx#,tempz#)
                  endif
               endif
               dec angle#,10.0
               inc counter
            until clear=1 or counter=36
            if counter=36 then position_unit(i,tempx#,tempz#)
         endif
      endif
   next i
endfunction

function position_unit(num,x#,z#)
   position object num+1000,x#,object position y(num+1000),z#
   units(num).posx=x#
   units(num).posz=z#
endfunction

function mouse_indicator()
   follow#=3.0
   xdist#=mousex()-object screen x(10)
   zdist#=mousey()-object screen y(10)
   position object 10,object position x(10)-xdist#*follow#,0,object position z(10)+zdist#*follow#
endfunction

function command_selected()
   if units(selected_units(1)).owner=1
      if mouseclick()=2 or returnkey()=1
         obj=pick object(mousex(),mousey(),1000,1999)
         if obj=0
            for i=1 to units_selected
               set_unit_goal(selected_units(i),object position x(10),object position z(10))
               text 1,1,"please go here"
            next i
         else
            for i=1 to units_selected
               if units(obj-1000).owner>1
                  set_unit_target(selected_units(i),obj-1000)
               else
                  set_unit_goal(selected_units(i),object position x(10),object position z(10))
               endif
            next i
         endif
      endif
   endif
endfunction

function set_unit_goal(num,x#,z#)
   units(num).goalx=x#
   units(num).goalz=z#
   units(num).target=0
endfunction

function set_unit_target(num,target)
   units(num).target=target
endfunction

function display_selected()
   for i=1 to units_selected
      string$=""
      select units(selected_units(i)).kind
         case 1:string$="Fighter: ":endcase
         case 2:string$="Worker: ":endcase
         case 3:string$="Resource: ":endcase
      endselect
      string$=string$+" Hit points "+str$(units(selected_units(i)).hitpoints)
      text 1,i*15,string$
   next i
endfunction

function select_unit()
   if mouseclick()=1
      num=pick object(mousex(),mousey(),1000,1999)
      if num > 0
         if shiftkey()=1
            if units(num-1000).owner=1
               if units(selected_units(1)).owner>1 or units(selected_units(1)).owner=0
                  selected_units(1)=0
                  units_selected=0
               endif
               if units_selected<30
                  inc units_selected
                  selected_units(units_selected)=num-1000
                  for i=1 to units_selected-1
                     if selected_units(i)=num-1000
                        selected_units(units_selected)=0
                        dec units_selected
                     endif
                  next i
               endif
            else
               if units(selected_units(1)).owner>1 or units_selected=0 or units(selected_units(1)).owner=0
                  units_selected=1
                  selected_units(1)=num-1000
               endif
            endif
         else
            units_selected=1
            selected_units(1)=num-1000
         endif
      else
         if shiftkey()=0
            units_selected=0
            selected_units(1)=0
         endif
      endif
   endif

   if scancode()=2 then listswap(1)
   if scancode()=3 then listswap(2)
   if scancode()=4 then listswap(3)
   if scancode()=5 then listswap(4)
   if scancode()=6 then listswap(5)
   if scancode()=7 then listswap(6)
   if scancode()=8 then listswap(7)
   if scancode()=9 then listswap(8)
   if scancode()=10 then listswap(9)
   if scancode()=11 then listswap(10)
endfunction

function listswap(num)
   if controlkey()=1
      for i=1 to units_selected
         battalion(num,i)=0
         battalion(num,i)=selected_units(i)
      next i
      for i=units_selected+1 to 30
         battalion(num,i)=0
      next i
   else
      units_selected=0
      for i=1 to 30
         selected_units(i)=battalion(num,i)
         if battalion(num,i)>0 then inc units_selected
      next i
   endif
endfunction

function position_new_unit(num,x#,z#)
   position object num+1000,x#,object position y(num+1000),z#
   units(num).posx=x#
   units(num).posz=z#
   repeat
      if collision(num)=1
         inc angle#,1
         inc dist#,1
         position object num+1000,x#+cos(angle#)*dist#,object position y(num+1000),z#+sin(angle#)*dist#
         units(num).posx=x#+cos(angle#)*dist#
         units(num).posz=z#+sin(angle#)*dist#
      else
         clear=1
      endif
   until clear=1
   units(num).goalx=object position x(num+1000)
   units(num).goalz=object position z(num+1000)
endfunction

function collision(num)
   out=0
   select units(num).kind
      case 1:radius1#=20.0:endcase
      case 2:radius1#=20.0:endcase
      case 3:radius1#=40.0:endcase
   endselect

   for i=1 to num-1
      if unit_list(i)=1
         select units(i).kind
            case 1:radius#=20.0:endcase
            case 2:radius#=20.0:endcase
            case 3:radius#=40.0:endcase
         endselect
         if ((units(num).posx-units(i).posx)^2+(units(num).posz-units(i).posz)^2)<(radius1#+radius#)^2.0 then out=1
      endif
   next i

   for i=num+1 to 999
      if unit_list(i)=1
         select units(i).kind
            case 1:radius#=20.0:endcase
            case 2:radius#=20.0:endcase
            case 3:radius#=40.0:endcase
         endselect
         if ((units(num).posx-units(i).posx)^2+(units(num).posz-units(i).posz)^2)<(radius1#+radius#)^2.0 then out=1
      endif
   next i
endfunction out

function create_resource(x#,z#)
   num=empty_unit_number()
   if num<1000
      make object sphere num+1000,80
      color object num+1000,RGB(170,164,34)
      add_unit(num,0,3)
      position_new_unit(num,x#,z#)
   endif
endfunction

function create_worker(team,x#,z#)
   num=empty_unit_number()
   if num<1000
      make object sphere num+1000,40
      select team
         case 1:color object num+1000,rgb(0,0,255):endcase
         case 2:color object num+1000,rgb(255,0,0):endcase
      endselect
      add_unit(num,team,2)
      position object num+1000,0,20,0
      position_new_unit(num,x#,z#)
   endif
endfunction

function create_fighter(team,x#,z#)
   num=empty_unit_number()
   if num<1000
      make object cone num+1000,40
      select team
         case 1:color object num+1000,rgb(0,0,255):endcase
         case 2:color object num+1000,rgb(255,0,0):endcase
      endselect
      add_unit(num,team,1)
      position object num+1000,0,20,0
      position_new_unit(num,x#,z#)
   endif
endfunction

function add_unit(num,team,kind)
   unit_list(num)=1
   units(num).kind=kind
   units(num).owner=team
   units(num).posx=object position x(num+1000)
   units(num).posz=object position z(num+1000)
   units(num).goalx=object position x(num+1000)
   units(num).goalz=object position z(num+1000)
   select kind
      case 1:units(num).attack=10
             units(num).hitpoints=50
             units(num).speed=150.0
             units(num).attack_speed=2.0
             units(num).radius=20.0
             units(num).range=3.0
      endcase
      case 2:units(num).attack=2
             units(num).hitpoints=20
             units(num).speed=100.0
             units(num).attack_speed=2.0
             units(num).harvest_speed=0.700
             units(num).radius=20.0
             units(num).range=3.0
      endcase
      case 3:units(num).attack=0
             units(num).hitpoints=500+rnd(500)
             units(num).speed=0.0
             units(num).attack_speed=0
             units(num).radius=40.0
      endcase
   endselect
endfunction

function empty_unit_number()
   i=0
   repeat
      inc i
   until unit_list(i)=0 or i>999
endfunction i

function camera_control()
   camera_speed#=1500.0
   dist#=camera_speed#*time_step#
   pitch camera up 70
   if keystate(17)=1 then position camera 0,camera position x(),camera position y()+1,camera position z()
   if keystate(18)=1 then position camera 0,camera position x(),camera position y()-1,camera position z()
   if upkey() then move camera dist#
   if downkey() then move camera -dist#
   if rightkey() :turn camera right 90:move camera dist#:turn camera left 90:endif
   if leftkey() :turn camera left 90:move camera dist#:turn camera right 90:endif
   if mousex()<1 :turn camera left 90:move camera dist#:turn camera right 90:endif
   if mousex()>screen width()-2 :turn camera right 90:move camera dist#:turn camera left 90:endif
   if mousey()<1 :move camera dist#:endif
   if mousey()>screen height()-2 :move camera -dist#:endif
   pitch camera down 70
endfunction

function set_locked_pixel(x,y,color_value)
   start=get pixels pointer()
   repeat_number=get pixels pitch()
   bits_per_pixel=bitmap depth(num)/8
   pointer=start+y*repeat_number+x*bits_per_pixel
   *pointer=color_value
endfunction

function make_land()
   make object plain 1,5000,5000
   make object plain 2,5000,5000
   xrotate object 1,-90
   xrotate object 2,-90

   for bitnum=1 to 2
   lock pixels
   for i=0 to 255
      for j=0 to 255
         set_locked_pixel(i,j,rgb(rnd(20*(bitnum-1)),rnd(50+50*(bitnum-1))+155*(bitnum-1),rnd(20*(bitnum-1))))
      next j
   next i
   unlock pixels
      get image bitnum,0,0,255,255
      texture object bitnum,bitnum
   next bitnum

   scale object texture 1,5,5
   ghost object on 1
endfunction

`************** DiNGo DaNGo
`***************** By Jimmy

SYNC ON : SYNC RATE 40 : HIDE MOUSE

DIM Moves(8) as String

Moves(0) = ""
Moves(1) = "Forward 1"
Moves(2) = "Forward 2"
Moves(3) = "Forward 3"
Moves(4) = "Rotate Left"
Moves(5) = "Rotate Right"
Moves(6) = "Rotate 180"
Moves(7) = "Backward 1"


scrW = SCREEN WIDTH()

Make_Robot(100)
SCALE OBJECT 100, 50, 50, 50
INK RGB(255, 255, 255), RGB(0, 0, 0)

MAKE OBJECT CUBE 1, 5
COLOR OBJECT 1, RGB(100, 100, 100)

MAKE OBJECT CUBE 2, 5
COLOR OBJECT 2, RGB(0, 0, 200)

MAKE OBJECT CUBE 3, 5
COLOR OBJECT 3, RGB(0, 200, 0)

MAKE OBJECT CUBE 4, 5
COLOR OBJECT 4, RGB(0, 0, 0)

MAKE OBJECT CUBE 5, 5
COLOR OBJECT 5, RGB(255, 0, 0)

MAKE OBJECT CUBE 6, 3
COLOR OBJECT 6, RGB(255, 255, 0)

MAKE OBJECT CUBE 7, 5
COLOR OBJECT 7, RGB(255, 0, 255)

FOR i=1 TO 7
   HIDE OBJECT i
NEXT i

`MAKE OBJECT SPHERE 100, 4
`COLOR OBJECT 100, RGB(255, 255, 0)
MAKE OBJECT CONE 101, 2
COLOR OBJECT 101, RGB(255, 155, 0)
HIDE OBJECT 101

CurLevel = 0

NEWLEVEL:

GOSUB LoadNextLevel

RESTART:

PPosX# = blueJ*5.4
PPosZ# = blueI*5.4
PAng# = 0
OAng# = 0
CamHeight# = 15.0
curMove = 0
camx = levW*-1
camz = levW*-1
POSITION CAMERA camx, CamHeight#, camz
POINT CAMERA (levW*5.4)/2, 0, (levH*5.4)/2
Page = 1
QPage = 1
DO
   `CONTROL CAMERA USING ARROWKEYS 0, 1, 1
   POSITION OBJECT 100, PPosX#, 2, PPosZ#
   POSITION OBJECT 101, PPosX#, 2, PPosZ#
   YROTATE OBJECT 100, PAng#
   ROTATE OBJECT 101, 0, 0, 0
   YROTATE OBJECT 101, PAng#
   MOVE OBJECT 101, 2.5
   XROTATE OBJECT 101, 90



   TEXT 5, 5, "Available Moves"
   Count = 0
   FOR i = ((Page-1)*26)+1 TO ((Page-1)*26)+26
      INC Count
      TEXT 5, Count*11+10, CHR$(96+Count)+": "+Moves(levelMoves(i))
      IF i = numMoves THEN i = ((Page-1)*26)+27
   NEXT i
   TEXT 5, 26*11+30, "Page "+STR$(Page)+" of "+STR$(TPages)
   TEXT scrW-140, 5, "Queued UP Moves"

   IF QPage <= TPages
   Count = 0
   FOR i = ((QPage-1)*26)+1 TO ((QPage-1)*26)+26
      INC Count
      IF i = (CurMove-1) THEN INK RGB(255, 255, 0), RGB(0, 0, 0)
      TEXT scrW-140, Count*11+10, CHR$(64+Count)+": "+Moves(qMoves(i))
      INK RGB(255, 255, 255), RGB(0, 0, 0)
      IF i = numMoves THEN i = ((QPage-1)*26)+27
   NEXT i
   TEXT scrW-140, 26*11+30, "Page "+STR$(QPage)+" of "+STR$(TPages)
   ENDIF

      POSITION CAMERA camx, CamHeight#, camz
      POINT CAMERA (levW*5.4)/2, 0, (levH*5.4)/2
      IF KEYSTATE(203) = 1 AND leftDown = 0
         PAng# = WRAPVALUE(PAng#-90)
         leftDown = 1
      ENDIF
      IF KEYSTATE(203) = 0 AND leftDown = 1 THEN leftDown = 0

      IF KEYSTATE(205) = 1 AND rightDown = 0
         PAng# = WRAPVALUE(PAng#+90)
         rightDown = 1
      ENDIF
      IF KEYSTATE(205) = 0 AND rightDown = 1 THEN rightDown = 0

      IF KEYSTATE(200) = 1 AND CamHeight# > 5 THEN DEC CamHeight#, 0.5
      IF KEYSTATE(208) = 1 AND CamHeight# < 95 THEN INC CamHeight#, 0.5

         `ConvAng# = WRAPVALUE(PAng#)
         `GOSUB GetCurSquare
         `GOSUB GetNextSquare
         `GOSUB GetPrevSquare
      CENTER TEXT scrW/2, 5, "DiNGo DaNGo!!"
      CENTER TEXT scrW/2, 21, "LEVEL: "+STR$(CurLevel)+" - '"+MapName$+"'"



   IF Running = 1
      IF OnRotator = 1 THEN OAng# = WRAPVALUE(OAng#+2.0)
      IF OnConvey = 1 THEN OAng# = WRAPVALUE(OAng#+(90.0/54.0))
      FOR i = 1 TO levH
         FOR j = 1 TO levW
            obj = level(i, j)
            IF OnRotator = 1 OR OnConvey = 1
               IF obj = 5 THEN YROTATE OBJECT levelObj(i, j), OAng#
               IF obj = 11 THEN YROTATE OBJECT levelObj(i, j), OAng#*-1
               IF obj = 7 THEN XROTATE OBJECT levelObj(i, j), OAng#
               IF obj = 8 THEN XROTATE OBJECT levelObj(i, j), OAng#*-1
               IF obj = 9 THEN ZROTATE OBJECT levelObj(i, j), OAng#
               IF obj = 10 THEN ZROTATE OBJECT levelObj(i, j), OAng#*-1
            ELSE
               OAng# = 0
               IF obj = 5 THEN YROTATE OBJECT levelObj(i, j), 0
               IF obj = 11 THEN YROTATE OBJECT levelObj(i, j), 0
               IF obj = 7 THEN XROTATE OBJECT levelObj(i, j), 0
               IF obj = 8 THEN XROTATE OBJECT levelObj(i, j), 0
               IF obj = 9 THEN ZROTATE OBJECT levelObj(i, j), 0
               IF obj = 10 THEN ZROTATE OBJECT levelObj(i, j), 0
            ENDIF
         NEXT j
      NEXT i
      QPage = (CurMove/27)+1
      IF Stopped = 1
         ConvAng# = WRAPVALUE(PAng#)

         GOSUB GetCurSquare
         GOSUB GetNextSquare
         GOSUB GetPrevSquare

         tSquare = curSquare
         IF Action = 0
            IF OnConvey = 1 THEN OnConvey = 0 : curSquare = 0
            IF curSquare > 6 AND curSquare < 11
               IF curSquare = 7 THEN ConvAng# = 0
               IF curSquare = 8 THEN ConvAng# = 180
               IF curSquare = 9 THEN ConvAng# = 270
               IF curSquare = 10 THEN ConvAng# = 90
               GOSUB GetNextSquare
               GOSUB GetPrevSquare
               Action = 1
               OnConvey = 1
            ENDIF
            IF OnRotator = 1 THEN OnRotator = 0 : curSquare = 0
            IF curSquare = 5 THEN OnRotator = 1 : Action = 5
            IF curSquare = 11 THEN OnRotator = 1 : Action = 4
         ENDIF
         IF Action = 0 AND curMove > numQMoves AND OnConvey = 0
            IF tSquare = 3
               GOSUB UnloadLevel
               GOSUB NEWLEVEL
            ELSE
               GOSUB GameOver
            ENDIF
         ENDIF
         IF Action = 0 AND curMove <= numQMoves THEN Action = qMoves(curMove) : INC curMove
         Stopped = 0
         Movement# = 0.0
      ELSE
         IF Action < 4 OR Action = 7
            IF Action > 0
               Tread# = 0.0
               IF Action <> 7 AND nextSquare <> 6 THEN YROTATE OBJECT 100, ConvAng# : MOVE OBJECT 100, 0.1 : YROTATE OBJECT 100, PAng# : Tread# = -0.01
               IF Action <> 7 AND nextSquare = 6 AND OnConvey = 0 THEN Action = 1 : Movement# = 5.4
               IF Action = 7 AND prevSquare <> 6 THEN YROTATE OBJECT 100, ConvAng# : MOVE OBJECT 100, -0.1 : YROTATE OBJECT 100, PAng# : Tread# = 0.01
               IF Action = 7 AND prevSquare = 6 AND OnConvey = 0 THEN Movement# = 5.4
               INC Movement#, 0.1
               IF OnConvey = 0
                  SCROLL LIMB TEXTURE 100, 4, Tread#, 0
                  SCROLL LIMB TEXTURE 100, 5, Tread#, 0
               ENDIF
               IF Movement# >= 5.3
                  Stopped = 1
                  DEC Action
                  ConvAng# = 0
                  IF Action = 6 THEN Action = 0
                  GOSUB GetCurSquare
                  GOSUB GetNextSquare
                  GOSUB GetPrevSquare
                  IF curSquare = 0 OR curSquare = 4
                     REMSTART
                     REPEAT
                        pizzle# = (OBJECT POSITION Z(100)) / 5.3
                        TEXT 5, 200, STR$(nextSquare)+":"+STR$(curSquare)+":"+STR$(prevSquare)
                        TEXT 5, 211, STR$(pNextI)+","+STR$(pNextJ)
                        TEXT 5, 222, STR$(pI)+","+STR$(pJ)
                        TEXT 5, 233, STR$(pPrevI)+","+STR$(pPrevJ)
                        TEXT 5, 244, STR$(pizzle#)
                        TEXT 5, 255, STR$(OBJECT POSITION Z(100))
                        TEXT 5, 266, STR$(Action)
                        TEXT 5, 277, STR$(Movement#)
                        TEXT 5, 288, STR$(curMove)
                        TEXT 5, 299, STR$(numQMoves)
                        SYNC
                     UNTIL KEYSTATE(30) = 1
                     REMEND
                     GOSUB GameOver
                  ENDIF
               ENDIF
            ENDIF
         ENDIF
         IF Action = 4 OR Action = 5
            IF Action = 4
               PAng# = OBJECT ANGLE Y(100)-2
               IF OnRotator = 0
                  SCROLL LIMB TEXTURE 100, 4, -0.01, 0
                  SCROLL LIMB TEXTURE 100, 5, 0.01, 0
               ENDIF
            ENDIF
            IF Action = 5
               PAng# = OBJECT ANGLE Y(100)+2
               IF OnRotator = 0
                  SCROLL LIMB TEXTURE 100, 4, 0.01, 0
                  SCROLL LIMB TEXTURE 100, 5, -0.01, 0
               ENDIF
            ENDIF
            YROTATE OBJECT 100, PAng#
            INC Movement#, 2.0
            IF Movement# >= 90.0
               Stopped = 1
               Action = 0
            ENDIF
         ENDIF
         IF Action = 6
            PAng# = OBJECT ANGLE Y(100)+2
            YROTATE OBJECT 100, PAng#
            SCROLL LIMB TEXTURE 100, 4, 0.01, 0
            SCROLL LIMB TEXTURE 100, 5, -0.01, 0
            INC Movement#, 2.0
            IF Movement# >= 180.0
               Stopped = 1
               Action = 0
            ENDIF
         ENDIF
         PPosX# = OBJECT POSITION X(100)
         PPosZ# = OBJECT POSITION Z(100)
      ENDIF
   ELSE
      OAng# = WRAPVALUE(OAng#+2.0)

      FOR i = 1 TO levH
         FOR j = 1 TO levW
            obj = level(i, j)
            IF obj = 5 THEN YROTATE OBJECT levelObj(i, j), OAng#
            IF obj = 11 THEN YROTATE OBJECT levelObj(i, j), OAng#*-1
            IF obj = 7 THEN XROTATE OBJECT levelObj(i, j), OAng#
            IF obj = 8 THEN XROTATE OBJECT levelObj(i, j), OAng#*-1
            IF obj = 9 THEN ZROTATE OBJECT levelObj(i, j), OAng#
            IF obj = 10 THEN ZROTATE OBJECT levelObj(i, j), OAng#*-1
         NEXT j
      NEXT i
      CENTER TEXT scrW/2, 40, "HOLD TAB TO VIEW INSTRUCTIONS"

      IF KEYSTATE(15) = 1
         INK RGB(0, 0, 0), RGB(0, 0, 0)
         BOX 97, 103, 545, 370
         INK RGB(255, 255, 255), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 110, "GRAY SQUARES ARE PLATFORMS - OK FOR DINGO"
         INK RGB(255, 0, 0), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 121, "RED SQUARES TURN YOU 90 DEG. IN THE DIR. THEY SPIN"
         INK RGB(255, 0, 255), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 132, "PURPLE SQUARES PUSH YOU 1 SPACE IN THE DIR. THEY SPIN"
         INK RGB(255, 255, 0), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 143, "YELLOW SQUARES SCARE DINGO, HE WILL NOT MOVE ONTO THEM"
         INK RGB(115, 115, 115), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 154, "BLACK SQUARES ARE PITS OF DEATH. GAME OVER."
         INK RGB(255, 255, 255), RGB(0, 0, 0)
         CENTER TEXT scrW/2, 170, "OBJECT: GO FROM BLUE SQUARE TO GREEN SQUARE WITH THE"
         CENTER TEXT scrW/2, 181, "GIVEN MOVES. YOU MAY NEED ALL, YOU MAY NOT"
         CENTER TEXT scrW/2, 210, "USE LEFT-RIGHT ARROW KEYS TO CHOOSE STARTING DIRECTION"
         CENTER TEXT scrW/2, 221, "UP-DOWN ARROW KEYS MOVE THE CAMERA IN AND OUT"
         CENTER TEXT scrW/2, 240, "QUEUE UP YOUR DESIRED MOVES WITH THE CORRESPONDING"
         CENTER TEXT scrW/2, 251, "LETTER ON THE KEYBOARD."
         CENTER TEXT scrW/2, 270, "TO DELETE FROM THE QUEUE, HOLD SHIFT AND USE TEH"
         CENTER TEXT scrW/2, 281, "CAPITALS."
         CENTER TEXT scrW/2, 300, "USE , AND . TO FLIP THROUGH PAGES OF MOVES. HOLD SHIFT"
         CENTER TEXT scrW/2, 311, "TO FLIP THROUGH THE QUEUE'S PAGES."
         CENTER TEXT scrW/2, 330, "USE SHIFT+BACKSPACE TO CLEAR THE QUEUE."
         CENTER TEXT scrW/2, 350, "PRESS SPACE WHEN YOU ARE READY TO DIE."
      ENDIF
      Key = KeyToInt(INKEY$())
      IF Key <> 0 AND KeyDown = 0
         IF Key < 101 AND Key <= numMoves
            IF levelMoves(((Page-1)*26)+Key) <> 0
               INC numQMoves
               qMoves(numQMoves) = levelMoves(((Page-1)*26)+Key)
               qMoveKeys(numQMoves) = ((Page-1)*26)+Key
               levelMoves(((Page-1)*26)+Key) = 0
            ENDIF
         ENDIF

         IF Key > 100
            Key = Key - 100
            IF Key <= numQMoves
               GOSUB DeleteFromQ
            ENDIF
         ENDIF
         KeyDown = 1
      ENDIF
      IF Key = 0 AND KeyDown = 1 THEN KeyDown = 0

      IF KEYSTATE(51) = 1 AND CommaDown = 0
         IF KEYSTATE(54) = 0 AND KEYSTATE(42) = 0
            IF Page > 1 THEN DEC Page
         ELSE
            IF QPage > 1 THEN DEC QPage
         ENDIF
         CommaDown = 1
      ENDIF
      IF KEYSTATE(51) = 0 AND CommaDown = 1 THEN CommaDown = 0

      IF KEYSTATE(52) = 1 AND PeriodDown = 0
         IF KEYSTATE(54) = 0 AND KEYSTATE(42) = 0
            IF Page < TPages THEN INC Page
         ELSE
            IF QPage < TPages THEN INC QPage
         ENDIF
         PeriodDown = 1
      ENDIF
      IF KEYSTATE(52) = 0 AND PeriodDown = 1 THEN PeriodDown = 0

      IF KEYSTATE(14) = 1 AND BSDown = 0
         IF KEYSTATE(54) = 1 OR KEYSTATE(42) = 1
            tqPage = QPage
            QPage = 1
            tnumq = numQMoves
            Key = 1
            FOR qi = 1 to tnumq
               GOSUB DeleteFromQ
            NEXT qi
            QPage = tqPage
         ENDIF
         BSDown = 1
      ENDIF
      IF KEYSTATE(14) = 0 AND BSDown = 1 THEN BSDown = 0

      IF KEYSTATE(57) = 1 AND SpaceDown = 0
         Running = 1
         curMove = 1
         Stopped = 1
         SpaceDown = 1
      ENDIF
      IF KEYSTATE(57) = 0 AND SpaceDown = 1 THEN SpaceDown = 0


   ENDIF

   REMSTART
   pizzle# = (OBJECT POSITION Z(100)) / 5.3
   TEXT 5, 200, STR$(nextSquare)+":"+STR$(curSquare)+":"+STR$(prevSquare)
   TEXT 5, 211, STR$(pNextI)+","+STR$(pNextJ)
   TEXT 5, 222, STR$(pI)+","+STR$(pJ)
   TEXT 5, 233, STR$(pPrevI)+","+STR$(pPrevJ)
   TEXT 5, 244, STR$(pizzle#)
   TEXT 5, 255, STR$(OBJECT POSITION Z(100))
   REMEND
   `TEXT 5, 400, STR$(SCANCODE())
   SYNC
LOOP

DeleteFromQ:
   IF qMoves(((QPage-1)*26)+Key) <> 0
      DEC numQMoves
      levelMoves(qMoveKeys(((QPage-1)*26)+Key)) = qMoves(((QPage-1)*26)+Key)
      qMoves(((QPage-1)*26)+Key) = 0
      qMoveKeys(((QPage-1)*26)+Key) = 0
      FOR i = (((QPage-1)*26)+Key) TO numQMoves+1
         qMoves(i) = qMoves(i+1)
         qMoveKeys(i) = qMoveKeys(i+1)
      NEXT i
   ENDIF
RETURN

UnloadLevel:
   Running = 0
   FOR i = 1 TO levH
      FOR j = 1 to levW
         DELETE OBJECT levelObj(i, j)
      NEXT j
   NEXT i
   UNDIM level(levW, levH)
   UNDIM levelObj(levW, levH)
   UNDIM levelMoves(numMoves)
RETURN

LoadNextLevel:
   READ MapName$
   READ levW
   READ levH
   DIM level(levW, levH)
   DIM levelObj(levW, levH)
   INC CurLevel
   FOR i = 1 TO levH
      FOR j = 1 to levW
         READ level(i, j)
         IF level(i, j) = 2
            blueI = i
            blueJ = j
         ENDIF
         levelObj(i, j) = FreeObject()
         IF level(i, j) > 6 AND level(i, j) < 11
            CLONE OBJECT levelObj(i, j), 7
         ELSE
            IF level(i, j) = 11
               CLONE OBJECT levelObj(i, j), 5
            ELSE
               CLONE OBJECT levelObj(i, j), level(i, j)
            ENDIF
         ENDIF
         POSITION OBJECT levelObj(i, j), j*5.4, -2.5, i*5.4
      NEXT j
   NEXT i

   READ numMoves
   TPages = (numMoves/27) + 1
   DIM levelMoves(numMoves)
   DIM qMoves(numMoves+1)
   DIM qMoveKeys(numMoves+1)
   numQMoves = 0
   FOR i = 1 to numMoves
      READ levelMoves(i)
   NEXT i
RETURN

GetNextSquare:
   YROTATE OBJECT 100, ConvAng#
   remstart Space# = 5.4
   MOVE OBJECT 100, 5.42
   oZ# = OBJECT POSITION Z(100)
   oX# = OBJECT POSITION X(100)
   pNextI = oZ# / Space#
   TEXT 5, 250, STR$(OBJECT POSITION Z(100))
   TEXT 5, 261, STR$(OBJECT POSITION X(100))
   TEXT 5, 272, STR$(OBJECT ANGLE Y(100))
   pNextJ = oX# / Space#
   MOVE OBJECT 100, -5.42
   remend
   pNextI = pI
   pNextJ = pJ
   IF ConvAng# = 0 THEN pNextI = pI + 1
   IF ConvAng# = 90 THEN pNextJ = pJ + 1
   IF ConvAng# = 180 THEN pNextI = pI - 1
   IF ConvAng# = 270 THEN pNextJ = pJ - 1
   YROTATE OBJECT 100, PAng#
   IF pNextI > levW OR pNextJ > levH OR pNextI < 1 OR pNextJ < 1
      nextSquare = 0
      RETURN
   ENDIF
   nextSquare = level(pNextI, pNextJ)
RETURN

GetCurSquare:
   pI = (OBJECT POSITION Z(100)) / 5.3
   pJ = (OBJECT POSITION X(100)) / 5.3
   IF pI > levW OR pJ > levH OR pI < 1 OR pJ < 1
      curSquare = 0
      RETURN
   ENDIF
   curSquare = level(pI, pJ)
RETURN

GetPrevSquare:
   YROTATE OBJECT 100, ConvAng#
   REMSTART
   MOVE OBJECT 100, -5.41
   pPrevI = OBJECT POSITION Z(100) / 5.40000
   pPrevJ = OBJECT POSITION X(100) / 5.40000
   MOVE OBJECT 100, 5.41
   REMEND
   pPrevI = pI
   pPrevJ = pJ
   IF ConvAng# = 0 THEN pPrevI = pI - 1
   IF ConvAng# = 90 THEN pPrevJ = pJ - 1
   IF ConvAng# = 180 THEN pPrevI = pI + 1
   IF ConvAng# = 270 THEN pPrevJ = pJ + 1
   YROTATE OBJECT 100, PAng#
   IF pPrevI > levW OR pPrevJ > levH OR pPrevI < 1 OR pPrevJ < 1
      prevSquare = 0
      RETURN
   ENDIF
   prevSquare = level(pPrevI, pPrevJ)
RETURN

GameOver:
   SpaceDown = 1
   Running = 0
   Action = 0
   Stopped = 0
   Movement# = 0.0
   FOR Key = 1 TO numQMoves
      IF Key <= numQMoves AND qMoves(Key) <> 0
         levelMoves(qMoveKeys(Key)) = qMoves(Key)
         qMoves(Key) = 0
         qMoveKeys(Key) = 0
      ENDIF
   NEXT Key
   numQMoves = 0
   DO
      CENTER TEXT scrW/2, 25, "YOU FAILED. PRESS SPACE TO TRY AGAIN OR ESC TO QUIT."

      REMSTART
      pizzle# = (OBJECT POSITION Z(100)) / 5.3
      TEXT 5, 200, STR$(nextSquare)+":"+STR$(curSquare)+":"+STR$(prevSquare)
      TEXT 5, 211, STR$(pNextI)+","+STR$(pNextJ)
      TEXT 5, 222, STR$(pI)+","+STR$(pJ)
      TEXT 5, 233, STR$(pPrevI)+","+STR$(pPrevJ)
      TEXT 5, 244, STR$(pizzle#)
      TEXT 5, 255, STR$(OBJECT POSITION Z(100))
      TEXT 5, 266, STR$(Action)
      TEXT 5, 277, STR$(Movement#)
      TEXT 5, 288, STR$(curMove)
      TEXT 5, 299, STR$(numQMoves)
      REMEND
      IF KEYSTATE(57) = 1 AND SpaceDown = 0
         SpaceDown = 1 : GOSUB RESTART
      ENDIF
      IF KEYSTATE(57) = 0 AND SpaceDown = 1 THEN SpaceDown = 0
      SYNC
   LOOP

RETURN

FUNCTION FreeObject()
   FOR i = 1 TO 65535
      IF OBJECT EXIST(i) = 0 THEN EXITFUNCTION i
   NEXT i
ENDFUNCTION -1

FUNCTION KeyToInt(K as String)
   iKey = ASC(K)
   IF iKey > 96 AND iKey < 123
      EXITFUNCTION iKey - 96
   ENDIF

   IF iKey > 64 AND iKey < 97
      EXITFUNCTION iKey + 36
   ENDIF
ENDFUNCTION 0

Function Make_Robot(ObjectID)
If Object Exist (ObjectID) Then Delete Object ObjectID
Make Object Cube ObjectID,5
If Object Exist(2) Then Delete Object 2
If Mesh Exist(2) Then Delete Mesh 2
Make Object Sphere 2,5
Make Mesh From Object 2,2
Add Limb ObjectID,1,2
Offset Limb ObjectID,1,0,4,0
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,4
Scale Object 2,30,100,30
Offset Limb 2,0,0,2,0
Roll Object Right 2,100
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,2,2
Add Limb ObjectID,3,2
Offset Limb ObjectID,2,0,1,-3
Offset Limb ObjectID,3,0,1,3
Color Limb ObjectID,2,RGB(128,128,128)
Color Limb ObjectID,3,RGB(128,128,128)
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,10
Scale Object 2,100,20,20
Pitch Object Down 2,90
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,4,2
Add Limb ObjectID,5,2
Offset Limb ObjectID,4,0,-3,-3
Offset Limb ObjectID,5,0,-3,3
Delete Object 2
Delete Mesh 2
Make Object Sphere 2,10
Scale Object 2,100,20,1
Make Mesh from Object 2,2
Add Limb ObjectID,6,2
Add Limb ObjectID,7,2
Offset Limb ObjectID,6,0,-3,-3.9
Offset Limb ObjectID,7,0,-3,3.9
Delete Object 2
Delete Mesh 2
Set Object Cull ObjectID,0
Turn Object Left ObjectID,90
Fix Object Pivot ObjectID
Color Object ObjectID, RGB(255, 255, 0) `Robot.Color
If Bitmap Exist(1) Then Delete Bitmap 1
Create Bitmap 1,100,20
Set Current Bitmap 1
Ink RGB(210,210,210),0
Box 0,0,99,19
Ink Rgb(40,40,40),0
For i = 0 to 90 step 10
   Box i,0,i+1,19
Next i
Get Image 1,0,0,99,19
Delete Bitmap 1
Texture Limb ObjectID,4,1
Texture Limb ObjectID,5,1
Set Object Collision Off ObjectID
Set Object Collision to Boxes ObjectID
EndFunction R

REMSTART
DATA "R2D2! YOU'RE MY ONLY HOPE"
Data 5,5
Data 2, 1, 1,10, 1
Data 6, 8, 8,10, 1
Data 1, 1, 3,10, 1
Data 1, 9, 7, 7, 7
Data 1, 9, 1, 1, 1
Data 10
Data 3,3,3,3,1,1,4,4,4,4

DATA "Easy looker"
DATA 5, 5
DATA 2, 1, 5, 1, 1
DATA 1, 6, 1, 6, 1
DATA 1, 6, 3, 6, 1
DATA 1, 1, 6, 1, 1
DATA 1, 1, 1, 1, 1
DATA 6
DATA 1, 1, 4, 5, 6, 2


DATA "Skills"
DATA 5, 5
DATA 1, 1, 1, 1, 1
DATA 1, 6, 1, 6, 5

DATA 1, 6, 2, 6, 11
DATA 1, 6, 6, 6, 5
DATA 1, 1, 1, 1, 3
DATA 9
DATA 2, 4, 2, 4, 2, 6, 1, 6, 1
REMEND

`  Objects:
`  1  = Grey square
`  2  = Blue square (start)
`  3  = Green square (end)
`  4  = Black square
`  5  = Red square (Rotates RIGHT)
`  6  = Yellow square (WALL)
`  7  = Purple (Rotates to the upper left) DOWN in data statements
`  8  = Purple (Rotates to the lower right) UP in data statements
`  9  = Purple (rotates lower left) LEFT in data statements
`  10 = Purple (Rotates upper right) RIGHT in data statements
`  11 = Red Square (Rotates LEFT)

`  Moves:
`  1  = "Forward 1"
`  2  = "Forward 2"
`  3  = "Forward 3"
`  4  = "Rotate Left"
`  5  = "Rotate Right"
`  6  = "Rotate 180"
`  7  = "Backward 1"

Data "The MAMMOTH"   `Name of map
Data 15, 15            `DIMENSIONS OF LEVEL: Can be any amount. The first is Width and the Second... HEIGHT.

Data 2, 1, 7, 4, 5, 1,11, 4, 3, 3, 6, 5, 1, 1, 10  `The next 15 (HEIGHT) lines contain the objects of the level
Data 4, 4, 7, 1, 8, 6, 7, 6, 3, 3, 4, 8, 4, 1, 10  `The levels are reversed vertically when it renders. I am lazy therefore.
Data 4, 4, 4, 4, 7, 6, 7, 4, 3, 3, 4, 9, 6, 1, 10
Data 1, 1, 1, 1, 4, 6, 7, 6, 3, 3, 4, 8, 4,10, 10
Data 1, 1, 1, 1, 1, 6, 7,11, 6, 4, 4, 8, 6, 1, 9
Data 1, 5, 5, 1, 1, 6, 4, 1, 6, 1, 5, 5, 4, 1, 10
Data 1, 1, 6, 1, 1, 1, 9, 9, 6, 1,11, 1, 6, 1, 10
Data 6, 7, 6, 6, 6, 4, 4, 4, 4, 1, 4, 6, 4, 10,10
Data 4, 7, 1, 1, 6, 5, 1, 1, 4, 7, 9, 1, 6, 8, 10
Data 4, 7, 4, 1, 6, 1, 6, 1, 6, 7, 4, 1, 4, 5, 10
Data 4, 7, 1, 1, 6, 1, 6, 1, 6, 4, 1, 1, 6, 1, 10
Data 4,10, 4,11, 1, 7, 6, 9, 4, 4, 1, 4, 4, 9, 10
Data 4, 4, 4, 4, 6, 1, 6, 1, 6, 4, 1, 8, 6,10, 10
Data 4, 4, 4, 4, 6, 4, 1, 5, 1, 5, 6, 8, 4,10, 10
Data 4, 4, 4, 4, 6, 6, 6, 6, 6, 1, 1, 8, 6, 3, 9

DATA 60               `TOTAL Number of possible moves
DATA 2,5,1,2,5,2,3,5,4,2,3,1,5,2,2,4,2,4,1,2,4,2,1,4,2,5      `Then the list of moves.
DATA 7,4,1,5,2,5,4,2,7,4,2,1,7,5,3,1,2,2,3,2,3,4,3,1,4,2,7,5,2,2,2,7,3,1

DATA "The MAMMOTH II"
DATA 2, 2

DATA 2, 1
DATA 1, 3

DATA 10
DATA 1, 6, 1, 6, 7, 6, 7, 6, 7, 1

Rem Project: AI Tank
Rem Created: 3/17/2005 3:15:05 PM
Rem Created by Patrick Lewis
Rem ***** Main Source File *****

Sync On:Sync Rate 60:Autocam Off
Global MaxCodes
MaxCodes=55

Type Coordinates
   x as FLoat
   y as Float
   z as Float
Endtype

Type Menu
   ObjectNum as DWord
   MenuText as String
   Rotate As Float
   Pos as Coordinates
Endtype
MI=MaxCodes+20
Dim Menu(MI) as Menu

Type Commands
   Menu_ID as Integer
   Com_ID as Integer
   Com_Text as String
   Value as Integer
EndType
Dim Command_Menu(20) as Commands
Dim Code_List(MaxCodes) as Commands
Global MouseRate
Global m_Select as Integer
Global Select_Menu as Integer
Global Last_Menu as Integer
Global Code
Global IfCount

Type Players
   Com_Delay as Integer
   N as Integer
   A as Integer
   B as Integer
   Hull as Integer
   Armor as Integer
   Treads as Integer
   Turret as Integer
   Weapon as Integer
   Scanner as Integer
   Scanner_Angle as Coordinates
   Turret_Angle as Coordinates
   Shield as Integer
   Position as Coordinates
EndType
Dim Player(2) as Players
Dim Player_Code(2,MaxCodes) as Commands

Make_Field()
Make_Tank(10)
Make_Tank(11)
Position Object 10,15,2,15
PositioN Object 11,185,2,185
Position Camera 100,20,10
Restore R_Main_Menu
i=0
Do
   Read ID
   If ID=999 Then Exit
   Command_Menu(i).Com_ID=ID
   Read Command_Menu(i).Com_Text
   Read Flag
   Make_Menu_Box(100+i,Command_Menu(i).Com_Text,Command_Menu(i).Com_ID,45,45-(i*5),80)
   i=i+1
Loop

Select_Menu=0
Last_Menu=0
Code=0
Do
   Turn Object Left 10,1
   Turn Object Right 11,1
   Select Select_Menu
      Case 0:Main_Menu():EndCase
      Case 1,2,3,4,5,6:Sub_Menu():EndCase
      Case 7:System_Menu():EndCase
   EndSelect
   If m_Select=Code+19 and Code>0
      Code=Code-1
      If Code_List(Code).Com_Text="End If" Then IfCount=IfCount+1
      If Left$(Code_List(Code).Com_Text,2)="If" Then IfCount=IfCount-1
      Code_List(Code).Menu_ID=0
      Code_List(Code).Com_ID=0
      Code_List(Code).Value=0
      Code_List(Code).Com_Text=""
      Delete_Menu_Box(m_Select)
   Endif
   Turn Camera Left LeftKey()-RightKey()
   Move Camera Upkey()-DownKey()
   Sync
Loop

Function Main_Menu()
   Select_Menu=0
   If Last_Menu<>Select_Menu
      For i = 0 to 19
         Delete_Menu_Box(i)
      Next i
      Restore R_Main_Menu
      i=0
      Do
         Read ID
         If ID=999 Then Exit
         Command_Menu(i).Com_ID=ID
         Read Command_Menu(i).Com_Text
         Read Flag
         Make_Menu_Box(100+i,Command_Menu(i).Com_Text,Command_Menu(i).Com_ID,45,45-(i*5),80)
         i=i+1
      Loop
      Last_Menu=Select_Menu
   Endif
   m_Select=Menu_Wrangler()
   If M_Select>-1 and M_select<20 and Code<30
      Select_Menu=M_select+1
   Endif
EndFunction

Function Sub_Menu()
   If Last_Menu<>Select_Menu
      For i = 0 to 19
         Delete_Menu_Box(i)
      Next i
      Select Select_Menu
         Case 1:Restore R_Move_Menu:EndCase
         Case 2:Restore R_Scan_Menu:EndCase
         Case 3:Restore R_Weapon_Menu:EndCase
         Case 4:Restore R_Conditions_Menu:EndCase
         Case 5:Restore R_Var_Menu:EndCase
         Case 6:Restore R_Misc_Menu:EndCase
      EndSelect
      i=0
      Do
         Read ID
         If ID=999 Then Exit
         Command_Menu(i).Com_ID=ID
         Read Command_Menu(i).Com_Text
         Read Command_Menu(i).Value
         Make_Menu_Box(100+i,Command_Menu(i).Com_Text,Command_Menu(i).Com_ID,45,45-(i*5),80)
         i=i+1
      Loop
      Last_Menu=Select_Menu
   Endif
   m_Select=Menu_Wrangler()
   If m_Select<0 then ExitFunction
   If m_Select=0
      Select_Menu=0
      ExitFunction
   Else
      If Menu(M_Select).MenuText="End If" and IfCount=0 Then ExitFunction
      If M_select<20 and Code<=MaxCodes
         Code_List(Code).Menu_ID=Select_Menu
         Code_List(Code).Com_ID=M_Select
         offset=Int(Code/19)
         If Menu(M_Select).MenuText="End If" Then IfCount=IfCount-1
         horz=-50+(offset*30)+IfCount*3:vert=45+(Offset*19*5)-(code*5)
         If Command_Menu(M_Select).Value=1
            Make_Menu_Box(200+Code,"Enter Value:",20+Code,horz,vert,80)
            Do
               Set Cursor Object Screen X(200+Code)+45,Object Screen Y(200+Code)-10
               Input "",v$
               If Val(v$)<51 OR Select_Menu<>5 Or M_select<>5 Then Exit
            Loop
            Code_List(Code).Value=Val(v$)
            Code_List(Code).Com_Text=Menu(M_Select).MenuText+v$
         Else
            Code_List(Code).Value=0
            Code_List(Code).Com_Text=Menu(M_Select).MenuText
         Endif
         Make_Menu_Box(200+Code,Str$(Code+1)+": "+Code_List(Code).Com_Text,20+Code,horz,vert,80)
         Code=Code+1
         If Left$(Menu(M_Select).MenuText,2)="If" Then IfCount=IfCount+1
      Endif
   Endif
EndFunction

Function System_Menu()
   If Last_Menu<>Select_Menu
      For i = 0 to 19
         Delete_Menu_Box(i)
      Next i
      Restore R_Syst_Menu
      i=0
      Do
         Read ID
         If ID=999 Then Exit
         Command_Menu(i).Com_ID=ID
         Read Command_Menu(i).Com_Text
         Read Command_Menu(i).Value
         Make_Menu_Box(100+i,Command_Menu(i).Com_Text,Command_Menu(i).Com_ID,45,45-(i*5),80)
         i=i+1
      Loop
      Last_Menu=Select_Menu
   Endif
   m_Select=Menu_Wrangler()
   if m_Select<0 Then ExitFunction
   Select m_Select
      Case 0
         Select_Menu=0
         ExitFunction
      EndCase
      Case 1
         Set Cursor Screen Width()/2-20,100
         Input "Enter Save File Name:",fs$
         Save Array fs$,Code_List()
      EndCase
      Case 2
         Set Cursor Screen Width()/2-20,100
         Input "Enter Load File Name:",fs$
         If File Exist(fs$)
            For i = 20 to 21+MaxCodes
               Delete_Menu_Box(i)
            Next i
            Load Array fs$,Code_List()
            IfCount=0
            For i = 0 to MaxCodes
               If Code_List(i).Com_ID>0
                  If Code_List(i).Com_Text="End If" Then IfCount=IfCount-1
                  offset=Int(i/19)
                  horz=-50+(offset*30)+IfCount*3:vert=45+(Offset*19*5)-(i*5)
                  Make_Menu_Box(200+i,Str$(i+1)+": "+Code_List(i).Com_Text,20+i,horz,vert,80)
                  If Left$(Code_List(i).Com_Text,2)="If" Then IfCount=IfCount+1
                  Code=i
               Endif
            Next i
         Else
            Set Cursor Screen Width()/2-20,100
            Print "File Name does not exist."
            Wait Key
         Endif
      EndCase
      Case 3
         `Test()
      EndCase
      Case 4
      Rem Load 2nd player code
      Endcase
   Endselect
EndFunction


Function Make_Field()
   If Matrix Exist(1) Then Delete Matrix 1
   Make Matrix 1,200,200,20,20
   If Bitmap Exist(1) Then Delete Bitmap 1
   Create Bitmap 1,128,128
   Set Current Bitmap 1
   Ink RGB(0,128,0),0
   Box 0,0,127,127
   For i=1 to 200
      Dot rnd(127),rnd(127),Rgb(10,Rnd(255),10)
   Next i
   Get Image 999,0,0,127,127
   Prepare Matrix Texture 1,999,1,1
   Update Matrix 1
   Make Object Box 901,200,10,2
   Offset Limb 901,0,100,0,0
   Clone Object 902,901
   Clone Object 903,901
   Clone Object 904,901
   Turn Object Left 902,90
   Move Object 903,200
   Move Object Right 904,200
   Turn Object Left 904,90
   Make Object Sphere 601,7,8,8
   Make Object Cylinder 602,5
   Scale Object 602,30,100,30
   Make Mesh From Object 602,602
   Add Limb 601,1,602
   Delete Object 602
   Delete Mesh 602
   Offset Limb 601,1,0,2.5,0
   Offset Limb 601,0,0,7,0
   Texture Limb 601,0,999
   Color Limb 601,1,RGB(128,64,64)
   Make Object Sphere 602,8,8,8
   Color Object 602,RGB(109,103,78)
   For i = 1 to rnd(50)+rnd(50)+rnd(50)+rnd(50)
      cln=rnd(1)+1
      Clone Object 602+i,600+cln
      Position Object 602+i,rnd(180)+10,0,rnd(180)+10
   Next i
   Position Object 601,rnd(180)+10,0,rnd(180)+10
   Position Object 602,rnd(180)+10,0,rnd(180)+10
EndFunction



Function Make_Tank(ObjectID)
If Object Exist (ObjectID) Then Delete Object ObjectID
`Body
Make Object Box ObjectID,7,2.5,5
`Turret
If Object Exist(2) Then Delete Object 2
If Mesh Exist(2) Then Delete Mesh 2
Make Object Cylinder 2,5
Scale Object 2,100,40,100
Make Mesh From Object 2,2
Add Limb ObjectID,1,2
Offset Limb ObjectID,1,0,2,0
Delete Mesh 2
Delete Object 2
`Cannon
Make Object Cylinder 2,4
Scale Object 2,25,120,25
Offset Limb 2,0,0,2,0
Roll Object Right 2,90
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,2,2
Offset Limb ObjectID,2,0,2,0
Color Limb ObjectID,2,RGB(128,128,128)
`Treads
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,10
Scale Object 2,100,20,20
Pitch Object Down 2,90
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,3,2
Add Limb ObjectID,4,2
Offset Limb ObjectID,3,0,-1.5,-3
Offset Limb ObjectID,4,0,-1.5,3
`Tread Panels
Delete Object 2
Delete Mesh 2
Make Object Sphere 2,10
Scale Object 2,100,20,1
Make Mesh from Object 2,2
Add Limb ObjectID,5,2
Add Limb ObjectID,6,2
Offset Limb ObjectID,5,0,-1.5,-3.9
Offset Limb ObjectID,6,0,-1.5,3.9
Delete Object 2
Delete Mesh 2
`Scanner
Make Object Box 2,2,.4,1
Offset Limb 2,0,1,0,0
Make Mesh From Object 2,2
Add Limb ObjectID,7,2
Offset Limb ObjectID,7,0,3.2,0
Delete Object 2
Delete Mesh 2

`Lid
Make Object Sphere 2,5
Scale Object 2,100,.1,100
Make Mesh From Object 2,2
Add Limb ObjectID,8,2
Offset Limb ObjectID,8,0,2.9,0
Delete Object 2
Delete Mesh 2

`Object settings
Set Object Cull ObjectID,0
Turn Object Left ObjectID,90
Fix Object Pivot ObjectID
Color Object ObjectID,RGB(192,192,192)
`Treads image
If Bitmap Exist(1) Then Delete Bitmap 1
Create Bitmap 1,100,20
Set Current Bitmap 1
Ink RGB(210,210,210),0
Box 0,0,99,19
Ink Rgb(40,40,40),0
For i = 0 to 90 step 10
   Box i,0,i+1,19
Next i
Get Image 1,0,0,99,19
Delete Bitmap 1
Texture Limb ObjectID,3,1
Texture Limb ObjectID,4,1
Set Object Collision Off ObjectID
Set Object Collision to Boxes ObjectID
EndFunction

Function Make_Menu_Box(ObjectID,txt$,MenuID,x#,y#,z#)
If MenuID>Array Count(Menu()) Or MenuID<0 Then ExitFunction
If Object Exist(ObjectID) Then Delete Object ObjectID
If Image Exist(ObjectID) Then Delete Image ObjectID
If Menu(MenuID).ObjectNum>0
   If Object Exist(Menu(MenuID).ObjectNum) then Delete Object Menu(MenuID).ObjectNum
Endif
Make Object Box ObjectID,25,4,4
If Bitmap Exist(1) Then Delete Bitmap 1
w=Text Width(txt$)*1.2:h=Text Height(txt$)*2
Create Bitmap 1,w+1,h+1
Set Current Bitmap 1
Ink RGB(0,0,128),0
Box 0,0,w,h
Ink RGB(255,255,255),0
Center Text w/2,h*.33,txt$
Get Image ObjectID,0,0,w,h,1
Texture Object ObjectID,ObjectID
Set Current Bitmap 0
Delete Bitmap 1
Menu(MenuID).ObjectNum=ObjectID
Menu(MenuID).MenuText=txt$
Menu(MenuID).Pos.x=x#
Menu(MenuID).Pos.y=y#
Menu(MenuID).Pos.z=z#
Position Object ObjectID,Camera Position X(),Camera Position Y(),Camera Position Z()
Set Object To Camera Orientation ObjectID
Move Object ObjectID,z#
Move Object Right ObjectID,x#
Move Object Up ObjectID,y#
`Lock Object On ObjectID
Set Object Collision Off ObjectID
Set Object Collision To Boxes ObjectID
Endfunction

Function Menu_Wrangler()
Menu_Item=-1
For i = 0 to Array Count(Menu())
   ObjectID=Menu(i).ObjectNum
   If ObjectID>0
      Position Object ObjectID,Camera Position X(),Camera Position Y(),Camera Position Z()
      Set Object To Camera Orientation ObjectID
      Move Object ObjectID,Menu(i).Pos.z
      Move Object Right ObjectID,Menu(i).Pos.x
      Move Object Up ObjectID,Menu(i).Pos.y
      If Pick Object(MouseX(),MouseY(),ObjectID,ObjectID)=ObjectID
         Menu(i).Rotate=Menu(i).Rotate+1
         Menu_Item=i
      Else
         Menu(i).Rotate=0
      Endif
      If Menu(i).Rotate>89 Then Menu(i).Rotate=0
      Pitch Object Down ObjectID,Menu(i).Rotate
   Endif
Next i
If MouseClick()=1 And MouseRate=0
   MouseRate=1
Else
   If MouseClick()=0 Then MouseRate=0
   Menu_Item=-1
Endif
EndFunction Menu_Item

Function Delete_Menu_Box(MenuID)
ObjectID=Menu(MenuID).ObjectNum
If ObjectID>0
   If Object Exist(ObjectID)
      Delete Object ObjectID
      Delete Image ObjectID
   Endif
Endif
Menu(MenuID).ObjectNum=0
Menu(MenuID).MenuText=""
Menu(MenuID).Rotate=0
EndFunction

R_Main_Menu:
Data 0,"Movement Menu",0
Data 1,"Scanner Menu",0
Data 2,"Weapon Menu",0
Data 3,"Conditions Menu",0
Data 4,"Variables Menu",0
Data 5,"Misc. Menu",0
Data 6,"System Menu",0
Data 999,"999",999

R_Move_Menu:
Data 0,"Main Menu",0
Data 1,"Move Forward 1",0
Data 2,"Move Back 1",0
Data 3,"Set N=Tank_X",0
Data 4,"Set N=Tank_Y",0
Data 5,"Turn Tank Right 45",0
Data 6,"Turn Tank Left 45",0
Data 7,"Set N=Tank_Angle",0
Data 8,"Check Treads",0
Data 9,"Repair Treads",0
Data 999,"999",999

R_Scan_Menu:
Data 0,"Main Menu",0
Data 1,"Scan For Obstical",0
Data 2,"Set N=Object_Range",0
Data 3,"Set N=Object_X",0
Data 4,"Set N=Object_Y",0
Data 5,"Scan For Enemy",0
Data 6,"Set N=Enemy_Range",0
Data 7,"Set N=Enemy_X",0
Data 8,"Set N=Enemy_Y",0
Data 9,"Set N=Enemy_Angle",0
Data 10,"Turn Scanner Right 45",0
Data 11,"Turn Scanner Left 45",0
Data 12,"Set N=Scanner_Angle",0
Data 13,"Check Scanner",0
Data 14,"Repair Scanner",0
Data 999,"999",999

R_Weapon_Menu:
Data 0,"Main Menu",0
Data 1,"Fire Weapon",0
Data 2,"Turn Turret Right 45",0
Data 3,"Turn Turret Left 45",0
Data 4,"Set N=Turret_Angle",0
Data 6,"Check Weapon",0
Data 7,"Repair Weapon",0
Data 8,"Check Turret",0
Data 9,"Repair Turret",0
Data 999,"999",999

R_Conditions_Menu:
Data 0,"Main Menu",0
Data 1,"If N < ",1
Data 2,"If N > ",1
Data 3,"If N = ",1
Data 4,"If N <> ",1
Data 5,"If N < A",0
Data 6,"If N > A",0
Data 7,"If N = A",0
Data 8,"If N <> A",0
Data 9,"If N < B",0
Data 10,"If N > B",0
Data 11,"If N = B",0
Data 12,"If N <> B",0
Data 13,"End If",0
Data 999,"999",999

R_Var_Menu:
Data 0,"Main Menu",0
Data 1,"Set A = N",0
Data 2,"Set A = B",0
Data 3,"Set B = A",0
Data 4,"Set B = N",0
Data 5,"Set N = A",0
Data 6,"Set N = B",0
Data 7,"Set N=Random(A)",0
Data 8,"Set A = ",1
Data 9,"Set B = ",1
Data 10,"Set N = ",1
Data 11,"Set N = N + ",1
Data 12,"Set N = N - ",1
Data 13,"Set N = N + A",0
Data 14,"Set N = N - A",0
Data 15,"Set N = Damage",0
Data 999,"999",999


R_Misc_Menu:
Data 0,"Main Menu",0
Data 1,"Goto ",1
Data 2,"Wait ",1
Data 3,"Repeat ",1
Data 4,"Loop   ",0
Data 5,"Check Hit",0
Data 6,"Set N = Tank_Hit",0
Data 7,"Check Armor",0
Data 8,"Repair Armor",0
Data 9,"Check Hull",0
Data 10,"Repair Hull",0
Data 11,"Raise Shield",0
Data 12,"Lower Shield",0
Data 13,"Set N = Shield Energy",0
Data 999,"999",999

R_Syst_Menu:
Data 0,"Main Menu",0
Data 1,"Save Code",1
Data 2,"Load Code",1
Data 3,"Test Code",0
Data 4,"Play Code",0
Data 999,"999",999

sync on
sync rate 0
randomize timer()
hide mouse
backdrop on
color backdrop 0


`Generate texture
w = 512
h = 512
make memblock 1, 12 + (w*h*4)
write memblock dword 1, 0, w
write memblock dword 1, 4, h
write memblock dword 1, 8, 32
`Generate randomness
dim texture(w,h)
for x = 0 to w-1 : for y = 0 to h-1
   write memblock dword 1, 12 + ((y*w)+x)*4, rgb(32, 64 + rnd(127), 32)
   texture(x,y) = rgb(64, 128 + rnd(64), 64)
next y : next x
make image from memblock 1, 1
delete memblock 1


#constant ARENA_X 10.0
#constant ARENA_Z 10.0
#constant MAX_TILT 20.0
#constant grav -9.81
#constant T_TO_LIVE 3000





make object plain 1000, 1, 1
position object   1000, 0, 0, 0
make mesh from object 1, 1000

make object plain 1001, 1, 1
position object   1001, 0, 0, 0
make mesh from object 2, 1001


`Make floor
make object plain 1, ARENA_X*2.0, ARENA_Z*2.0
rotate limb 1, 0, 90, 0, 0
position object 1, 0,0,0

`Make Walls in Z
offset limb 1000, 0, 0, 0.5, ARENA_Z
scale limb  1000, 0, 200 * ARENA_X, 100, 100
add limb    1000, 1, 1
rotate limb 1000, 1, 0, 180, 0
offset limb 1000, 1, 0, 0.5, -ARENA_Z
scale limb  1000, 1, 200 * ARENA_X, 100, 100

`Make Walls in X
offset limb 1001, 0, ARENA_X, 0.5, 00
rotate limb 1001, 0, 0, 90, 0
scale limb  1001, 0, 200 * ARENA_Z, 100, 100
add limb    1001, 1, 2
rotate limb 1001, 1, 0, 270, 0
offset limb 1001, 1, -ARENA_X, 0.5, 0
scale limb  1001, 1, 200 * ARENA_Z, 100, 100





texture object  1, 1
set object collision off 1

set object cull 1000, 0
texture object  1000, 1
set object collision off 1000

set object cull 1001, 0
texture object  1001, 1
set object collision off 1001

tiltX# = 0.0
tiltZ# = 0.0



type Coord
   x#
   y#
   z#
endtype

type Mine
   Speed as Coord
   Pos as Coord
   colX
   colZ
   BirthTime
endtype

type Orb
   Speed as Coord
   Pos as Coord
   Mass#
   colX
   colZ
endtype








BlankCoord as Coord
BlankCoord.x# = 0.0
BlankCoord.y# = 0.0
BlankCoord.z# = 0.0

make object sphere 2, 1, 24, 24
set object collision to spheres 2
position object 2, 0, 0.5, 0
Dim P(1) as Orb
P(1).Mass# = 2.0
P(1).Speed = BlankCoord
P(1).Pos = BlankCoord




Dim Mines(1000) as Mine


FartTime = timer()
FartCount = 0

autocam off
position camera -15, 20, 15
point camera 0,0,0
set directional light 0, -1, -1, -1

RUNNING = 1

position mouse screen width() * 0.5, screen height() * 0.5
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "Mines Farted: " + str$(FartCount)

   if RUNNING = 1
      tiltX# = ((-2.0 * MAX_TILT * mousex()) / screen width() ) + MAX_TILT
      tiltZ# = (( 2.0 * MAX_TILT * mousey()) / screen height()) - MAX_TILT

      rotate object 1, tiltX#, 0.0, tiltZ#
      rotate object 1000, tiltX#, 0.0, tiltZ#
      rotate object 1001, tiltX#, 0.0, tiltZ#

      inc P(1).Speed.x#, sin(tiltZ#)     * grav * P(1).mass# * frameTime# * 0.001
      inc P(1).Speed.z#, sin(tiltX#+180) * grav * P(1).mass# * frameTime# * 0.001

      inc P(1).Pos.x#, P(1).Speed.x# * frameTime# * 0.001
      inc P(1).Pos.z#, P(1).Speed.z# * frameTime# * 0.001
      P(1).Pos.y# = (P(1).Pos.x# * sin(tiltZ#)) + (P(1).Pos.z# * sin(tiltX#+180))
      position object 2, P(1).Pos.x#, P(1).Pos.y#+0.5, P(1).Pos.z#

      if P(1).Speed.z# > 0 then if P(1).Pos.z# >  ARENA_Z - 0.5 then P(1).Speed.z# = P(1).Speed.z# * -0.75
      if P(1).Speed.z# < 0 then if P(1).Pos.z# < -ARENA_Z + 0.5 then P(1).Speed.z# = P(1).Speed.z# * -0.75

      if P(1).Speed.x# > 0 then if P(1).Pos.x# >  ARENA_X - 0.5 then P(1).Speed.x# = P(1).Speed.x# * -0.75
      if P(1).Speed.x# < 0 then if P(1).Pos.x# < -ARENA_X + 0.5 then P(1).Speed.x# = P(1).Speed.x# * -0.75


      if timer() - FartTime > 1500
         FartTime = timer()
         inc FartCount
         gosub CREATE_MINE
      endif

      gosub UPDATE_MINES
   else
      center text screen width() * 0.5, screen height() * 0.5, "YOU LOSE!!!"
   endif

   sync
loop
end




UPDATE_MINES:
   for j = 5000 to 5000 + FartCount
      if object exist(j) = 1
         i = j - 5000
         inc Mines(i).Speed.x#, sin(tiltZ#)     * grav * 0.1 * frameTime# * 0.001
         inc Mines(i).Speed.z#, sin(tiltX#+180) * grav * 0.1 * frameTime# * 0.001

         inc Mines(i).Pos.x#, Mines(i).Speed.x# * frameTime# * 0.001
         inc Mines(i).Pos.z#, Mines(i).Speed.z# * frameTime# * 0.001
         Mines(i).Pos.y# = (Mines(i).Pos.x# * sin(tiltZ#)) + (Mines(i).Pos.z# * sin(tiltX#+180))
         position object j, Mines(i).Pos.x#, Mines(i).Pos.y#+0.5, Mines(i).Pos.z#


         if Mines(i).Speed.z# > 0 then if Mines(i).Pos.z# >  ARENA_Z - 0.25 then Mines(i).Speed.z# = Mines(i).Speed.z# * -0.75
         if Mines(i).Speed.z# < 0 then if Mines(i).Pos.z# < -ARENA_Z + 0.25 then Mines(i).Speed.z# = Mines(i).Speed.z# * -0.75

         if Mines(i).Speed.x# > 0 then if Mines(i).Pos.x# >  ARENA_X - 0.25 then Mines(i).Speed.x# = Mines(i).Speed.x# * -0.75
         if Mines(i).Speed.x# < 0 then if Mines(i).Pos.x# < -ARENA_X + 0.25 then Mines(i).Speed.x# = Mines(i).Speed.x# * -0.75



         if timer() - Mines(i).BirthTime < T_TO_LIVE
            center text object screen x(j), object screen y(j), left$(str$((T_TO_LIVE - (timer() - Mines(i).BirthTime)) * 0.001), 4)
         else
            if object collision(j, 2)
               RUNNING = 0
            endif
         endif

      endif
   next i

return






CREATE_MINE:

   i = FartCount + 5000
   make object sphere i, 0.5
   set object collision to spheres i
   position object i, object position x(2), object position y(2), object position z(2)
   set object diffuse  i, rgb(255, 0, 0)
   set object specular i, rgb(0,0,0)
   set object specular power i, 10
   j = FartCount
   Mines(j).Speed = P(1).Speed

   Mines(j).Pos.x# = object position x(2)
   Mines(j).Pos.y# = object position y(2)
   Mines(j).Pos.z# = object position z(2)

   Mines(j).BirthTime = timer()

return

Jimmy-For GREAT coding and constant upgrades just to make it better

Nicholas-For shear oddness lol

set display mode 1024,768,32
global fish
global bigger
bigger=100

w=Screen Width():h=Screen Height()
Create Bitmap 1,w,h
Set Current Bitmap 1
Box 0,0,w/2,h-1,RGB(0,0,15),RGB(150,150,255),RGB(0,0,64),RGB(200,200,255)
Box w/2,0,w-1,h-1,RGB(0,0,64),RGB(200,200,255),RGB(0,0,15),RGB(150,150,255)
Get Image 3,0,0,w-1,h-1
Sprite 2,1,1,3
Set sprite alpha 2,100
Set Current Bitmap 0
make object box 1000,1800,1800,10
texture object 1000,3
make object box 1001,1,500,1
position object 1001,-87,0,600
make object box 1002,1,500,1
position object 1002,86,0,600
make object box 1003,500,.1,.1
position object 1003,0,-61.2,600
make object box 1004,500,.1,.1
position object 1004,0,61.2,600
hide object 1001
hide object 1002
hide object 1003
hide object 1004
fish=3

Fish(1)
position object 1,10,10,-100
yrotate object 1,90
do
begin:
position object 1001,-522-bigger/5,0,600
position object 1002,522+bigger/5,0,600
position object 1003,0,-367.2,600
position object 1004,0,367.2,600

position object 1000,0,0,900
if object collision(1,1001)=0
if leftkey()=1 then x=x-4
else
x=492+bigger/25
position object 1,x,y,600
endif
if object collision(1,1002)=0
if rightkey()=1 then x=x+4
else
x=-498-bigger/10
position object 1,x,y,600
sync
endif
if object collision(1,1003)=0 then if downkey()=1 then y=y-4
if object collision(1,1004)=0 then if upkey()=1 then y=y+4
position object 1,x,y,600
for fish=2 to 100
if rnd(700)=1
if object exist(fish)=0 then Fish(fish) : position object fish,-498,rnd(720)-360,600 : yrotate object fish,90 : rndscl=rnd(400)+80 : scale object fish,rndscl,rndscl,rndscl
if object size(fish)>1 and object size(fish)<10 then color object fish,rgb(255,0,0)
if object size(fish)>10 and object size(fish)<20 then color object fish,rgb(0,255,0)
if object size(fish)>20 and object size(fish)<30 then color object fish,rgb(0,0,255)
if object size(fish)>30 and object size(fish)<40 then color object fish,rgb(255,0,255)
if object size(fish)>40 then color object fish,rgb(0,255,255)
ghost object on fish,1
endif
if object exist(fish)=1
crntx=object position x(fish)+1
crnty=object position y(fish)
position object fish,crntx,crnty,600
if object exist(fish) then if object collision(1002,fish) then delete object fish
if object exist(fish)
if object collision(1,fish)=1
if object size(fish)<object size(1)
delete object fish : inc bigger,10 : scale object 1,bigger,bigger,bigger
else
end
endif
endif
endif
endif
next fish

loop

Function Fish(ObjectID)
Make Object Sphere ObjectID,18,50,50
Make Mesh From Object ObjectID,ObjectID
Delete Object ObjectID
Make Object Triangle ObjectID,0,6,-6,0,-6,-6,0,0,6
Offset Limb ObjectID,0,0,0,-.48
Add Limb ObjectID,1,ObjectID
Offset Limb ObjectID,1,0,0,10
Scale Limb ObjectID,1,20,80,100
EndFunction

sync on
sync rate 0
randomize timer()
hide mouse
backdrop on
color backdrop 0


`Generate texture
w = 512
h = 512
make memblock 1, 12 + (w*h*4)
write memblock dword 1, 0, w
write memblock dword 1, 4, h
write memblock dword 1, 8, 32
`Generate randomness
dim texture(w,h)
for x = 0 to w-1 : for y = 0 to h-1
   write memblock dword 1, 12 + ((y*w)+x)*4, rgb(32, 64 + rnd(127), 32)
   texture(x,y) = rgb(64, 128 + rnd(64), 64)
next y : next x
make image from memblock 1, 1
delete memblock 1


#constant ARENA_X 10.0
#constant ARENA_Z 10.0
#constant MAX_TILTx 20.0
#constant MAX_TILTz 20.0
#constant grav -15
#constant T_TO_LIVE 3000





make object plain 1000, 1, 1
position object   1000, 0, 0, 0
make mesh from object 1, 1000

make object plain 1001, 1, 1
position object   1001, 0, 0, 0
make mesh from object 2, 1001


`Make floor
make object plain 1, ARENA_X*2.0, ARENA_Z*2.0
rotate limb 1, 0, 90, 0, 0
position object 1, 0,0,0

`Make Walls in Z
offset limb 1000, 0, 0, 0.5, ARENA_Z
scale limb  1000, 0, 200 * ARENA_X, 100, 100
add limb    1000, 1, 1
rotate limb 1000, 1, 0, 180, 0
offset limb 1000, 1, 0, 0.5, -ARENA_Z
scale limb  1000, 1, 200 * ARENA_X, 100, 100

`Make Walls in X
offset limb 1001, 0, ARENA_X, 0.5, 00
rotate limb 1001, 0, 0, 90, 0
scale limb  1001, 0, 200 * ARENA_Z, 100, 100
add limb    1001, 1, 2
rotate limb 1001, 1, 0, 270, 0
offset limb 1001, 1, -ARENA_X, 0.5, 0
scale limb  1001, 1, 200 * ARENA_Z, 100, 100





texture object  1, 1
set object collision off 1

set object cull 1000, 0
texture object  1000, 1
set object collision off 1000

set object cull 1001, 0
texture object  1001, 1
set object collision off 1001

tiltX# = 0.0
tiltZ# = 0.0



type Coord
   x#
   y#
   z#
endtype

type Mine
   Speed as Coord
   Pos as Coord
   colX
   colZ
   BirthTime
endtype

type Orb
   Speed as Coord
   Pos as Coord
   Mass#
   colX
   colZ
endtype








BlankCoord as Coord
BlankCoord.x# = 0.0
BlankCoord.y# = 0.0
BlankCoord.z# = 0.0

make object sphere 2, 1, 24, 24
set object collision to spheres 2
position object 2, 0, 0.5, 0
Dim P(1) as Orb
P(1).Mass# = 2.0
P(1).Speed = BlankCoord
P(1).Pos = BlankCoord




Dim Mines(1000) as Mine


FartTime = timer()
FartCount = 0

autocam off
position camera -15, 20, 15
point camera 0,0,0
set directional light 0, -1, -1, -1

RUNNING = 1

frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "Mines Farted: " + str$(FartCount)


   if RUNNING = 1
      mx#=mousemovex()
      my#=mousemovey()
      tiltX# = tiltx#-mx#/4
      tiltZ# = tiltz#+my#/4
      if tiltx#>max_tiltx then tiltx#=max_tiltx
      if tiltx#<-max_tiltx then tiltx#=-max_tiltx
      if tiltz#>max_tiltz then tiltz#=max_tiltz
      if tiltz#<-max_tiltz then tiltz#=-max_tiltz


      rotate object 1, tiltX#, 0.0, tiltZ#
      rotate object 1000, tiltX#, 0.0, tiltZ#
      rotate object 1001, tiltX#, 0.0, tiltZ#

      inc P(1).Speed.x#, sin(tiltZ#)     * grav * P(1).mass# * frameTime# * 0.001
      inc P(1).Speed.z#, sin(tiltX#+180) * grav * P(1).mass# * frameTime# * 0.001

      inc P(1).Pos.x#, P(1).Speed.x# * frameTime# * 0.001
      inc P(1).Pos.z#, P(1).Speed.z# * frameTime# * 0.001
      P(1).Pos.y# = (P(1).Pos.x# * sin(tiltZ#)) + (P(1).Pos.z# * sin(tiltX#+180))
      position object 2, P(1).Pos.x#, P(1).Pos.y#+0.5, P(1).Pos.z#

      if P(1).Speed.z# > 0 then if P(1).Pos.z# >  ARENA_Z - 0.5 then P(1).Speed.z# = P(1).Speed.z# * -0.75
      if P(1).Speed.z# < 0 then if P(1).Pos.z# < -ARENA_Z + 0.5 then P(1).Speed.z# = P(1).Speed.z# * -0.75

      if P(1).Speed.x# > 0 then if P(1).Pos.x# >  ARENA_X - 0.5 then P(1).Speed.x# = P(1).Speed.x# * -0.75
      if P(1).Speed.x# < 0 then if P(1).Pos.x# < -ARENA_X + 0.5 then P(1).Speed.x# = P(1).Speed.x# * -0.75


      if timer() - FartTime > 1500
         FartTime = timer()
         inc FartCount
         gosub CREATE_MINE
      endif

      gosub UPDATE_MINES
   else
      center text screen width() * 0.5, screen height() * 0.5, "YOU LOSE!!!"
   endif

   sync
loop
end




UPDATE_MINES:
   for j = 5000 to 5000 + FartCount
      if object exist(j) = 1
         i = j - 5000
         inc Mines(i).Speed.x#, sin(tiltZ#)     * grav * 0.1 * frameTime# * 0.001
         inc Mines(i).Speed.z#, sin(tiltX#+180) * grav * 0.1 * frameTime# * 0.001

         inc Mines(i).Pos.x#, Mines(i).Speed.x# * frameTime# * 0.001
         inc Mines(i).Pos.z#, Mines(i).Speed.z# * frameTime# * 0.001
         Mines(i).Pos.y# = (Mines(i).Pos.x# * sin(tiltZ#)) + (Mines(i).Pos.z# * sin(tiltX#+180))
         position object j, Mines(i).Pos.x#, Mines(i).Pos.y#+0.5, Mines(i).Pos.z#


         if Mines(i).Speed.z# > 0 then if Mines(i).Pos.z# >  ARENA_Z - 0.25 then Mines(i).Speed.z# = Mines(i).Speed.z# * -0.75
         if Mines(i).Speed.z# < 0 then if Mines(i).Pos.z# < -ARENA_Z + 0.25 then Mines(i).Speed.z# = Mines(i).Speed.z# * -0.75

         if Mines(i).Speed.x# > 0 then if Mines(i).Pos.x# >  ARENA_X - 0.25 then Mines(i).Speed.x# = Mines(i).Speed.x# * -0.75
         if Mines(i).Speed.x# < 0 then if Mines(i).Pos.x# < -ARENA_X + 0.25 then Mines(i).Speed.x# = Mines(i).Speed.x# * -0.75



         if timer() - Mines(i).BirthTime < T_TO_LIVE
            center text object screen x(j), object screen y(j), left$(str$((T_TO_LIVE - (timer() - Mines(i).BirthTime)) * 0.001), 4)
         else
            if object collision(j, 2)
               RUNNING = 0
            endif
         endif

      endif
   next i

return






CREATE_MINE:

   i = FartCount + 5000
   make object sphere i, 0.5
   set object collision to spheres i
   position object i, object position x(2), object position y(2), object position z(2)
   set object diffuse  i, rgb(255, 0, 0)
   set object specular i, rgb(0,0,0)
   set object specular power i, 10
   j = FartCount
   Mines(j).Speed = P(1).Speed

   Mines(j).Pos.x# = object position x(2)
   Mines(j).Pos.y# = object position y(2)
   Mines(j).Pos.z# = object position z(2)

   Mines(j).BirthTime = timer()

return

SYNC ON
SYNC RATE 60
SET DISPLAY MODE 1024,768,32
HIDE MOUSE
AUTOCAM OFF

`Set gun holding-limb position
gunOffsetX AS FLOAT = 15.0
gunOffsetY AS FLOAT = -20.0
gunOffsetZ AS FLOAT = 20.0
`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1
`Make a weapon and attach it to the limb
make object box 2,10,10,100
GLUE OBJECT TO LIMB 2,1,1
make object box 3,10,10,200
position object 3,1,0,3000
glue object to limb 3,1,1

`Make matrix to walk on
MAKE MATRIX 1,10000,10000,100,100

`Variables
xPos AS FLOAT
zPos AS FLOAT
speed AS FLOAT = 10.0

xLook AS FLOAT
yAng AS FLOAT
lookSpeed AS FLOAT = 0.2

`The gun bobbing values
gunBobSpeed AS FLOAT = 6.0
gunBobMove AS FLOAT = 3.0
gunBobHeight AS FLOAT = 1.5

gunBobAng AS FLOAT
gunTurnAng AS FLOAT
gunLookAng AS FLOAT

mouseMovementX AS FLOAT
mouseMovementY AS FLOAT

do
   `Store mouse movement
   mouseMovementX = MOUSEMOVEX()
   mouseMovementY = MOUSEMOVEY()

   `Control the gun swaying according to how much the player is turning
   gunTurnAng = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng,10)
   gunLookAng = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng,10)

   `Position the gun-holding limb and rotate it to give swaying effect
   OFFSET LIMB 1,1,gunOffsetX+SIN(gunBobAng)*gunBobMove,gunOffsetY+ABS(COS(gunBobAng))*gunBobHeight,gunOffsetZ
   ROTATE LIMB 1,1,gunLookAng,gunTurnAng,0

   `Turn player
   yAng = WRAPVALUE(yAng + mouseMovementX*lookSpeed)
   xLook = WRAPVALUE(xLook + mouseMovementY*lookSpeed)

   `Position player object and camera
   position object 1,xPos,100,zPos
   ROTATE OBJECT 1,0,yAng,0
   PITCH OBJECT DOWN 1,xLook
   POSITION CAMERA xPos,100,zPos
   ROTATE CAMERA xLook,yAng,0
   Gosub Bullet
   SYNC
loop

Bullet:
If crntbullet=0 and mouseclick()=1
if object exist(5) then delete object 5
Make object sphere 5,10
Position object 5,object position x(2),object position y(2),object position z(2)
crntx=object position x(3)-(object position x(3)-object position x(2))
crnty=object position y(3)-(object position y(3)-object position y(2))
crntz=object position z(3)-(object position z(3)-object position z(2))
xmouse=mousex()/10
zmouse=mousex()/10
ymouse=mousey()/60
crntbullet=1
endif
If crntbullet=1
crntx=crntx+xmouse
crnty=crnty+ymouse
crntz=crntz+zmouse
position object 5,crntx,crnty,crntz
If object position z(5)>3000 then delete object 5 : crntbullet=0
Endif
Return