Sorry your browser is not supported!

REM Project: Terra Pugna
REM Created: 5/11/2007 10:02:58 AM
REM
REM ***** Main Source File *****
REM

#constant battlefieldsize = 25
#constant cratenum = 40
#constant heavy = 5.0

sync on
randomize timer()
Tbm_init(60)

global name as string

titlescreen()
selectname()
loadgame()

zoom = 8

do

  Tbm_update()

  `control player
  if keystate(17) then move object player, .1*Tbm.factor
  if keystate(31) then move object player, -.1*Tbm.factor
  if keystate(30) then yrotate object player, object angle y(player) - 2*Tbm.factor
  if keystate(32) then yrotate object player, object angle y(player) + 2*Tbm.factor
  
  px# = object position x(player)
  pz# = object position z(player)

  `collision
  for t = 0 to array count(crates())
  if object collision(player, crates(t))
    x# = get object collision x()
    z# = get object collision z()
    position object player, object position x(player) - x#, 0, object position z(player) - z#
    position object crates(t), object position x(crates(t)) + x#/heavy, 0, object position z(crates(t)) + z#/heavy
  endif
  next t
  
  `control intelligent munitions system
  for t = 0 to array count(IMSs())
    if IMSs(t)
      x# = object position x(IMSs(t))
      z# = object position z(IMSs(t))
      if abs(px# - x#) + abs(pz# - z#) < 3
        make_bomb(x#, 0, z#, (px# - x#)/10.0, .1, (pz# - z#)/10.0)
      endif
    endif
  next t
  
  `control bombs
  if array count(bombs())
    for t = 0 to array count(bombs())
      dec bombs(t).vy, .01
      position object bombs(t).object, object position x(bombs(t).object)+bombs(t).vx*Tbm.factor,object position y(bombs(t).object)+bombs(t).vy*Tbm.factor,object position z(bombs(t).object)+bombs(t).vz*Tbm.factor
    next t
  endif

  `control camera
  inc zoom, mousemovez()/100.0
  position camera object position x(player), zoom, object position z(player)
  point camera object position x(player), object position y(player), object position z(player)
  yrotate camera object angle y(player)

  text 0, 0, "FPS: " + str$(Tbm.realfps, 0)

  sync
loop

function make_bomb(x as float, y as float, z as float, vx as float, vy as float, vz as float)

  array insert at bottom bombs()
  bombs().object = make_object_sphere(0.1, 5, 5)
  position object bombs().object, x, y, z
  color object bombs().object, rgb(0, 255, 0)
  bombs().vx = vx
  bombs().vy = vy
  bombs().vz = vz

endfunction

type bomb
  object as dword
  vx as float
  vy as float
  vz as float
endtype

function loadgame()

  dim crates(cratenum) as dword
  dim IMSs(battlefieldsize+4, 4) as dword

  for t = 0 to cratenum
    crates(t) = make_object_cube(1)
    position object crates(t), rnd(battlefieldsize), 0, rnd(battlefieldsize)
    make object collision box crates(t), -0.5, -0.5, -0.5, 0.5, 0.5, 0.5, 0
    yrotate object crates(t), rnd(50)-25
    color object crates(t), rnd(0x00FFFFFF)
  next t

  global player as dword
  player = make_object_sphere(0.5, 12, 12)
  make object collision box player, -0.25, -0.25, -0.25, 0.25, 0.25, 0.25, 0
  color object player, 0x000000FF
  null = make vector3(1)
  
  for t = -2 to battlefieldsize + 2 step 4
    for side = 0 to 3
      IMSs(t+2, side) = make_object_cone(.8)
    next side
    position object IMSs(t+2, 0), t, 0, -2
    position object IMSs(t+2, 1), t, 0, battlefieldsize+2
    position object IMSs(t+2, 2), -2, 0, t
    position object IMSs(t+2, 3), battlefieldsize+2, 0, t
  next t
  
  dim bombs(-1) as bomb

endfunction

function selectname()

  local how as string
  local name as string
  local repea as string

  talk("What's your name, soldier?")
  input name
  inc y, 15
  talk("Ok, " + name + ", you've been chosen to lead this group of soldiers into")
  talk("a surprise attack on the ShiWii.")
  talk("Would you like me to tell you how to fight them?")
  input how
  inc y, 15
  if upper$(mid$(how, 1)) = "Y"
    repeat
      talk("Use WASD to move around and the left mouse button to fire.")
      talk("Don't leave the battlefield or else the IMS network will blow you up.")
      talk("You can hide behind crates for cover but remember the ShiWii can blow them up.")
      talk("Do you want me to repeat the directions?")
      input repea
      inc y, 15
      if upper$(mid$(repea, 1)) = "N"
        talk("Ah, you're a quick learner.")
        talk("We need smart people on the force out there like you.")
      else
        talk("Smart choice, war is life or death, so I'll explain it again so you're sure")
        talk("you can beat the ShiWii.")
      endif
    until upper$(mid$(repea, 1)) = "N"
  else
    talk("You must be very experienced if you already know that much")
    talk("about battling on ShiWii territory!")
  endif
  talk("Good luck, " + name + "!")

endfunction

function titlescreen()

local title as string
local piece as string
local char as byte
local fade as byte

title = "Terra Pugna"

for char = 1 to len(title)
  cls
  piece = left$(title, char)
  center text screen width()/2, screen height()/2, piece
  wait 200
  sync
next char
wait 700

titley = screen height()/2
repeat
  cls
  center text screen width()/2, titley, title
  inc titley
  wait 7
  sync
until titley > screen height()

endfunction

global x as dword
global y as dword

function talk(str as string)

  x = 0

  for t = 1 to len(str)
    set cursor x, y
    print mid$(str, t)
    inc x, text width(mid$(str, t))
    wait 50
    sync
  next t
  inc y, 10

endfunction

`***********************
`**** Dynamic Media ****
`***********************

`********************
`** Free Functions **
`********************

function free_object()

  id as dword

  repeat
    inc id
  until object exist(id) = 0

endfunction id

function free_limb(object as dword)

  id as dword

  if object exist(object)
    repeat
      inc id
    until limb exist(object, id) = 0
  endif

endfunction id

function free_dll()

  id as dword

  repeat
    inc id
  until dll exist(id) = 0

endfunction id

function free_memblock()

  id as dword

  repeat
    inc id
  until memblock exist(id) = 0

endfunction id

function free_sound()

  id as dword

  repeat
    inc id
  until sound exist(id) = 0

endfunction id

function free_music()

  id as dword

  repeat
    inc id
  until music exist(id) = 0

endfunction id

function free_animation()

  id as dword

  repeat
    inc id
  until animation exist(id) = 0

endfunction id

function free_bitmap()

  id as dword

  repeat
    inc id
  until bitmap exist(id) = 0

endfunction id

function free_effect()

  id as dword

  repeat
    inc id
  until effect exist(id) = 0

endfunction id

function free_image()

  id as dword

  repeat
    inc id
  until image exist(id) = 0

endfunction id

function free_light()

  id as dword

  repeat
    inc id
  until light exist(id) = 0

endfunction id

function free_matrix()

  id as dword

  repeat
    inc id
  until matrix exist(id) = 0

endfunction id

function free_mesh()

  id as dword

  repeat
    inc id
  until mesh exist(id) = 0

endfunction id

function free_pixelshader()

  id as dword

  repeat
    inc id
  until pixel shader exist(id) = 0

endfunction id

function free_particles()

  id as dword

  repeat
    inc id
  until particles exist(id) = 0

endfunction id

function free_sprite()

  id as dword

  repeat
    inc id
  until sprite exist(id) = 0

endfunction id

function free_terrain()

  id as dword

  repeat
    inc id
  until terrain exist(id) = 0

endfunction id

function free_vertexshader()

  id as dword

  repeat
    inc id
  until vertex shader exist(id) = 0

endfunction id

function free_file()

  id as dword

  repeat
    inc id
  until file open(id) = 0

endfunction id

`*******************
`** Object Making **
`*******************

function load_object(filename as string)

  id as dword

  id = free_object()
  load object filename, id

endfunction id

function make_object_cube(size as float)

  id as dword

  id = free_object()
  make object cube id, size

endfunction id

function make_object_sphere(size as float, rows as integer, columns as integer)

  id as dword

  id = free_object()
  make object sphere id, size, rows, columns

endfunction id

function make_object_cylinder(size as float)

  id as dword

  id = free_object()
  make object cylinder id, size

endfunction id

function make_object_cone(size as float)

  id as dword

  id = free_object()
  make object cone id, size

endfunction id

function make_object_plain(width as float, height as float)

  id as dword

  id = free_object()
  make object plain id, width, height

endfunction id

function make_object_triangle(x1 as float, y1 as float, z1 as float, x2 as float, y2 as float, z2 as float, x3 as float, y3 as float, z3 as float)

  id as dword

  id = free_object()
  make object triangle id, x1, y1, z1, x2, y2, z2, x3, y3, z3

endfunction id

function make_object(mesh as dword, image as dword)

  id as dword

  id = free_object()
  make object id, mesh, image

endfunction id

function make_object_from_limb(object as dword, limb as dword, copy as boolean)

  id as dword

  id = free_object()
  make object from limb id, object, limb, copy

endfunction id

function clone_object(object as dword)

  id as dword

  id = free_object()
  clone object id, object

endfunction id

function instance_object(object as dword)

  id as dword

  id = free_object()
  instance object id, object

endfunction id

`******************
`** Image Making **
`******************

function load_image(filename as string, textureflag as boolean)

  id as dword

  id = free_image()
  load image filename, textureflag

endfunction id

function get_image(left as dword, top as dword, right as dword, bottom as dword, textureflag as boolean)

  id as dword

  id = free_image()
  get image id, left, top, right, bottom, textureflag

endfunction id

`******************
`** Sound Making **
`******************

function load_sound(filename as string)

  id as dword

  id = free_sound()
  load sound filename, id

endfunction id

function load_3Dsound(filename as string)

  id as dword

  id = free_sound()
  load 3dsound filename, id

endfunction id

function clone_sound(sound as dword)

  id as dword

  id = free_sound()
  clone sound id, sound

endfunction id

function record_sound(duration as dword)

  id as dword

  id = free_sound()
  record sound id, duration

endfunction id

`*******************
`** Sprite Making **
`*******************

function make_sprite(xpos as integer, ypos as integer, image as dword)

  id as dword

  id = free_sprite()
  sprite id, xpos, ypos, image

endfunction id

function clone_sprite(sprite_ as dword)

  id as dword

  id = free_sprite()
  clone sprite sprite_, id

endfunction id

`*****************
`** File Making **
`*****************

function open_to_read(filename as string)

  id as dword

  id = free_file()
  open to read id, filename

endfunction id

function open_to_write(filename as string)

  id as dword

  id = free_file()
  open to write id, filename

endfunction id

REM *** Include File: Tbm.dba ***
REM Created: 5/6/2007 12:29:35 PM
REM
REM Included in Project: C:\Program Files\The Game Creators\Dark Basic Professional\Projects\Mekal Engine\Mekal Engine.dbpro
REM

`this include file encapsulates timer based movement

`Public
  `Tbm_init()
  `Tbm_update()
  `Tbm.realfps    R
  `Tbm.factor     R

type Tbm

  targetfps as float
  realfps as float
  boot as dword
  factor as float
  lastcheck as dword

endtype

function Tbm_init(fps as float)

  global Tbm as Tbm

  Tbm.boot = timer()
  Tbm.lastcheck = Tbm.boot
  Tbm.targetfps = fps

endfunction

function Tbm_update()

  now as dword
  took as dword
  factor as float

  now = timer()
  took = now - Tbm.lastcheck

  Tbm.lastcheck = now
  Tbm.realfps = 1000.0/took
  Tbm.factor = Tbm.targetfps/Tbm.realfps

endfunction

dim array() as dword
local size as dword
do
  was = perftimer()
  array insert at bottom array()
  took = perftimer() - was
  inc size
  cls
  print "Insertion took: "; took; " microseconds"
  print "array size: "; size
loop

REM Project: Overhead
REM Created: 12.05.2007 13:31:12
REM
REM ***** Main Source File *****
REM
set display mode 1024,768,32
`========================================================================================================================
`Draw Stuff
`========================================================================================================================
`make healt texture
ink rgb(225,225,232),rgb(0,0,0)
box 0,0,29,29
ink rgb(0,0,0),rgb(0,0,0)
line 0,11,29,11
line 0,17,29,17
line 11,0,11,29
line 17,0,17,29
ink rgb(255,0,0),rgb(0,0,0)
box 0,12,29,17 : box 12,0,17,29
get image 1,0,0,29,29
cls
`make BAR texture
ink rgb(100,100,100),rgb(0,0,0)
box 0,0,29,29
ink rgb(200,200,200),rgb(0,0,0)
line 0,0,29,0
line 0,0,0,29
line 29,29,29,0
line 29,29,0,29
get image 2,0,0,29,29
cls
`make player texture
ink rgb(0,128,255),rgb(0,0,0)
box 0,0,29,29
ink rgb(193,224,255),rgb(0,0,0)
box 0,10,29,29
get image 3,0,0,29,29
cls
`make enemy texture
ink rgb(23,192,28),rgb(0,0,0)
box 0,0,29,29
ink rgb(170,224,172),rgb(0,0,0)
box 0,10,29,29
get image 4,0,0,29,29
`make floor texture
ink rgb(55,168,17),rgb(0,0,0)
box 0,0,29,29
ink rgb(51,130,18),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(47,120,15),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(47,120,20),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(47,120,15),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(255,242,0),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(255,15,0),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29)
get image 5,0,0,29,29
cls
ink rgb(0,0,0),rgb(255,255,255)
`make enemy attention texture
ink rgb(214,16,16),rgb(0,0,0)
box 0,0,29,29
ink rgb(247,147,147),rgb(0,0,0)
box 0,10,29,29
get image 6,0,0,29,29
cls
`make enemy name1
ink rgb(255,255,255),0
print "Stan"
get image 7,0,0,35,20
cls
`make enemy name1
ink rgb(255,255,255),0
print "Troy"
get image 8,0,0,35,20
cls
`make wall texture
ink rgb(0,128,255),rgb(0,0,0)
box 0,0,29,29
ink rgb(9,100,240),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
get image 9,0,0,29,29
cls
`make enemy name1
box 0,0,50,50,rgb(230,141,151),rgb(29,163,230),rgb(230,141,151),rgb(29,163,230)
get image 10,0,0,50,50
cls

set text size 36

`make button quit
ink rgb(255,255,255),0
print "Quit"
dot 70,35
get image 11,0,0,70,40
cls
`make button quit
ink rgb(255,255,255),0
print "Start"
get image 12,0,0,80,35
cls
`make button quit
ink rgb(255,0,0),0
print "Quit"
dot 70,35
get image 13,0,0,70,40
cls
`make button quit
ink rgb(255,0,0),0
print "Start"
get image 14,0,0,80,35
cls
`make cursor
ink rgb(1,1,1),0
box 0,0,8,8
get image 15,0,0,8,8
cls
`make box image
ink rgb(172,152,118),rgb(0,0,0)
box 0,0,29,29
ink rgb(104,82,60),rgb(0,0,0)
line 0,0,29,0
line 0,0,0,29
line 29,29,29,0
line 29,29,0,29

line 6,0,6,29
line 12,0,12,29
line 18,0,18,29
line 24,0,24,29

get image 16,0,0,29,29
cls
`make explosion texture
ink rgb(243,143,33),rgb(0,0,0)
box 0,0,29,29
ink rgb(255,242,0),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
ink rgb(250,67,5),rgb(0,0,0)
dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) : dot rnd(29),rnd(29) :
get image 17,0,0,29,29
cls
`make crosshair
ink rgb(0,0,0),0
box 0,0,29,29
ink rgb(55,0,0),0
box 0,13,10,15
box 18,13,29,15
box 13,0,15,10
box 13,18,15,29

get image 18,0,0,29,29
cls

ink rgb(255,255,255),rgb(0,0,0)
`========================================================================================================================
`Routine
`========================================================================================================================
sync on : sync rate 60
hide mouse
sound(9,120)
`========================================================================================================================
`MAKE CAMERA ; LENS ; GROUND ; WINDOW ; MENU ; MEDIKITS ; WALLS ; EXPLOSIVE BOXES AND FIRE
`========================================================================================================================
`Make Camera
make camera 1
set camera range 1,1,1000000
position camera 1,100,125,75
xrotate camera 1,90
color backdrop 1,0
`Make Lens
make object plain 55,100,100
color object 55,rgb(255,255,255)
set object cull 55,0

position object 55,camera position x(1),camera position y(1),camera position z(1)
rotate object 55,camera angle x(1),camera angle y(1),camera angle z(1)
move object 55,10
set object light 55,0
set alpha mapping on 55,0
`Make Ground
make matrix 1,150,150,15,15
prepare matrix texture 1,5,1,1
`Make Window
make matrix 2,150,150,1,1
position matrix 2,148,5,0
prepare matrix texture 2,2,1,1
`Make Menu
make matrix 3,200,200,1,1
position matrix 3,0,20,0
prepare matrix texture 3,10,1,1
`Make MediKits
for h=30 to 35
   make object box h,4,1,3
   texture object h,1
   position object h,rnd(140)+5,0,rnd(140)+5
next h
`Make Walls
make object box 100,75,0.1,5
position object 100,20,0,75
make object box 101,75,0.1,5
position object 101,120,0,75
texture object 100,9 : texture object 101,9

make particles 1,9,10,7
position particles 1,60,0,75
color particles 1,0,50,107

make particles 2,9,10,7
position particles 2,80,0,75
color particles 2,0,50,107
`Make Fireboxes and explosions
for b=40 to 45
   make object box b,5,5,5
   texture object b,16
   position object b,rnd(140)+5,0,rnd(140)+5
next h

make object sphere 50,10
texture object 50,17
position object 50,50000,0,50
set alpha mapping on 50,90
`========================================================================================================================
`Player
`========================================================================================================================
`Make Player
make object sphere 1,8
texture object 1,3
position object 1,72,0,0
`Make Player Bullet
make object box 2,0.5,0.5,100
color object 2,rgb(0,0,255)
set alpha mapping on 2,50
`make player particles
make particles 5,3,10,7
color particles 5,5,10,255
`make crosshair
make object plain 11,10,10
texture object 11,18
set object cull 11,0
set object transparency 11,1
scale object 11,70,70,70
`========================================================================================================================
`Enemy 1
`========================================================================================================================
`Make Enemy 1
make object sphere 3,8
texture object 3,4
position object 3,150,0,150
`Make Enemy 1 Bullet
make object box 4,0.5,0.5,80
color object 4,rgb(255,0,0)
hide object 4
set alpha mapping on 4,50
`Make Enemy 1 Positioner
make object cube 5,3
hide object 5
`Make Enemy 1 Collisioner
make object sphere 6,50
hide object 6
`Make Enemy 1 Name
make object plain 21,17.5/1.5,10/1.5
texture object 21,7
set object transparency 21,1
`make enemy 1particles
make particles 3,4,10,7
color particles 3,255,10,5
`========================================================================================================================
`Enemy 2
`========================================================================================================================
`Make Enemy 2
make object sphere 7,8
texture object 7,4
position object 7,0,0,150
`Make Enemy 2 Bullet
make object box 8,0.5,0.5,80
color object 8,rgb(255,0,0)
hide object 8
set alpha mapping on 8,50
`Make Enemy 2 Positioner
make object cube 9,3
hide object 9
`Make Enemy 2 Collisioner
make object sphere 10,50
hide object 10
`Make Enemy 1 Name
make object plain 22,17.5/1.5,10/1.5
texture object 22,8
set object transparency 22,1
`make enemy 2particles
make particles 4,4,10,7
color particles 4,255,10,5
`========================================================================================================================
`Variables
`========================================================================================================================
power=200
ene1pow=200
ene2pow=200
d1=1
d2=1
speed as float
speed=0.5
nit as float
nit=35
KI=1
a=1
`mode=1 => menu
`mode=2 => game
Mode=1
l as float
l=1

do

if Mode=1
   sprite 15,mousex(),mousey(),15

   position matrix 3,0,20,0

   sprite 11,482,400,11
   sprite 12,482,350,12


   sprite 13,482,400,13
   sprite 14,482,350,14

   if sprite collision(15,11)=1 then show sprite 13 else hide sprite 13
   if sprite collision(15,12)=1 then show sprite 14 else hide sprite 14

   if sprite collision(15,11)=1 and mouseclick()=1 then end
   if sprite collision(15,12)=1 and mouseclick()=1 then Mode=2
endif



if Mode=2
`========================================================================================================================
`Others
`========================================================================================================================
if keystate(2)=1 then KI=1
if keystate(3)=1 then KI=0

position matrix 3,1000,1000,1000
hide sprite 11
hide sprite 12
hide sprite 13
hide sprite 14
hide sprite 15
`========================================================================================================================
`Camera
`========================================================================================================================
ncr#=curvevalue(cr#,ncr#,5)
ncf#=curvevalue(cf#,ncf#,5)
cx#=cx#+mousemovey()*0.2
cy#=cy#+mousemovex()*0.2
if cx#>80 then cx#=80
if cx#<-80  then cx#=-80
ncx#=curveangle(cx#,ncx#,2)
ncy#=curveangle(cy#,ncy#,2)
rotate object 1,0,ncy#,0
`========================================================================================================================
`Medi Kits
`========================================================================================================================
for h=30 to 35
   if object visible(h)=1
      if object collision(1,h)=1 then power=power+25 : hide object h
   endif
next h

for h=30 to 35
   if object visible(h)=1

      if object collision(3,h)=1 then ene1pow=ene1pow+25 : hide object h
   endif
next h

for h=30 to 35
   if object visible(h)=1
      if object collision(7,h)=1 then ene2pow=ene2pow+25 : hide object h
   endif
next h

for h=30 to 35
   if object collision(h,100)=1 or object collision(h,101)=1 then position object h,rnd(140)+5,0,rnd(140)+5
next h
`========================================================================================================================
`Player Controls
`========================================================================================================================
if object position x(1)<5 then position object 1,5,object position y(1),object position z(1)
if object position z(1)<5 then position object 1,object position x(1),object position y(1),5
if object position x(1)>145 then position object 1,145,object position y(1),object position z(1)
if object position z(1)>145 then position object 1,object position x(1),object position y(1),145
`collisions
if object position z(1)>68 and object position z(1)<75 and object collision(1,100)=1 then position object 1,object position x(1),object position y(1),68
if object position z(1)<82 and object position z(1)>75 and object collision(1,100)=1 then position object 1,object position x(1),object position y(1),82
if object position z(1)>68 and object position z(1)<75 and object collision(1,101)=1 then position object 1,object position x(1),object position y(1),68
if object position z(1)<82 and object position z(1)>75 and object collision(1,101)=1 then position object 1,object position x(1),object position y(1),82
`movement + nitro
if upkey()=1 then move object 1,speed
if downkey()=1 then move object 1,-speed
if leftkey()=1 then move object left 1,speed
if rightkey()=1 then move object right 1,speed
if shiftkey()=1 and nit>0 then speed=0.7 else speed=0.5
if shiftkey()=1 and nit>0 then dec nit,0.3
if shiftkey()=0 and nit<=35 then inc nit,0.8
if nit<=0 then nit=0
`others
rotate object 11,object angle x(1),object angle y(1),object angle z(1)
position object 11,object position x(1),2,object position z(1)
move object 11,50
xrotate object 11,270

rotate object 2,object angle x(1),object angle y(1),object angle z(1)
position object 2,object position x(1),object position y(1),object position z(1)
move object 2,50

if object visible(3)=1
if mouseclick()=1 and pene=0 and object collision(2,3)=1 then ene1pow=ene1pow-rnd(10)-20 : pene=50
if object collision(2,3)=1 and mouseclick()=1 then position object 5,object position x(1),object position y(1),object position z(1)
endif

if object visible(7)=1
if mouseclick()=1 and pene=0 and object collision(2,7)=1 then ene2pow=ene2pow-rnd(10)-20 : pene=50
if object collision(2,7)=1 and mouseclick()=1 then position object 9,object position x(1),object position y(1),object position z(1)
endif


position particles 5,object position x(1),object position y(1),object position z(1)
if pene>30 then show particles 5 else hide particles 5
if pene>40 then show object 2 else hide object 2
if pene>40 and sound playing(9)=0 then play sound 9

`========================================================================================================================
`Enemy Controls 1
`========================================================================================================================
hide object 4
hide object 8


if KI=1

if ene1pow>0

rotate object 4,object angle x(3),object angle y(3),object angle z(3)
position object 4,object position x(3),object position y(3),object position z(3)
position object 6,object position x(3),object position y(3),object position z(3)
move object 4,40

if object position x(3)<5 then position object 3,5,object position y(3),object position z(3)
if object position z(3)<5 then position object 3,object position x(3),object position y(3),5
if object position x(3)>145 then position object 3,145,object position y(3),object position z(3)
if object position z(3)>145 then position object 3,object position x(3),object position y(3),145

if object position z(3)>68 and object position z(3)<75 and object collision(3,100)=1 then position object 3,object position x(3),object position y(3),68
if object position z(3)<82 and object position z(3)>75 and object collision(3,100)=1 then position object 3,object position x(3),object position y(3),82
if object position z(3)>68 and object position z(3)<75 and object collision(3,101)=1 then position object 3,object position x(3),object position y(3),68
if object position z(3)<82 and object position z(3)>75 and object collision(3,101)=1 then position object 3,object position x(3),object position y(3),82
`========================================================================================================================
`Enemy KI 1
`========================================================================================================================
if object collision(4,1)=0
   if da1=0 then position object 5,rnd(140)+5,0,rnd(140)+5 : da1=1 : ent1=200
   point object 3,object position x(5),object position y(5),object position z(5)
   move object 3,0.9/2
   if object collision(3,5)=1 then da1=0
   if ent1=0 then da1=0
   texture object 3,4
endif



if object collision(4,1)=1 or object collision(1,6)=1
   texture object 3,6
   point object 3,object position x(1),object position y(1),object position z(1)
   if object collision(1,3)=0 then move object 3,0.45
   if ene1=0 then power=power-rnd(10)-13 : ene1=50
   if sound playing(10)=0 then play sound 10
endif

if ene1>35 then show object 4 else hide object 4
if ene1>35 then show particles 4 else hide particles 4
position particles 4,object position x(3),object position y(3),object position z(3)

endif
`========================================================================================================================
`Enemy Controls 2
`========================================================================================================================
if ene2pow>0

rotate object 8,object angle x(7),object angle y(7),object angle z(7)
position object 8,object position x(7),object position y(7),object position z(7)
position object 10,object position x(7),object position y(7),object position z(7)
move object 8,40

if object position x(7)<5 then position object 7,5,object position y(7),object position z(7)
if object position z(7)<5 then position object 7,object position x(7),object position y(7),5
if object position x(7)>145 then position object 7,145,object position y(7),object position z(7)
if object position z(7)>145 then position object 7,object position x(7),object position y(7),145

if object position z(7)>68 and object position z(7)<75 and object collision(7,100)=1 then position object 7,object position x(7),object position y(7),68
if object position z(7)<82 and object position z(7)>75 and object collision(7,100)=1 then position object 7,object position x(7),object position y(7),82
if object position z(7)>68 and object position z(7)<75 and object collision(7,101)=1 then position object 7,object position x(7),object position y(7),68
if object position z(7)<82 and object position z(7)>75 and object collision(7,101)=1 then position object 7,object position x(7),object position y(7),82
`========================================================================================================================
`Enemy KI 2
`========================================================================================================================

if object collision(8,1)=0
   if da2=0 then position object 9,rnd(140)+5,0,rnd(140)+5 : da2=1 : ent2=200
   point object 7,object position x(9),object position y(9),object position z(9)
   move object 7,0.9/2
   if object collision(3,9)=1 then da2=0
   if ent2=0 then da2=0
   texture object 7,4
endif



if object collision(8,1)=1 or object collision(1,10)=1
   texture object 7,6
   point object 7,object position x(1),object position y(1),object position z(1)
   if object collision(1,7)=0 then move object 7,0.45
   if ene2=0 then power=power-rnd(10)-13 : ene2=50
   if sound playing(10)=0 then play sound 10
endif

if ene2>35 then show object 8 else hide object 8
if ene2>35 then show particles 3 else hide particles 3
position particles 3,object position x(7),object position y(7),object position z(7)



endif

if ene2pow<=0 then hide particles 3
if ene1pow<=0 then hide particles 4
if ene2pow<=0 then hide object 7
if ene1pow<=0 then hide object 3

endif
`========================================================================================================================
`Position Names
`========================================================================================================================
position object 21,object position x(7),10,object position z(7)
xrotate object 21,270
if object visible(7)=0 then hide object 21 else show object 21

position object 22,object position x(3),10,object position z(3)
xrotate object 22,270
if object visible(3)=0 then hide object 22 else show object 22
`========================================================================================================================
`If Dead
`========================================================================================================================
if ene1pow<=0 then ene1pow=0
if ene2pow<=0 then ene2pow=0

if ene1pow<=0 then hide object 3 else show object 3
if ene2pow<=0 then hide object 7 else show object 7

if ene1pow<=0 and d1=1 and object visible(3)=0 then ppunkte=ppunkte+1 : d1=0
if ene2pow<=0 and d2=1 and object visible(7)=0 then ppunkte=ppunkte+1 : d2=0
if power<=0 then epunkte=epunkte+1



for h=30 to 35
   if power<=0 or ene1pow<=0 and ene2pow=0 then show object h : position object h,rnd(140)+5,0,rnd(140)+5
next h

for b=40 to 45
   if power<=0 or ene1pow<=0 and ene2pow=0 then show object b : position object b,rnd(140)+5,0,rnd(140)+5
next b

if power<=0
   position object 1,72,0,0
   position object 3,150,0,150
   position object 7,0,0,150
   ene1pow=200
   ene2pow=200
   power=200
   d1=1
   d2=1
   lens=1 : l=1
endif

if ene1pow<=0 and ene2pow<=0
   position object 1,72,0,0
   position object 3,150,0,150
   position object 7,0,0,150
   ene1pow=200
   ene2pow=200
   power=200
   d1=1
   d2=1
   lens=1 : l=1
endif




if lens=1
   inc l,5
   set alpha mapping on 55,l
   if l=>100 then set alpha mapping on 55,0 : lens=0
endif



`========================================================================================================================
`Explosive Boxes
`========================================================================================================================
for b=40 to 45
   if object visible(b)=1
      if object collision(1,b)=1 then power=power-15 : hide object b : s=0 : explo=1 : ex=b
   endif
next b

for b=40 to 45
   if object visible(b)=1
      if object collision(3,b)=1 then ene1pow=ene1pow-15 : hide object b : s=0 : explo=1 : ex=b
   endif
next b

for b=40 to 45
   if object visible(b)=1
      if object collision(7,b)=1 then ene2pow=ene2pow-15 : hide object b : s=0 :explo=1 : ex=b
   endif
next b

for b=40 to 45
   if object collision(b,100)=1 or object collision(b,101)=1 then position object b,rnd(140)+5,0,rnd(140)+5
next b

if explo=1
   inc s,10
   position object 50,object position x(ex),object position y(ex),object position z(ex)
   scale object 50,s,s,s
   if s=>200 then scale object 50,0,0,0 : explo=0
endif
`========================================================================================================================
`Variables
`========================================================================================================================
if ene1>0 then dec ene1
if ent1>0 then dec ent1
if ene2>0 then dec ene2
if ent2>0 then dec ent2

if pene>0 then dec pene
`========================================================================================================================
`Text
`========================================================================================================================
set text size 18
text 10,768-20,"Controls: Movement - Arrowkeys ; Shift - Sprint ; Left Mouse = Fire ; Mouse = Control Camera"


text 850,30,"FPS:   "+str$(screen fps())

text 850,150,"Your Points:    "+str$(ppunkte)
text 850,180,"Enemy Points:   "+str$(epunkte)


text 850,370,"Troy's Energy:   "+str$(ene1pow)
text 850,400,"Stan's Energy:   "+str$(ene2pow)

set text size 32
text 880,600,str$(power)+" %"


endif


sync
loop



function sound(soundnumber,length#)
outWord as word
samples=5984
make memblock 1,samples*2+28
position=0
write memblock dword 1, position, 1 : inc position,4
write memblock dword 1, position, 2 : inc position,4
write memblock dword 1, position, 22050 : inc position,4
write memblock dword 1, position, 88260 : inc position,4
write memblock dword 1, position, 4 : inc position,4
write memblock dword 1, position, 16 : inc position,4
write memblock dword 1, position, 0 : inc position,4
rem generate and write wave
for x=1 to samples
  outInteger=int(sin((x/5.5)*(30+0*sin(0)))*(10900))*4.0
  outWord=outInteger
  write memblock word 1, position, outWord : inc position,2
next x
make sound from memblock 9,1 : set sound volume 9,80
clone sound 10,9 : set sound volume 10,80
endfunction

sync on
sync rate 0
if check display mode(1024,768,32)=1
	set display mode 1024,768,32
endif
randomize timer()
autocam off
hide mouse

#Constant plyr 1
#Constant platform 2
speed#=1
turnspeed#=0.7
bulletspeed#=5
cbullet=51
shottime=0
health=100
btime=timer()

make object cube plyr,10
position object plyr,0,6,0
color object plyr,0x00ff88
position camera 0,305,0
xrotate camera 90
make object plain platform,2000,2000,1
xrotate object platform,90
make object box 3,50,50,2020
color object 3,0x101010
instance object 4,3
instance object 5,3
instance object 6,3
position object 3,1000,25,0
position object 4,-1000,25,0
position object 5,0,25,1000
position object 6,0,25,-1000
yrotate object 5,90
yrotate object 6,90
for i=7 to 50
	height=rnd(200)+1
	make object box i,rnd(200)+1,height,rnd(200)+1
	repeat
		position object i,rnd(2000)-1000,height/2.0,rnd(2000)-1000
	until object collision(plyr,i)=0
	color object i,0x101010
next i
set text size 16
set text font "Arial"
ink 0,0

type enemy
	health as integer
	spawntime as integer
	objectnum as integer
endtype
dim elist(1) as enemy
elist(1).health=10
elist(1).spawntime=timer()
elist(1).objectnum=next_enemy()
make object cube elist(1).objectnum,10
color object elist(1).objectnum,0xff0000
repeat
	position object elist(1).objectnum,rnd(2000)-1000,6,rnd(2000)-1000
until object collision(elist(1).objectnum,0)=0

null=make vector3(1)
null=make vector3(2)

shots=0

do
sync
px#=object position x(plyr)
py#=object position y(plyr)
pz#=object position z(plyr)
move#=(upkey()-downkey())*speed#
turn#=(rightkey()-leftkey())*turnspeed#
move object plyr,move#
yrotate object plyr,object angle y(plyr)+turn#
collide=object collision(plyr,0)
if collide>0 and collide<51 or collide>200
	position object plyr,px#,py#,pz#
else
	px#=object position x(plyr)
	py#=object position y(plyr)
	pz#=object position z(plyr)
endif
position camera px#,py#+300,pz#
yrotate camera object angle y(plyr)
if shiftkey()=1 and timer()-shottime>50
	inc shots
	if object exist(cbullet)=0
		make object cube cbullet,5
		color object cbullet,0
	endif
	position object cbullet,px#,py#,pz#
	rotate object cbullet,object angle x(plyr),object angle y(plyr),object angle z(plyr)
	move object cbullet,6
	shottime=timer()
	inc cbullet
	if cbullet>200
	   cbullet=51
	endif
endif
for i=51 to 200
	if object exist(i)=1
	   move object i,bulletspeed#
	   c=object collision(i,0)
	   if c>0 and c<51
	      delete object i
		endif
	endif
next i
set vector3 1,px#,py#,pz#
text 0,0,"Remaining health: "+str$(health)
text 0,16,"Remaining enemies: "+str$(array count(elist(0)))
for i=1 to array count(elist(0))
	killed=0
	obj=elist(i).objectnum
	ink 0xff0000,0
	line object screen x(plyr),object screen y(plyr),object screen x(obj),object screen y(obj)
	ink 0,0
	ex#=object position x(obj)
	ey#=object position y(obj)
	ez#=object position z(obj)
	set vector3 2,ex#,ey#,ez#
	subtract vector3 2,1,2
	dist#=length vector3(2)
	if dist#>100
		yrotate object obj,object angle y(obj)+rnd(6)-3
		move object obj,0.6
	else
	   point object obj,px#,py#,pz#
	   move object obj,1.2
	endif
	collide=object collision(obj,0)
	if object position x(obj)>975 or object position x(obj)<-975 or object position z(obj)>975 or object position z(obj)<-975
		killed=1
		delete object obj
		array delete element elist(0),i
		collide=0
	endif
	if collide>0
	   if collide<50 or collide>200
	      ax#=object angle x(obj)
	      ay#=object angle y(obj)
	      az#=object angle z(obj)
	      point object obj,ex#,ey#,ez#
	      move object obj,1.5
	      rotate object obj,ax#,ay#,az#
	      if collide=1
	         dec health
			endif
		endif
		if collide<200 and collide>50
			elist(i).health=elist(i).health-1
			if elist(i).health<0
				killed=1
				delete object obj
				array delete element elist(0),i
			endif
		endif
	endif
	if killed=0
	   if timer()-elist(i).spawntime>1000*array count(elist(0))^2*((timer()-btime)/25000) and rnd(100)=0
	      elist(i).spawntime=timer()
	      if array count(elist(0))<20
		      array insert at bottom elist(0)
		      entry=array count(elist(0))
		      elist(entry).objectnum=next_enemy()
				make object cube elist(entry).objectnum,10
				color object elist(entry).objectnum,0xff0000
				autoexit=0
				repeat
					position object elist(entry).objectnum,ex#,ey#,ez#
					yrotate object elist(entry).objectnum,rnd(359)
					repeat
					   inc autoexit
						move object elist(entry).objectnum,1
					until object collision(elist(entry).objectnum,0)<50 or object collision(elist(entry).objectnum,0)>200 or autoexit=50
				until object position x(elist(entry).objectnum)<975 and object position x(elist(entry).objectnum)>-975 and object position z(elist(entry).objectnum)<975 and object position z(elist(entry).objectnum)>-975 or autoexit=50
				elist(entry).spawntime=timer()
				elist(entry).health=10
			endif
	   endif
	endif
	if killed=1
	   dec i
	endif
next i
if health<=0
	cls -1
	text 0,0,"You were killed"
	sync
	wait key
	end
endif
if array count(elist(0))=0
	cls -1
	text 0,0,"You killed all the enemies"
	text 0,25,"Shots fired: "+str$(shots)
	text 0,50,"Time taken:  "+str$(timer()-btime)
	sync
	wait key
	end
endif

loop

function next_enemy()
	i=201
	repeat
	   inc i
	until object exist(i)=0
endfunction i

REM Project: overheadshooter
REM Created: 5/24/2007 5:30:00 PM
REM
REM ***** Main Source File *****
REM
global s as word
global st as word
global e1 as byte
global e2 as byte
global e3 as byte
global k as word
global a as word
global yc# as byte
global t as dword

sync on: sync rate 600
instructions()
do
loop
function turretcon()
make camera 1:position camera 1,10,20,10:pitch camera down 1,90
color backdrop 1,rgb(0,0,0)
make object cube 1,1
position object 1,10,0,10
make object sphere 2,1
position object 2,10,1,10
make object cube 3,1
position object 3,10,.5,10
scale object 3,142,20,20
color object 1,rgb(40,40,40)
color object 2,rgb(35,65,35)
color object 3,rgb(20,20,20)

make object cube 15,1;scale object 15,100,100,2000;position object 15,-.5,0,10
make object cube 16,1;scale object 16,100,100,2000;position object 16,20.5,0,10
make object cube 17,1;scale object 17,2000,100,100;position object 17,10,0,-.5
make object cube 18,1;scale object 18,2000,100,100;position object 18,10,0,20.5
for q=15 to 18
color object q,rgb(0,255,0)
next q

game()
endfunction

function game()
s=5
a=20
yc#=1.2
make particles 1,0,2,3;rotate particles 1,50,0,0;position particle emissions 1,50,0,0
color particles 1,255,100,0

do
set text size 20
`text 0,0,"KILLS:"+str$(k)
`text 0,20,"TIME:"+str$(t)
t=t+1
if t= 500;enemymaker1();endif
if t=2000;enemymaker2();endif
if t=2500;enemymaker3();endif
if t=5000;yc#=1;endif
if e1=1;e1();endif
if e2=1;e2();endif
if e3=1;e3();endif
st=st+1

if rightkey()=1;y=y+yc#;yrotate object 1,y;yrotate object 3,y;endif
if leftkey()=1;y=y-yc#;yrotate object 1,y;yrotate object 3,y;endif
if spacekey()=1;if st=>35;fire();endif;endif
shotn5()
shotn6()
shotn7()
shotn8()
shotn9()
shotn10()
shotn11()
shotn12()
shotn13()
shotn14()

randomize timer()
sync;loop
endfunction

function e1()
point object 20,10,0,10;move object 20,.02;if object hit(1,20);gameover();endif
position object 20,object position x(20),.6,object position z(20)
endfunction
function e2()
point object 21,10,0,10;move object 21,.02;if object hit(1,21);gameover();endif
position object 21,object position x(21),.6,object position z(21)
endfunction
function e3()
point object 22,10,0,10;move object 22,.01;if object hit(1,22);gameover();endif
position object 22,object position x(20),.6,object position z(22)
endfunction

function enemymaker1()
make object sphere 20,1;scale object 20,50,50,50;position object 20,rnd(20),.6,0
color object 20,rgb(255,0,0)
e1=1
endfunction
function enemymaker2()
make object sphere 21,1;scale object 21,50,50,50;position object 21,rnd(20),.6,20
color object 21,rgb(255,0,0)
e2=1
endfunction
function enemymaker3()
make object sphere 22,1;scale object 22,50,50,50;position object 22,rnd(20),.6,20
color object 22,rgb(255,0,0)
e3=1
endfunction

function fire()
st=0
make object cube s,1
scale object s,25,25,25
position object s,10,.6,10
color object s,rgb(000,150,50)
set object to object orientation s,1
s=s+1
if s=15;s=5;endif
exitfunction
endfunction



function shotn5()
if object exist(5);move object 5,-.05;
if object position x(5)=>20;d5=1;position particle emissions 1,object position x(5),1,object position z(5);endif
if object position x(5)=<-0;d5=1;position particle emissions 1,object position x(5),1,object position z(5);endif
if object position z(5)=>20;d5=1;position particle emissions 1,object position x(5),1,object position z(5);endif
if object position z(5)=<-0;d5=1;position particle emissions 1,object position x(5),1,object position z(5);endif
if object exist(20);if object hit(5,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(5),1,object position z(5);endif;endif
if object exist(21);if object hit(5,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(5),1,object position z(5);endif;endif
if object exist(22);if object hit(5,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(5),1,object position z(5);endif;endif
if d5=1;delete object 5;endif
endif
endfunction
function shotn6()
if object exist(6);move object 6,-.05;
if object position x(6)=>20;d6=1;position particle emissions 1,object position x(6),1,object position z(6);endif
if object position x(6)=<-0;d6=1;position particle emissions 1,object position x(6),1,object position z(6);endif
if object position z(6)=>20;d6=1;position particle emissions 1,object position x(6),1,object position z(6);endif
if object position z(6)=<-0;d6=1;position particle emissions 1,object position x(6),1,object position z(6);endif
if object exist(20);if object hit(6,20);position object 20,rnd(20),.6,0;k=k+1;;position particle emissions 1,object position x(6),1,object position z(6);endif;endif
if object exist(21);if object hit(6,21);position object 21,rnd(21),.6,0;k=k+1;;position particle emissions 1,object position x(6),1,object position z(6);endif;endif
if object exist(22);if object hit(6,22);position object 22,rnd(20),.6,20;k=k+1;;position particle emissions 1,object position x(6),1,object position z(6);endif;endif
if d6=1;delete object 6;endif
endif
endfunction
function shotn7()
if object exist(7);move object 7,-.05;
if object position x(7)=>20;d7=1;position particle emissions 1,object position x(7),1,object position z(7);endif
if object position x(7)=<-0;d7=1;position particle emissions 1,object position x(7),1,object position z(7);endif
if object position z(7)=>20;d7=1;position particle emissions 1,object position x(7),1,object position z(7);endif
if object position z(7)=<-0;d7=1;position particle emissions 1,object position x(7),1,object position z(7);endif
if object exist(20);if object hit(7,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(7),1,object position z(7);endif;endif
if object exist(21);if object hit(7,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(7),1,object position z(7);endif;endif
if object exist(22);if object hit(7,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(7),1,object position z(7);endif;endif
if d7=1;delete object 7;endif
endif
endfunction
function shotn8()
if object exist(8);move object 8,-.05;
if object position x(8)=>20;d8=1;position particle emissions 1,object position x(8),1,object position z(8);endif
if object position x(8)=<-0;d8=1;position particle emissions 1,object position x(8),1,object position z(8);endif
if object position z(8)=>20;d8=1;position particle emissions 1,object position x(8),1,object position z(8);endif
if object position z(8)=<-0;d8=1;position particle emissions 1,object position x(8),1,object position z(8);endif
if object exist(20);if object hit(8,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(8),1,object position z(8);endif;endif
if object exist(21);if object hit(8,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(8),1,object position z(8);endif;endif
if object exist(22);if object hit(8,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(8),1,object position z(8);endif;endif
if d8=1;delete object 8;endif
endif
endfunction
function shotn9()
if object exist(9);move object 9,-.05;
if object position x(9)=>20;d9=1;position particle emissions 1,object position x(9),1,object position z(9);endif
if object position x(9)=<-0;d9=1;position particle emissions 1,object position x(9),1,object position z(9);endif
if object position z(9)=>20;d9=1;position particle emissions 1,object position x(9),1,object position z(9);endif
if object position z(9)=<-0;d9=1;position particle emissions 1,object position x(9),1,object position z(9);endif
if object exist(20);if object hit(9,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(9),1,object position z(9);endif;endif
if object exist(21);if object hit(9,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(9),1,object position z(9);endif;endif
if object exist(22);if object hit(9,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(9),1,object position z(9);endif;endif
if d9=1;delete object 9;endif
endif
endfunction
function shotn10()
if object exist(10);move object 10,-.05;
if object position x(10)=>20;d10=1;position particle emissions 1,object position x(10),1,object position z(10);endif
if object position x(10)=<-0;d10=1;position particle emissions 1,object position x(10),1,object position z(10);endif
if object position z(10)=>20;d10=1;position particle emissions 1,object position x(10),1,object position z(10);endif
if object position z(10)=<-0;d10=1;position particle emissions 1,object position x(10),1,object position z(10);endif
if object exist(20);if object hit(10,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(10),1,object position z(10);endif;endif
if object exist(21);if object hit(10,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(10),1,object position z(10);endif;endif
if object exist(22);if object hit(10,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(10),1,object position z(10);endif;endif
if d10=1;delete object 10;endif
endif
endfunction
function shotn11()
if object exist(11);move object 11,-.05;
if object position x(11)=>20;d11=1;position particle emissions 1,object position x(11),1,object position z(11);endif
if object position x(11)=<-0;d11=1;position particle emissions 1,object position x(11),1,object position z(11);endif
if object position z(11)=>20;d11=1;position particle emissions 1,object position x(11),1,object position z(11);endif
if object position z(11)=<-0;d11=1;position particle emissions 1,object position x(11),1,object position z(11);endif
if object exist(20);if object hit(11,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(11),1,object position z(11);endif;endif
if object exist(21);if object hit(11,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(11),1,object position z(11);endif;endif
if object exist(22);if object hit(11,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(11),1,object position z(11);endif;endif
if d11=1;delete object 11;endif
endif
endfunction
function shotn12()
if object exist(12);move object 12,-.05;
if object position x(12)=>20;d12=1;position particle emissions 1,object position x(12),1,object position z(12);endif
if object position x(12)=<-0;d12=1;position particle emissions 1,object position x(12),1,object position z(12);endif
if object position z(12)=>20;d12=1;position particle emissions 1,object position x(12),1,object position z(12);endif
if object position z(12)=<-0;d12=1;position particle emissions 1,object position x(12),1,object position z(12);endif
if object exist(20);if object hit(12,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(12),1,object position z(12);endif;endif
if object exist(21);if object hit(12,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(12),1,object position z(12);endif;endif
if object exist(22);if object hit(12,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(12),1,object position z(12);endif;endif
if d12=1;delete object 12;endif
endif
endfunction
function shotn13()
if object exist(13);move object 13,-.05;
if object position x(13)=>20;d13=1;position particle emissions 1,object position x(13),1,object position z(13);endif
if object position x(13)=<-0;d13=1;position particle emissions 1,object position x(13),1,object position z(13);endif
if object position z(13)=>20;d13=1;position particle emissions 1,object position x(13),1,object position z(13);endif
if object position z(13)=<-0;d13=1;position particle emissions 1,object position x(13),1,object position z(13);endif
if object exist(20);if object hit(13,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(13),1,object position z(13);endif;endif
if object exist(21);if object hit(13,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(13),1,object position z(13);endif;endif
if object exist(22);if object hit(13,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(13),1,object position z(13);endif;endif
if d13=1;delete object 13;endif
endif
endfunction
function shotn14()
if object exist(14);move object 14,-.05;
if object position x(14)=>20;d14=1;position particle emissions 1,object position x(14),1,object position z(14);endif
if object position x(14)=<-0;d14=1;position particle emissions 1,object position x(14),1,object position z(14);endif
if object position z(14)=>20;d14=1;position particle emissions 1,object position x(14),1,object position z(14);endif
if object position z(14)=<-0;d14=1;position particle emissions 1,object position x(14),1,object position z(14);endif
if object exist(20);if object hit(14,20);position object 20,rnd(20),.6,0;k=k+1;position particle emissions 1,object position x(14),1,object position z(14);endif;endif
if object exist(21);if object hit(14,21);position object 21,rnd(21),.6,0;k=k+1;position particle emissions 1,object position x(14),1,object position z(14);endif;endif
if object exist(22);if object hit(14,22);position object 22,rnd(20),.6,20;k=k+1;position particle emissions 1,object position x(14),1,object position z(14);endif;endif
if d14=1;delete object 14;endif
endif
endfunction


Function instructions

set text font "BankGothic Md BT":set text size 65;set text to bold:
text 100,75,"KABOOM"
set text size 20:set text to normal:line 80,75,80,320
text 100,140,"In KABOOM, your objective is to "
text 100,160,"destroy as many spheres as you can "
text 100,180,"before they reach and KILL you..."
text 100,200,"Use the arrowkeys to rotate your mounted gun"
text 100,220,"Press space to fire your gun."
text 100,300,"--press return to start--"
do:if returnkey()=1:turretcon();endif:sync:loop
endfunction

function gameover()
do
set text to bold;set text size 40
text 100,100,"GAME OVER"
set text to normal;set text size 20
text 120,150,"Your Kill count---"+str$(k)
text 120,170,"Plus You Time-----"+str$(t)
score=k*t
text 120,190,"Equals your score-"+str$(score)
text 120,220,"press return to quit"
if returnkey()=1
end
endif
sync
loop
endfunction

Daemon - Your game was fun, and it was a solid overhead fighter.

flashing snall - Your game was addicting and fun, a very good effort.

Make a memblock of the size: width*height*depth*4+12

Use write memblock dword, putting in position 0 the width, in position 4 the height, and in position 8 the depth of the image you want to make. (I always use a depth of 32)

Now to add a color to each pixel it's easiest to use
write memblock dword memblock,(ycoord*width+xcoord)*4+12,colour
Where 0,0 is the top left corner. Of course, you can use write memblock byte to change red, blue and green seperatly:

Red: write memblock byte memblock,(ycoord*width+xcoord)*4+14,colour
Green: write memblock byte memblock,(ycoord*width+xcoord)*4+13,colour
Blue: write memblock byte memblock,(ycoord*width+xcoord)*4+12,colour

To change the alpha use:
write memblock byte memblock,(ycoord*width+xcoord)*4+15,colour

Then obviously use make image from memblock and you're done.

do
`create some coordinates for line a
xa1#=rnd(500)
ya1#=rnd(500)
xa2#=rnd(500)
ya2#=rnd(500)

`draw line a
line xa1#,ya1#,xa2#,ya2#

`create some coordinates for line b
xb1#=rnd(500)
yb1#=rnd(500)
xb2#=rnd(500)
yb2#=rnd(500)

`draw line b
line xb1#,yb1#,xb2#,yb2#

`find gradient of line a
ma#=(ya2#-ya1#)/(xa2#-xa1#)

`find gradient of line b
mb#=(yb2#-yb1#)/(xb2#-xb1#)

`find x coordinate of intersection between lines a and b
xi#=(yb1#-mb#*xb1#-ya1#+ma#*xa1#)/(ma#-mb#)

`find y coordinate of intersection between lines a and b
yi#=ma#*xi#+ya1#-ma#*xa1#

`draw circle at point of intersection
circle xi#,yi#,10

text 0,0,"Press space"
wait key
cls
loop

sync on : sync rate 0

type xy

    x as integer
    y as integer

endtype

type track

    start as xy
    finish as xy
    speed as boolean
    slow as boolean
    oneway as boolean

endtype

dim lines(-1) as track
linen = -1

#constant grav 0.05
#constant PRad 6

do

    if (abs(newx-oldx) > 5 or abs(newy-oldy) > 5) and shiftkey() = 0
        oldx = newx
        oldy = newy
    endif
    newx = mousex()
    newy = mousey()
    msc = mouseclick()
    msmx = mousemovex()
    msmy = mousemovey()

    if mode
        ink rgb(255,255,0),0
        circle newx,newy,PRad
    endif

    if msc = 1
        if mode
            for n = 0 to linen
                if Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,newx-xoffset,newy-yoffset,PRad)
                    array delete element lines(n),n
                    dec linen
                    dec n
                endif
            next n
        else
            array insert at top lines(0)
            inc linen
            if controlkey()
                lines(0).finish.x = oldx-xoffset
                lines(0).finish.y = oldy-yoffset
                lines(0).start.x = newx-xoffset
                lines(0).start.y = newy-yoffset
            else
                lines(0).start.x = oldx-xoffset
                lines(0).start.y = oldy-yoffset
                lines(0).finish.x = newx-xoffset
                lines(0).finish.y = newy-yoffset
            endif
            select tool
                case 1
                    lines(0).oneway = 1
                endcase
                case 2
                    lines(0).speed = 1
                endcase
                case 3
                    lines(0).slow = 1
                endcase
            endselect
            oldx = newx
            oldy = newy
        endif
    endif

    if msc = 2
        inc xoffset,msmx
        inc yoffset,msmy
    endif

    for n = 0 to linen
        curcol = rgb(64,128,255)
        if lines(n).oneway
            curcol = rgb(255,0,0)
        endif
        if lines(n).speed
            curcol = rgb(0,255,0)
        endif
        if lines(n).slow
            curcol = rgb(255,255,0)
        endif
        ink curcol,0
        ang = int((wrapvalue(atanfull(lines(n).finish.x-lines(n).start.x,lines(n).finish.y-lines(n).start.y)+45))/90)
        if ang = 4 then ang = 0
        if ang = 0 then xo = -1 : yo = 0
        if ang = 1 then xo = 0 : yo = 1
        if ang = 2 then xo = 1 : yo = 0
        if ang = 3 then xo = 0 : yo = -1
        line lines(n).start.x+xoffset+xo,lines(n).start.y+yoffset+yo,lines(n).finish.x+xoffset+xo,lines(n).finish.y+yoffset+yo
        line lines(n).start.x+xoffset+xo*2,lines(n).start.y+yoffset+yo*2,lines(n).finish.x+xoffset+xo*2,lines(n).finish.y+yoffset+yo*2
    next n

    ink rgb(255,255,255),0
    for n = 0 to linen
        line lines(n).start.x+xoffset,lines(n).start.y+yoffset,lines(n).finish.x+xoffset,lines(n).finish.y+yoffset
    next n

    ink rgb(255,0,0),0
    circle startx+xoffset,starty+yoffset,6
    text startx+xoffset-3,starty+yoffset-7,"S"

    text 0,0,"Press 's' to position the starting point at the mouse position."
    text 0,18,"Press 'e' to toggle the erasor on and off."
    text 0,36,"Press '1','2','3' or '4' for: Normal, One-way, Speed up and Slow down lines."
    text 0,54,"Press shift when mouse is at start of line, and click when mouse is at the end of the line"
    text 0,72,"to draw straight lines. Keep shift held down to produce a series of straight lines."
    text 0,90,"Hold control while drawing to invert line."
    text 0,108,"R-click and drag to scroll around. L-Click draws."
    text 0,126,"Press 'p' to play."

    sync

    if inkey$() = "e"
        mode = (not mode)
        repeat
            sync
        until inkey$() = ""
    endif

    if inkey$() = "1"
        tool = 0
    endif
    if inkey$() = "2"
        tool = 1
    endif
    if inkey$() = "3"
        tool = 2
    endif
    if inkey$() = "4"
        tool = 3
    endif

    cls 0

    if inkey$() = "p"
        gosub play
    endif

    if inkey$() = "s"
        startx = newx-xoffset
        starty = newy-yoffset
    endif

loop

play:

repeat
    sync
until inkey$() = ""

xpos# = startx
ypos# = starty

do

    start = timer()

    ink rgb(255,255,255),0
    for n = 0 to linen
        line lines(n).start.x-xpos#+512,lines(n).start.y-ypos#+384,lines(n).finish.x-xpos#+512,lines(n).finish.y-ypos#+384
    next n
    
    text 0,0,str$(screen fps())

    ink rgb(0,255,255),0
`    circle xpos#+xpos#,ypos#+ypos#,PRad
    circle 512,384,PRad

    rem PHYSICS
    inc ymo#,grav
    oldxp# = xpos#
    oldyp# = ypos#
    inc xpos#,xmo#
    inc ypos#,ymo#
    for n = 0 to linen
        if Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,xpos#,ypos#,PRad)
            ang# = atanfull(lines(n).finish.x-lines(n).start.x,lines(n).finish.y-lines(n).start.y)
            if lines(n).oneway
                inc xpos#,sin(ang#)*0.8
                inc ypos#,cos(ang#)*0.8
            endif
            if lines(n).speed
                inc xpos#,xmo#*0.2
                inc ypos#,ymo#*0.2
            endif
            if lines(n).slow
                dec xpos#,xmo#*0.2
                dec ypos#,ymo#*0.2
            endif
            xoff# = sin(ang#-90)
            yoff# = cos(ang#-90)
 `           yoff# = abs(yoff#)
            repeat
                dec xpos#,xoff#
                dec ypos#,yoff#
            until Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,xpos#,ypos#,PRad) = 0
        endif
    next n
    xmo# = (xpos#-oldxp#)*0.997
    ymo# = (ypos#-oldyp#)*0.997
    rem Its safe to read again now!!!

    text 0,0,"Press 'p' to pause."
    text 0,18,"Press 'q' to return to editor."

    sync

    if inkey$() = "p"
        repeat
            sync
        until inkey$() = ""
        repeat
            sync
        until inkey$() = "p"
        repeat
            sync
        until inkey$() = ""
    endif

    cls 0

    if inkey$() = "q"
        xmo# = 0
        ymo# = 0
        exit
    endif

    while timer() < start+10
    endwhile

loop

return

Function Line_Intersect_Circle(x1#,y1#,x2#,y2#,cx#,cy#,Radius#)

      ` Calc Closest Point to circle center

       dx31#=cx#-x1#
      dx21#=x2#-x1#

      dy31#=cy#-y1#
        dy21#=y2#-y1#

      d#=((dx21#*dx21#)+(dy21#*dy21#))

      if d#<>0 then  d#=((dx31#*dx21#)+(dy31#*dy21#))/d#

      ` Clip to the line segments legal bounds
      if d#<0.0 then d#=0
      if d#>1.0 then d#=1

         dx#=cx#-(x1#+(dx21#*d#))
         dy#=cy#-(y1#+(dy21#*d#))
         if Radius#=>sqrt((dx#*dx#)+(dy#*dy#))
               ` Line intersects circle
               exitfunction 1
         endif
EndFunction 0

sync on : sync rate 0

type xy

    x as integer
    y as integer

endtype

type track

    start as xy
    finish as xy
    speed as boolean
    slow as boolean
    oneway as boolean

endtype

dim lines(-1) as track
linen = -1

#constant grav 0.05
#constant PRad 6

do

    if (abs(newx-oldx) > 5 or abs(newy-oldy) > 5) and shiftkey() = 0
        oldx = newx
        oldy = newy
    endif
    newx = mousex()
    newy = mousey()
    msc = mouseclick()
    msmx = mousemovex()
    msmy = mousemovey()

    if mode
        ink rgb(255,255,0),0
        circle newx,newy,PRad
    endif

    if msc = 1
        if mode
            for n = 0 to linen
                if Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,newx-xoffset,newy-yoffset,PRad)
                    array delete element lines(n),n
                    dec linen
                    dec n
                endif
            next n
        else
            array insert at top lines(0)
            inc linen
            if controlkey()
                lines(0).finish.x = oldx-xoffset
                lines(0).finish.y = oldy-yoffset
                lines(0).start.x = newx-xoffset
                lines(0).start.y = newy-yoffset
            else
                lines(0).start.x = oldx-xoffset
                lines(0).start.y = oldy-yoffset
                lines(0).finish.x = newx-xoffset
                lines(0).finish.y = newy-yoffset
            endif
            select tool
                case 1
                    lines(0).oneway = 1
                endcase
                case 2
                    lines(0).speed = 1
                endcase
                case 3
                    lines(0).slow = 1
                endcase
            endselect
            oldx = newx
            oldy = newy
        endif
    endif

    if msc = 2
        inc xoffset,msmx
        inc yoffset,msmy
    endif

    for n = 0 to linen
        curcol = rgb(64,128,255)
        if lines(n).oneway
            curcol = rgb(255,0,0)
        endif
        if lines(n).speed
            curcol = rgb(0,255,0)
        endif
        if lines(n).slow
            curcol = rgb(255,255,0)
        endif
        ink curcol,0
        ang = int((wrapvalue(atanfull(lines(n).finish.x-lines(n).start.x,lines(n).finish.y-lines(n).start.y)+45))/90)
        if ang = 4 then ang = 0
        if ang = 0 then xo = -1 : yo = 0
        if ang = 1 then xo = 0 : yo = 1
        if ang = 2 then xo = 1 : yo = 0
        if ang = 3 then xo = 0 : yo = -1
        line lines(n).start.x+xoffset+xo,lines(n).start.y+yoffset+yo,lines(n).finish.x+xoffset+xo,lines(n).finish.y+yoffset+yo
        line lines(n).start.x+xoffset+xo*2,lines(n).start.y+yoffset+yo*2,lines(n).finish.x+xoffset+xo*2,lines(n).finish.y+yoffset+yo*2
    next n

    ink rgb(255,255,255),0
    for n = 0 to linen
        line lines(n).start.x+xoffset,lines(n).start.y+yoffset,lines(n).finish.x+xoffset,lines(n).finish.y+yoffset
    next n

    ink rgb(255,0,0),0
    circle startx+xoffset,starty+yoffset,6
    text startx+xoffset-3,starty+yoffset-7,"S"

    text 0,0,"Press 's' to position the starting point at the mouse position."
    text 0,18,"Press 'e' to toggle the erasor on and off."
    text 0,36,"Press '1','2','3' or '4' for: Normal, One-way, Speed up and Slow down lines."
    text 0,54,"Press shift when mouse is at start of line, and click when mouse is at the end of the line"
    text 0,72,"to draw straight lines. Keep shift held down to produce a series of straight lines."
    text 0,90,"Hold control while drawing to invert line."
    text 0,108,"R-click and drag to scroll around. L-Click draws."
    text 0,126,"Press 'p' to play."

    sync

    if inkey$() = "e"
        mode = (not mode)
        repeat
            sync
        until inkey$() = ""
    endif

    if inkey$() = "1"
        tool = 0
    endif
    if inkey$() = "2"
        tool = 1
    endif
    if inkey$() = "3"
        tool = 2
    endif
    if inkey$() = "4"
        tool = 3
    endif

    cls 0

    if inkey$() = "p"
        gosub play
    endif

    if inkey$() = "s"
        startx = newx-xoffset
        starty = newy-yoffset
    endif

loop

play:

repeat
    sync
until inkey$() = ""

xpos# = startx
ypos# = starty

do

    start = timer()

    ink rgb(255,255,255),0
    for n = 0 to linen
        line lines(n).start.x-xpos#+512,lines(n).start.y-ypos#+384,lines(n).finish.x-xpos#+512,lines(n).finish.y-ypos#+384
    next n
    
    text 0,0,str$(screen fps())

    ink rgb(0,255,255),0
`    circle xpos#+xpos#,ypos#+ypos#,PRad
    circle 512,384,PRad

    rem PHYSICS
    inc ymo#,grav
    oldxp# = xpos#
    oldyp# = ypos#

    phys = int(sqrt(xmo#*xmo#+ymo#*ymo#)/10)+1
    fraction# = 1.0/phys

    for phy = 1 to phys
        inc xpos#,xmo#*fraction#
        inc ypos#,ymo#*fraction#
        for n = 0 to linen
            if Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,xpos#,ypos#,PRad)
                ang# = atanfull(lines(n).finish.x-lines(n).start.x,lines(n).finish.y-lines(n).start.y)
                if lines(n).oneway
                    inc xpos#,sin(ang#)*0.8
                    inc ypos#,cos(ang#)*0.8
                endif
                if lines(n).speed
                    inc xpos#,xmo#*0.2
                    inc ypos#,ymo#*0.2
                endif
                if lines(n).slow
                    dec xpos#,xmo#*0.2
                    dec ypos#,ymo#*0.2
                endif
                xoff# = sin(ang#-90)
                yoff# = cos(ang#-90)
     `           yoff# = abs(yoff#)
                repeat
                    dec xpos#,xoff#
                    dec ypos#,yoff#
                until Line_Intersect_Circle(lines(n).start.x,lines(n).start.y,lines(n).finish.x,lines(n).finish.y,xpos#,ypos#,PRad) = 0
            endif
        next n
    next phy
    xmo# = (xpos#-oldxp#)*0.997
    ymo# = (ypos#-oldyp#)*0.997
    rem Its safe to read again now!!!

    text 0,0,"Press 'p' to pause."
    text 0,18,"Press 'q' to return to editor."

    sync

    if inkey$() = "p"
        repeat
            sync
        until inkey$() = ""
        repeat
            sync
        until inkey$() = "p"
        repeat
            sync
        until inkey$() = ""
    endif

    cls 0

    if inkey$() = "q"
        xmo# = 0
        ymo# = 0
        exit
    endif

    while timer() < start+10
    endwhile

loop

return

Function Line_Intersect_Circle(x1#,y1#,x2#,y2#,cx#,cy#,Radius#)

      ` Calc Closest Point to circle center

       dx31#=cx#-x1#
      dx21#=x2#-x1#

      dy31#=cy#-y1#
        dy21#=y2#-y1#

      d#=((dx21#*dx21#)+(dy21#*dy21#))

      if d#<>0 then  d#=((dx31#*dx21#)+(dy31#*dy21#))/d#

      ` Clip to the line segments legal bounds
      if d#<0.0 then d#=0
      if d#>1.0 then d#=1

         dx#=cx#-(x1#+(dx21#*d#))
         dy#=cy#-(y1#+(dy21#*d#))
         if Radius#=>sqrt((dx#*dx#)+(dy#*dy#))
               ` Line intersects circle
               exitfunction 1
         endif
EndFunction 0

do
`create some coordinates for line a
xa1#=rnd(500)
ya1#=rnd(500)
xa2#=rnd(500)
ya2#=rnd(500)

`draw line a
line xa1#,ya1#,xa2#,ya2#

`create some coordinates for line b
xb1#=rnd(500)
yb1#=rnd(500)
xb2#=rnd(500)
yb2#=rnd(500)

`draw line b
line xb1#,yb1#,xb2#,yb2#

`find gradient of line a
ma#=(ya2#-ya1#)/(xa2#-xa1#)

`find gradient of line b
mb#=(yb2#-yb1#)/(xb2#-xb1#)

`find x coordinate of intersection between lines a and b
xi#=(yb1#-mb#*xb1#-ya1#+ma#*xa1#)/(ma#-mb#)

`find y coordinate of intersection between lines a and b
yi#=ma#*xi#+ya1#-ma#*xa1#

`my bit
`switch parameters so 1<2 and 3<4
if xa1#>xa2# then i=xa2#:xa2#=xa1#:xa1#=i 
if xb1#>xb2# then i=xb2#:xb2#=xb1#:xb1#=i 
if ya1#>ya2# then i=ya2#:ya2#=ya1#:ya1#=i 
if yb1#>yb2# then i=yb2#:yb2#=yb1#:yb1#=i
  
if (xi#>xa1#) AND (xi#<xa2#) AND (yi#>ya1#) AND (yi#<ya2#)
  if (xi#>xb1#) AND (xi#<xb2#) AND (yi#>yb1#) AND (yi#<yb2#)
    `draw circle at point of intersection
    circle xi#,yi#,10
    text 0,15,"Intersect found!"
  endif
endif

`end my bit

text 0,0,"Press space"
wait key
cls
loop