Sorry your browser is not supported!

`-------------------------------------------------------------------------------------------------
`    Space Trading Game, DBpro Community Project V, Started 3-24-07
`    Contributers: Hobgoblin Lord, Ric, *ADD NAME HERE* :)
`-------------------------------------------------------------------------------------------------

sync on
set display mode 800,600,32

`-------------------------------------------------------------------------------------------------
` Game Constants
`-------------------------------------------------------------------------------------------------

#CONSTANT SWIDTH=800
#CONSTANT SHEIGHT=600
#CONSTANT EASY_START=100000
#CONSTANT NORMAL_START=50000
#CONSTANT HARD_START=25000
#CONSTANT HUMAN_PLAYER=0
#CONSTANT COMPUTER_PLAYER=1
#CONSTANT BASE_SECTORS=99
#CONSTANT SUB_SECTOR=4 `This number squared to define number of SubSectors in a sector so 4=16
#CONSTANT MAX_PLANETS_PER_SECTOR = 40
#CONSTANT MIN_PLANETS_PER_SECTOR = 25

`AI TYPES, can add more
#CONSTANT WARLORD=0
#CONSTANT TRADER=1
#CONSTANT MIXED=2

`Planet Definitions
#CONSTANT NUMBER_PLANET_TYPES=7
#CONSTANT GAS_GIANT=0
#CONSTANT DESERT=1
#CONSTANT EARTH_LIKE=2
#CONSTANT VOLCANIC=3
#CONSTANT OCEAN=4
#CONSTANT ICE=5
#CONSTANT ASTEROID=6

`-------------------------------------------------------------------------------------------------
` Structures
`-------------------------------------------------------------------------------------------------

type SHIP_CLASS ` Alot more to add to this type I am sure
   `---Set Variables
   Name as String
   Image as Integer
   Weapon_Name as String
   Weapon_Damage as Integer
   MAX_CARGO as Integer
   MAX_PASSENGERS as Integer
   MAX_FUEL as Integer
   MAX_HULL as Integer
   MAX_AMMO as Integer
   SPEED as Integer
   `---Ship Status
   Cargo as Integer
   Passengers as Integer
   Fuel as Integer
   Hull as Integer
   Ammo as Integer
endtype

type COMMODITY
   Name as string
   MAX_VALUE as Integer
   MIN_VALUE as Integer
   Image as integer
   Class as string `defines if the commodity is a mineral, food, etc
endtype

type PLANET_OBJECT
   Name as String
   Image as Integer
   Population as Integer
   Tourism as Integer
   Xpos as Integer
   Ypos as Integer
   Class as Integer
   Size as Integer
   Tech_Level as Integer
   `---Define the planets production and needs
   Mineral_Need as Integer
   Mineral_Production as Integer
   Food_Need as Integer
   Food_Production as Integer
   Animal_Need as Integer
   Animal_Production as Integer
   Luxury_Need as Integer
   Luxury_Production as Integer
endtype

Type PARTICIPANT `more to be added here
   Class as Integer `Is player Human or computer
   Name as String
   Goal as INTEGER ` if an AI Player, what is their AI style
   Cash as Integer
   Ship as SHIP_CLASS
endtype

Type PLANETARY_CLASS
   Name as String
   Min_Diameter as integer
   Max_Diameter as Integer
   Habitation_Chance as Integer
endtype


`-----------------------------------------------------------------------------------------------
` Game Variables
`-----------------------------------------------------------------------------------------------
Dim Player(-1) as PARTICIPANT
Dim Planet(-1) as PLANET_OBJECT
Dim Goods(-1) as COMMODITY
Dim Vowels(4) as string
Dim Vowel_combos(3) as string
Dim Consonants(20) as string
Dim Consonant_combos(11) as string
Dim Sector_Seed(BASE_SECTORS) as dword
Dim Planet_Class(NUMBER_PLANET_TYPES-1) as PLANETARY_CLASS

`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------
Set_Alphabet()
Set_Planet_Classes()
Seed_Sectors()

`-----------------------------------------------------------------------------------------------
` GAME SETUP
`-----------------------------------------------------------------------------------------------
MAKE_SECTOR(Sector_Seed(0))

`-----------------------------------------------------------------------------------------------
` MAIN GAME LOOP
`-----------------------------------------------------------------------------------------------
repeat
   TEMP_FUNCTION()
   sync
until GAME_OVER=1

end `for now just end program after game is done

`-----------------------------------------------------------------------------------------------
` FUNCTIONS
`-----------------------------------------------------------------------------------------------
function Set_Alphabet()
   for a = 0 to 4
      read vowels(a)
   next a

   for a=0 to 3
     read vowel_combos(a)
   next a

   for a = 0 to 20
      read consonants(a)
   next a

   for a = 0 to 11
      read consonant_combos(a)
   next a
endfunction

function Seed_Sectors()
   randomize 5000 `random yet constant
   for a = 0 to BASE_SECTORS
      Sector_Seed(a)=rnd(255)*rnd(255)*rnd(255)+1
   next a
endfunction

function Make_Sector(Seed as dword)
   randomize Seed
   Number_Planets=rnd(MAX_PLANETS_PER_SECTOR)
   if Number_Planets<MIN_PLANETS_PER_SECTOR then Number_Planets=MIN_PLANETS_PER_SECTOR
   Sector_Base_Technology=rnd(7)
   for a = 1 to NUMBER_PLANETS
      array insert at top Planet()
      Planet(0).Name=GET_PLANET_NAME()
      Planet(0).Class=rnd(NUMBER_PLANET_TYPES-1)
      Planet(0).Tech_Level=Sector_Base_Technology+rnd(3)`Most planets in the sector should be close in tech level
      Planet(0).Size=(rnd(Planet_Class(Planet(0).Class).Max_Diameter-Planet_Class(Planet(0).Class).Min_Diameter)+Planet_Class(Planet(0).Class).Min_Diameter)*1000
      if rnd(100)<Planet_Class(Planet(0).Class).Habitation_Chance
         Population_Density=rnd(10000)
         Planet(0).Population=(Population_Density*Planet(0).Size)
      endif

   next a
endfunction

function GET_PLANET_NAME()
   Number_Letters=rnd(4)+3
   temp$=""
   alternate=rnd(1)
   for a = 1 to Number_Letters
      if alternate=0
         if rnd(3)=0
           temp$=temp$+vowel_combos(rnd(3))
         else
           temp$=temp$+vowels(rnd(4))
         endif
         if alternate=0 then alternate=1 else alternate=0
      else
         if rnd(1)=0 and a<Number_Letters
            temp$=temp$+consonant_combos(rnd(11))
         else
            temp$=temp$+consonants(rnd(20))
         endif
         if alternate=0 then alternate=1 else alternate=0
      endif
   next a
   temp$=UPPER$(left$(temp$,1))+right$(temp$,len(temp$)-1)
endfunction temp$

function Set_Planet_Classes()
   for a = 0 to NUMBER_PLANET_TYPES-1
      read Planet_Class(a).name
      read Planet_Class(a).Min_Diameter
      read Planet_Class(a).Max_Diameter
      read Planet_Class(a).Habitation_Chance
   next a
endfunction

function TEMP_FUNCTION()
   cls
   for a = 0 to array count(Planet())
      print Planet(a).Name+" - "+Planet_Class(Planet(a).Class).name+" - "+str$(Planet(a).Size)+"km"+" - Tech Level:"+str$(Planet(a).Tech_Level)+" - Population:"+str$(Planet(a).Population)
   next a
endfunction


`-----------------------------------------------------------------------------------------------
`   DATA
`-----------------------------------------------------------------------------------------------
` Name Seeds
Data "a","e","i","o","u"
Data "oo","oa","ee","ia"
Data "b","c","d","f","g","h","j","k","l","m","n","p","qu","r","s","t","v","w","x","y","z"
Data "st","th","ph","pr","ch","cl","tr","spl","str","fl","bl","br"

`Planet Classes (CLASS, MIN DIAMETER, MAX DIAMETER, CHANCE INHABITED)
Data "Gas Giant",100,220,2
Data "Desert",20,60,20
Data "M Class",20,65,75
Data "Volcanic",10,60,18
Data "Oceanic",15,40,35
Data "Ice World",5,35,12
Data "Asteroid",1,10,5

`-------------------------------------------------------------------------------------------------
`    Space Trading Game, DBpro Community Project V, Started 3-24-07
`    Contributers: Hobgoblin Lord, Ric, *ADD NAME HERE* :)
`-------------------------------------------------------------------------------------------------

sync on
set display mode 800,600,32
color backdrop 0
autocam off

`-------------------------------------------------------------------------------------------------
` Game Constants
`-------------------------------------------------------------------------------------------------

#CONSTANT SWIDTH=800
#CONSTANT SHEIGHT=600
#CONSTANT EASY_START=100000
#CONSTANT NORMAL_START=50000
#CONSTANT HARD_START=25000
#CONSTANT HUMAN_PLAYER=0
#CONSTANT COMPUTER_PLAYER=1
#CONSTANT BASE_SECTORS=99
#CONSTANT SUB_SECTOR=4 `This number squared to define number of SubSectors in a sector so 4=16
#CONSTANT MAX_PLANETS_PER_SECTOR = 40
#CONSTANT MIN_PLANETS_PER_SECTOR = 25

`AI TYPES, can add more
#CONSTANT WARLORD=0
#CONSTANT TRADER=1
#CONSTANT MIXED=2
#CONSTANT number_of_ships=warlord+trader+mixed

`Planet Definitions
#CONSTANT NUMBER_PLANET_TYPES=7
#CONSTANT GAS_GIANT=0
#CONSTANT DESERT=1
#CONSTANT EARTH_LIKE=2
#CONSTANT VOLCANIC=3
#CONSTANT OCEAN=4
#CONSTANT ICE=5
#CONSTANT ASTEROID=6

`-------------------------------------------------------------------------------------------------
` Structures
`-------------------------------------------------------------------------------------------------

type SHIP_CLASS ` Alot more to add to this type I am sure
   `---Set Variables
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   Weapon_Name as String
   Weapon_Damage as Integer
   MAX_CARGO as Integer
   MAX_PASSENGERS as Integer
   MAX_FUEL as Integer
   MAX_HULL as Integer
   MAX_AMMO as Integer
   SPEED as Integer
   `---Ship Status
   Cargo as Integer
   Passengers as Integer
   Fuel as Integer
   Hull as Integer
   Ammo as Integer
   Docked as integer
   Destination as string
endtype

type COMMODITY
   Name as string
   MAX_VALUE as Integer
   MIN_VALUE as Integer
   Image as integer
   Class as string `defines if the commodity is a mineral, food, etc
endtype

type PLANET_OBJECT
   Name as String
   Image as Integer
   Population as Integer
   Tourism as Integer
   Xpos as Integer
   Ypos as Integer
   Class as Integer
   Size as Integer
   Tech_Level as Integer
   `---Define the planets production and needs
   Mineral_Need as Integer
   Mineral_Production as Integer
   Food_Need as Integer
   Food_Production as Integer
   Animal_Need as Integer
   Animal_Production as Integer
   Luxury_Need as Integer
   Luxury_Production as Integer
endtype

Type PARTICIPANT `more to be added here
   Class as Integer `Is player Human or computer
   Name as String
   Goal as INTEGER ` if an AI Player, what is their AI style
   Cash as Integer
   `Ship as SHIP_CLASS 
   `sorry HL, never been able to get my head around this - added 'human' to ship_class for my simple brain!
endtype

Type PLANETARY_CLASS
   Name as String
   Min_Diameter as integer
   Max_Diameter as Integer
   Habitation_Chance as Integer
endtype


`-----------------------------------------------------------------------------------------------
` Game Variables
`-----------------------------------------------------------------------------------------------
Dim Player(-1) as PARTICIPANT
Dim Planet(-1) as PLANET_OBJECT
Dim Goods(-1) as COMMODITY
Dim Vowels(4) as string
Dim Vowel_combos(3) as string
Dim Consonants(20) as string
Dim Consonant_combos(11) as string
Dim Sector_Seed(BASE_SECTORS) as dword
Dim Planet_Class(NUMBER_PLANET_TYPES-1) as PLANETARY_CLASS
Dim ship(-1) as ship_class







`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------
Set_Alphabet()
Set_Planet_Classes()
Seed_Sectors()
make_ships(number_of_ships)

`-----------------------------------------------------------------------------------------------
` GAME SETUP
`-----------------------------------------------------------------------------------------------
MAKE_SECTOR(Sector_Seed(0))

`-----------------------------------------------------------------------------------------------
` MAIN GAME LOOP
`-----------------------------------------------------------------------------------------------
repeat
   TEMP_FUNCTION()
   move_ships(number_of_ships)
   sync
until GAME_OVER=1

end `for now just end program after game is done

`-----------------------------------------------------------------------------------------------
` FUNCTIONS
`-----------------------------------------------------------------------------------------------
function Set_Alphabet()
   for a = 0 to 4
      read vowels(a)
   next a

   for a=0 to 3
     read vowel_combos(a)
   next a

   for a = 0 to 20
      read consonants(a)
   next a

   for a = 0 to 11
      read consonant_combos(a)
   next a
endfunction

function Seed_Sectors()
   randomize 5000 `random yet constant
   for a = 0 to BASE_SECTORS
      Sector_Seed(a)=rnd(255)*rnd(255)*rnd(255)+1
   next a
endfunction

function Make_Sector(Seed as dword)
   randomize Seed
   Number_Planets=rnd(MAX_PLANETS_PER_SECTOR)
   if Number_Planets<MIN_PLANETS_PER_SECTOR then Number_Planets=MIN_PLANETS_PER_SECTOR
   Sector_Base_Technology=rnd(7)
   for a = 1 to NUMBER_PLANETS
      array insert at top Planet()
      Planet(0).Name=GET_PLANET_NAME()
      Planet(0).Class=rnd(NUMBER_PLANET_TYPES-1)
      Planet(0).Tech_Level=Sector_Base_Technology+rnd(3)`Most planets in the sector should be close in tech level
      Planet(0).Size=(rnd(Planet_Class(Planet(0).Class).Max_Diameter-Planet_Class(Planet(0).Class).Min_Diameter)+Planet_Class(Planet(0).Class).Min_Diameter)*1000
      if rnd(100)<Planet_Class(Planet(0).Class).Habitation_Chance
         Population_Density=rnd(10000)
         Planet(0).Population=(Population_Density*Planet(0).Size)
      endif

   next a
endfunction

function GET_PLANET_NAME()
   Number_Letters=rnd(4)+3
   temp$=""
   alternate=rnd(1)
   for a = 1 to Number_Letters
      if alternate=0
         if rnd(3)=0
           temp$=temp$+vowel_combos(rnd(3))
         else
           temp$=temp$+vowels(rnd(4))
         endif
         if alternate=0 then alternate=1 else alternate=0
      else
         if rnd(1)=0 and a<Number_Letters
            temp$=temp$+consonant_combos(rnd(11))
         else
            temp$=temp$+consonants(rnd(20))
         endif
         if alternate=0 then alternate=1 else alternate=0
      endif
   next a
   temp$=UPPER$(left$(temp$,1))+right$(temp$,len(temp$)-1)
endfunction temp$

function Set_Planet_Classes()
   for a = 0 to NUMBER_PLANET_TYPES-1
      read Planet_Class(a).name
      read Planet_Class(a).Min_Diameter
      read Planet_Class(a).Max_Diameter
      read Planet_Class(a).Habitation_Chance
   next a
endfunction

function TEMP_FUNCTION()
   cls
   for a = 0 to array count(Planet())
      print Planet(a).Name+" - "+Planet_Class(Planet(a).Class).name+" - "+str$(Planet(a).Size)+"km"+" - Tech Level:"+str$(Planet(a).Tech_Level)+" - Population:"+str$(Planet(a).Population)
   next a
endfunction

function make_ships(number_of_ships)
   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      make object box ship(n).objectnumber,5,2,10
   next n
endfunction

function move_ships(number_of_ships)
   for n=1 to number_of_ships
     if ship(n).human=1
       `keyboard control system
     endif
   next n
endfunction

function move_camera(camera_mode,shipnumber)

object=ship(shipnumber).objectnumber

endfunction


function free_object()
   repeat
     inc n
   until object exist(n)=0
endfunction n
`-----------------------------------------------------------------------------------------------
`   DATA
`-----------------------------------------------------------------------------------------------
` Name Seeds
Data "a","e","i","o","u"
Data "oo","oa","ee","ia"
Data "b","c","d","f","g","h","j","k","l","m","n","p","qu","r","s","t","v","w","x","y","z"
Data "st","th","ph","pr","ch","cl","tr","spl","str","fl","bl","br"

`Planet Classes (CLASS, MIN DIAMETER, MAX DIAMETER, CHANCE INHABITED)
Data "Gas Giant",100,220,2
Data "Desert",20,60,20
Data "M Class",20,65,75
Data "Volcanic",10,60,18
Data "Oceanic",15,40,35
Data "Ice World",5,35,12
Data "Asteroid",1,10,5

sync on
set display mode 800,600,32
randomize 5000

type planet
   xpos as integer
   ypos as integer
   distance as integer
   rotation as float
   size as integer
endtype

dim body(8) as planet
Orbit_distance=60
for a = 0 to 8
   orbit_point=rnd(360)
   body(a).rotation=orbit_point
   body(a).size=rnd(17)+3
   inc Orbit_distance,body(a).size+rnd(15)
   body(a).distance=orbit_distance
   body(a).xpos=400+sin(orbit_point)*Orbit_Distance
   body(a).ypos=300+cos(orbit_point)*Orbit_Distance
   inc Orbit_distance,body(a).size/2
next a

do
   cls
   ink rgb(255,100,100),0
   for a = 0 to 40
      circle 400,300,a
   next a
   ink rgb(255,255,255),0

   for a = 0 to 8
      new_rot#=(400.0-Body(a).distance)/10000.0
      inc body(a).rotation,new_rot#
      if body(a).rotation>360.0 then body(a).rotation=body(a).rotation-360.0
      body(a).xpos=400+sin(body(a).rotation)*body(a).distance
      body(a).ypos=300+cos(body(a).rotation)*body(a).distance

      distance=sqrt((abs(body(a).xpos-400)^2)+(abs(body(a).ypos-300)^2))
      circle 400,300,body(a).distance
      mx=mousex():my=mousey()
      mouse_distance=sqrt((abs(body(a).xpos-mx)^2)+(abs(body(a).ypos-my)^2))
      if mouse_distance<=body(a).size
         ink rgb(255,0,0),0
      else
         ink rgb(255,255,255),0
      endif

      for b = body(a).size to 0 step -1
         circle body(a).xpos,body(a).ypos,b
      next b
      ink rgb(255,255,255),0

   next a
   sync
loop

`-------------------------------------------------------------------------------------------------
`    Space Trading Game, DBpro Community Project V, Started 3-24-07
`    Contributers: Hobgoblin Lord, Ric, *ADD NAME HERE* :)
`-------------------------------------------------------------------------------------------------

sync on
sync rate 60
set display mode 800,600,32
color backdrop 0
autocam off
position camera 0,0,-500

`-------------------------------------------------------------------------------------------------
` Game Constants
`-------------------------------------------------------------------------------------------------

#CONSTANT SWIDTH=800
#CONSTANT SHEIGHT=600
#CONSTANT EASY_START=100000
#CONSTANT NORMAL_START=50000
#CONSTANT HARD_START=25000
#CONSTANT HUMAN_PLAYER=0
#CONSTANT COMPUTER_PLAYER=1
#CONSTANT BASE_SECTORS=99
#CONSTANT SUB_SECTOR=4 `This number squared to define number of SubSectors in a sector so 4=16
#CONSTANT MAX_PLANETS_PER_SECTOR = 40
#CONSTANT MIN_PLANETS_PER_SECTOR = 25

`AI TYPES, can add more
#CONSTANT WARLORD=0
#CONSTANT TRADER=30
#CONSTANT MIXED=2


`Planet Definitions
#CONSTANT NUMBER_PLANET_TYPES=7
#CONSTANT GAS_GIANT=0
#CONSTANT DESERT=1
#CONSTANT EARTH_LIKE=2
#CONSTANT VOLCANIC=3
#CONSTANT OCEAN=4
#CONSTANT ICE=5
#CONSTANT ASTEROID=6


`-------------------------------------------------------------------------------------------------
` Structures
`-------------------------------------------------------------------------------------------------

type SHIP_CLASS ` Alot more to add to this type I am sure
   `---Set Variables
   objectnumber as integer
   Human as integer `0 for computer, >0 for human player
   Name as String
   Image as Integer
   Weapon_Name as String
   Weapon_Damage as Integer
   MAX_CARGO as Integer
   MAX_PASSENGERS as Integer
   MAX_FUEL as Integer
   MAX_HULL as Integer
   MAX_AMMO as Integer
   velocity as float
   acceleration as float
   maxvelocity as float
   camdistance as float
   
   `---Ship Status
   Cargo as Integer
   Passengers as Integer
   Fuel as Integer
   Hull as Integer
   Ammo as Integer
   Docked as integer
   Destination as string
endtype

type COMMODITY
   Name as string
   MAX_VALUE as Integer
   MIN_VALUE as Integer
   Image as integer
   Class as string `defines if the commodity is a mineral, food, etc
endtype

type PLANET_OBJECT
   Name as String
   Image as Integer
   Population as Integer
   Tourism as Integer
   Xpos as Integer
   Ypos as Integer
   Class as Integer
   Size as Integer
   Tech_Level as Integer
   `---Define the planets production and needs
   Mineral_Need as Integer
   Mineral_Production as Integer
   Food_Need as Integer
   Food_Production as Integer
   Animal_Need as Integer
   Animal_Production as Integer
   Luxury_Need as Integer
   Luxury_Production as Integer
endtype

Type PARTICIPANT `more to be added here
   Class as Integer `Is player Human or computer
   Name as String
   Goal as INTEGER ` if an AI Player, what is their AI style
   Cash as Integer
   `Ship as SHIP_CLASS 
   `sorry HL, couldn't get my simple brain around this - I've added 'human' to ship_class, and kept ship class separate from participant class.  Ric.
   endtype

Type PLANETARY_CLASS
   Name as String
   Min_Diameter as integer
   Max_Diameter as Integer
   Habitation_Chance as Integer
endtype


`-----------------------------------------------------------------------------------------------
` Game Variables
`-----------------------------------------------------------------------------------------------
Dim Player(-1) as PARTICIPANT
Dim Planet(-1) as PLANET_OBJECT
Dim Goods(-1) as COMMODITY
Dim Vowels(4) as string
Dim Vowel_combos(3) as string
Dim Consonants(20) as string
Dim Consonant_combos(11) as string
Dim Sector_Seed(BASE_SECTORS) as dword
Dim Planet_Class(NUMBER_PLANET_TYPES-1) as PLANETARY_CLASS
Dim ship(0) as ship_class

GLOBAL camera_on_ship=1 `initial ship camera will follow
GLOBAL number_of_ships
number_of_ships=warlord+trader+mixed+1
GLOBAL cam_mode=2 `set camera to chase-cam mode
GLOBAL keypress



`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------
Set_Alphabet()
Set_Planet_Classes()
Seed_Sectors()
make_ships(number_of_ships)

`-----------------------------------------------------------------------------------------------
` GAME SETUP
`-----------------------------------------------------------------------------------------------
MAKE_SECTOR(Sector_Seed(0))

`-----------------------------------------------------------------------------------------------
` MAIN GAME LOOP
`-----------------------------------------------------------------------------------------------
main_loop:
   TEMP_FUNCTION1() `called once
repeat
   TEMP_FUNCTION2() `called each loop
   control_ships(number_of_ships)
   move_ships(number_of_ships)
   control_camera(cam_mode,camera_on_ship)
   starfield(ship(camera_on_ship).velocity)
   
   if scancode()=0 then keypress=0
   sync
until GAME_OVER=1

end `for now just end program after game is done

`-----------------------------------------------------------------------------------------------
` FUNCTIONS
`-----------------------------------------------------------------------------------------------
function Set_Alphabet()
   for a = 0 to 4
      read vowels(a)
   next a

   for a=0 to 3
     read vowel_combos(a)
   next a

   for a = 0 to 20
      read consonants(a)
   next a

   for a = 0 to 11
      read consonant_combos(a)
   next a
endfunction

function Seed_Sectors()
   randomize 5000 `random yet constant
   for a = 0 to BASE_SECTORS
      Sector_Seed(a)=rnd(255)*rnd(255)*rnd(255)+1
   next a
endfunction

function Make_Sector(Seed as dword)
   randomize Seed
   Number_Planets=rnd(MAX_PLANETS_PER_SECTOR)
   if Number_Planets<MIN_PLANETS_PER_SECTOR then Number_Planets=MIN_PLANETS_PER_SECTOR
   Sector_Base_Technology=rnd(7)
   for a = 1 to NUMBER_PLANETS
      array insert at top Planet()
      Planet(0).Name=GET_PLANET_NAME()
      Planet(0).Class=rnd(NUMBER_PLANET_TYPES-1)
      Planet(0).Tech_Level=Sector_Base_Technology+rnd(3)`Most planets in the sector should be close in tech level
      Planet(0).Size=(rnd(Planet_Class(Planet(0).Class).Max_Diameter-Planet_Class(Planet(0).Class).Min_Diameter)+Planet_Class(Planet(0).Class).Min_Diameter)*1000
      if rnd(100)<Planet_Class(Planet(0).Class).Habitation_Chance
         Population_Density=rnd(10000)
         Planet(0).Population=(Population_Density*Planet(0).Size)
      endif

   next a
endfunction

function GET_PLANET_NAME()
   Number_Letters=rnd(4)+3
   temp$=""
   alternate=rnd(1)
   for a = 1 to Number_Letters
      if alternate=0
         if rnd(3)=0
           temp$=temp$+vowel_combos(rnd(3))
         else
           temp$=temp$+vowels(rnd(4))
         endif
         if alternate=0 then alternate=1 else alternate=0
      else
         if rnd(1)=0 and a<Number_Letters
            temp$=temp$+consonant_combos(rnd(11))
         else
            temp$=temp$+consonants(rnd(20))
         endif
         if alternate=0 then alternate=1 else alternate=0
      endif
   next a
   temp$=UPPER$(left$(temp$,1))+right$(temp$,len(temp$)-1)
endfunction temp$

function Set_Planet_Classes()
   for a = 0 to NUMBER_PLANET_TYPES-1
      read Planet_Class(a).name
      read Planet_Class(a).Min_Diameter
      read Planet_Class(a).Max_Diameter
      read Planet_Class(a).Habitation_Chance
   next a
endfunction

function TEMP_FUNCTION1()
   
   for a = 0 to array count(Planet())
      text_sprite(free_sprite(),100,255,100,0,20*a, Planet(a).Name+" - "+Planet_Class(Planet(a).Class).name+" - "+str$(Planet(a).Size)+"km"+" - Tech Level:"+str$(Planet(a).Tech_Level)+" - Population:"+str$(Planet(a).Population))
   next a
   
   text_sprite(free_sprite(),255,255,0,600,0,"arrow keys - control ship")
   text_sprite(free_sprite(),255,255,0,600,20,"+ - increase velocity")
   text_sprite(free_sprite(),255,255,0,600,40,"- - decrease velocity")
   
   text_sprite(free_sprite(),255,0,0,600,80,"1 - cockpit mode")
   text_sprite(free_sprite(),255,0,0,600,100,"2 - chasecam mode")
   text_sprite(free_sprite(),255,0,0,600,120,"c - change camera")
   text_sprite(free_sprite(),255,0,0,600,140,"a - zoom in")
   text_sprite(free_sprite(),255,0,0,600,160,"z - zoom out")
endfunction

function TEMP_FUNCTION2()

endfunction

function make_ships(number_of_ships)

   `create temporary texture for spaceship
   create bitmap 1,10,10
      blue=free_image()
      ink rgb(0,0,255),0
      box 0,0,10,10
      get image blue,0,0,10,10
      red=free_image()
      ink rgb(255,0,0),0
      box 0,0,10,10
      get image red,0,0,10,10
      green=free_image()
      ink rgb(0,255,0),0
      box 0,0,10,10
      get image green,0,0,10,10
   delete bitmap 1
   set current bitmap 0
     
   for n=1 to number_of_ships
      array insert at bottom ship(0)
      ship(n).objectnumber=free_object()
      
      ` dodgy looking spaceship
      make object box ship(n).objectnumber,20,6,50:if n=1 then texture object ship(n).objectnumber,blue else texture object ship(n).objectnumber,green
      temp=free_object()
      make object cube temp,2 : glue object to limb temp,ship(n).objectnumber,0 : position object temp,-5,0,-25 : texture object temp,red
      temp=free_object()
      make object cube temp,2 : glue object to limb temp,ship(n).objectnumber,0 : position object temp,5,0,-25 :texture object temp,red
      temp=free_object()
      make object box temp,10,7,10 : turn object left temp,45 : glue object to limb temp,ship(n).objectnumber,0 : position object temp,0,0,25 : texture object temp,red
      
      rotate object ship(n).objectnumber,rnd(360),rnd(360),rnd(360)
      
      ship(n).acceleration=0.1
      ship(n).maxvelocity=10
      ship(n).camdistance=100
      ship(n).velocity=0.5
      
      if n=1 then ship(n).human=1
      
      position object ship(n).objectnumber,rnd(500)-250,rnd(500)-250,rnd(500)-250
  
   next n
endfunction

function control_ships(number_of_ships)
   for n=1 to number_of_ships
     if ship(n).human=1
       `keyboard control system
        if leftkey()=1 then roll object left 1,1
        if rightkey()=1 then roll object right 1,1
        if upkey()=1 then  pitch object down 1,1
        if downkey()=1 then  pitch object up 1,1
        if keystate(12)=1 and ship(n).velocity > 0 then dec ship(n).velocity,ship(n).acceleration
        if keystate(13)=1 and ship(n).velocity < ship(n).maxvelocity then inc ship(n).velocity,ship(n).acceleration
     else
       `apply AI to computer controlled ships
     endif
   next n
endfunction

function move_ships(number_of_ships)
   for n=1 to number_of_ships
      move object ship(n).objectnumber,ship(n).velocity
   next n
endfunction



function control_camera(mode,shipnumber)


if mode=1 `cockpit view
   set camera to object orientation ship(shipnumber).objectnumber
   position camera object position x(ship(shipnumber).objectnumber),object position y(ship(shipnumber).objectnumber),object position z(ship(shipnumber).objectnumber)
   move camera 20
endif

if mode=2 `chase cam view
  chase_cam(ship(shipnumber).objectnumber,ship(shipnumber).camdistance)
  if inkey$()="a" and ship(shipnumber).camdistance>50 then dec ship(shipnumber).camdistance,2
  if inkey$()="z" and ship(shipnumber).camdistance<200 then inc ship(shipnumber).camdistance,2
endif

if keystate(2)=1 then cam_mode=1
if keystate(3)=1 then cam_mode=2
if inkey$()="c" and keypress=0
   keypress=1
   inc camera_on_ship
   if camera_on_ship>number_of_ships then camera_on_ship=1
endif


endfunction

function free_image()
   repeat
     inc n
   until image exist(n)=0
endfunction n

function free_object()
   repeat
     inc n
   until object exist(n)=0
endfunction n

function free_sprite()
   repeat
     inc n
   until sprite exist(n)=0 and image exist(n)=0
endfunction n

function text_sprite(entity,r,g,b,x,y,text$)
   if text$="" then text$=" "
   create bitmap 1,screen width(),screen height()
      set current bitmap 1
      ink rgb(r,g,b),0
      set text size 14
      set text font "Arial"
      text 0,0,text$
      if image exist(entity) then delete image entity
      if sprite exist(entity) then delete sprite entity
      get image entity,0,0,text width(text$),text height(text$),1
      sprite entity,x,y,entity
      set sprite priority entity,100
      set sprite alpha entity,200
   delete bitmap 1
   set current bitmap 0
endfunction


function chase_cam(object,distance#)


   oldcamx#=camera position x()
   oldcamy#=camera position y()
   oldcamz#=camera position z() 
   oldcamangx#=camera angle x()
   oldcamangy#=camera angle y()
   oldcamangz#=camera angle z()
   
   position camera object position x(object),object position y(object),object position z(object)
   set camera to object orientation object
   move camera -distance#
   
   newcamx#=camera position x()
   newcamy#=camera position y()
   newcamz#=camera position z() 
   newcamangx#=camera angle x()
   newcamangy#=camera angle y()
   newcamangz#=camera angle z()
   
   xrotate camera curveangle(newcamangx#,oldcamangx#,40)
   yrotate camera curveangle(newcamangy#,oldcamangy#,40)
   zrotate camera curveangle(newcamangz#,oldcamangz#,40) 
   camx#=curvevalue(newcamx#,oldcamx#,20)
   camy#=curvevalue(newcamy#,oldcamy#,20)
   camz#=curvevalue(newcamz#,oldcamz#,20)
   position camera camx#,camy#,camz#
   
   camangx#=camera angle x()
   camangy#=camera angle y()
   camangz#=camera angle z()
   point camera object position x(object),object position y(object),object position z(object)
   position camera object position x(object),object position y(object),object position z(object)
   move camera -distance#
   rotate camera camangx#,camangy#,camangz#
   
   
endfunction


function starfield(speed#)

rem 3D Starfield Demo - Written by Jason Clogg
rem Feel free to use any of this code


rem base sprite number
base=600
rem How widely to spread the stars
spread=800
rem How many stars to display
stars=200
rem The initial distance to start the stars displaying
dist=500

`Calculate a point in front of the camera to start drawing the starfield

cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()

if object exist(600)=0
   make object box 600,.5,.5,.5
   for i=601 to 600+stars
      clone object i,600
rem stars should not be affected by light or included in collisions
      set object light i,0
      set object collision off i
      position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
   next i
endif

for i=600 to 600+stars
`reposition stars if they are out of camera shot
   if object in screen(i)=0
   position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
   endif
`Calculate distance of star from camera and scale star accordingly
   dist#=distance(cx#,cy#,cz#,i)
   scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
   set object to object orientation i,1
rem The multiple of 1.2 will need to be changed depending on the frame rate.
rem This value works best with a sync rate of 60
   move object i,speed#*-1.2
   next i

endfunction

function distance(x1#,y1#,z1#,obj)

x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)

dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))

endfunction dist#



`-----------------------------------------------------------------------------------------------
`   DATA
`-----------------------------------------------------------------------------------------------
` Name Seeds
Data "a","e","i","o","u"
Data "oo","oa","ee","ia"
Data "b","c","d","f","g","h","j","k","l","m","n","p","qu","r","s","t","v","w","x","y","z"
Data "st","th","ph","pr","ch","cl","tr","spl","str","fl","bl","br"

`Planet Classes (CLASS, MIN DIAMETER, MAX DIAMETER, CHANCE INHABITED)
Data "Gas Giant",100,220,2
Data "Desert",20,60,20
Data "M Class",20,65,75
Data "Volcanic",10,60,18
Data "Oceanic",15,40,35
Data "Ice World",5,35,12
Data "Asteroid",1,10,5

Rem *****************************************************************************************
Rem * Simple Surface Textures
Rem *
Rem *****************************************************************************************
Planet_ST1(1)  :Paste Image 1,  0,0
Planet_ST2(2)  :Paste Image 2,128,0
HullPlate_ST(3):Paste Image 3,256,0
Wait Key
End
Rem *****************************************************************************************
Function Planet_ST1(I)
   `Create Planet 1 Surface Texture
   Create Bitmap I,128,128
   Set Current Bitmap I
   Lock Pixels
   Cls RGB(0,0,128)
   For A=0 to 512+255+128
      Z=RND(3)
      X=1+Z+RND(126-(Z*2))
      Y=1+Z+RND(126-(Z*2))
      C=RND(128)
      C=RGB(8+(C/2),64+C,0)
      Box X-Z,Y-Z,X+Z,Y+Z,C,C,C,C
   Next
   Unlock Pixels
   Blur Bitmap I,4
   Get Image I,0,0,128,128,0
   Set Current Bitmap 0
   Delete Bitmap I
EndFunction
Rem *****************************************************************************************
Function Planet_ST2(I)
   `Create Planet 2 Surface Texture
   Create Bitmap I,128,128
   Set Current Bitmap I
   Lock Pixels
   Cls RGB(128,0,64)
   For A=0 to 512+255+128
      Z=RND(3)
      X=1+Z+RND(126-(Z*2))
      Y=1+Z+RND(126-(Z*2))
      C=RND(127)
      C=RGB(64+C,128-C,C*2)
      Box X-Z,Y-Z,X+Z,Y+Z,C,C,C,C
   Next
   Unlock Pixels
   Blur Bitmap I,4
   Get Image I,0,0,128,128,0
   Set Current Bitmap 0
   Delete Bitmap I
EndFunction
Rem *****************************************************************************************
Function HullPlate_ST(I)
   `Create Hulplate Surface Texture
   Create Bitmap I,128,128
   Set Current Bitmap I
   Lock Pixels
   Cls RGB(128,128,128)
   For A=1 to 32
      X1=RND(64)*2:Y1=RND(64)*2
      X2=RND(16)*4:Y2=RND(16)*4
      IF X1+X2<128 then X2=X1+X2 Else X2=X1-X2
      IF Y1+Y2<128 then Y2=Y1+Y2 Else Y2=Y1-Y2
      G=64+(Rnd(16)*4):Ink rgb(G,G,G),0
      BOX X1,Y1,X2,Y2
   Next
   HC=RGB(192,192,192):LC=RGB(96,96,96)
   Z=RND(8)+8
   For A=1 to Z
      X1=RND(32)*4:Y1=RND(32)*4
      X2=RND(32)*4:Y2=Y1-1
      If X1<X2 then T=X1:X1=X2:X2=T
      Gosub 3D
   Next
   Z=RND(8)+8
   For A=1 to Z
      X1=RND(32)*4:Y1=RND(32)*4
      X2=X1-1     :Y2=RND(32)*4
      If Y1<Y2 then T=Y1:Y1=Y2:Y2=T
      Gosub 3D
   Next
   HC=RGB(255,255,255):LC=RGB(64,64,64)
   X1=0:Y1=0:X2=127:Y2=127:Gosub 3D
   Unlock Pixels
   Blur Bitmap I,1
   Get Image I,0,0,128,128,0
   Set Current Bitmap 0
   Delete Bitmap I
   Exitfunction
3D:
   Ink HC,0
      Line X1,Y1,X2,Y1
      Line X1,Y2,X1,Y1
   Ink LC,0
      Line X2,Y1,X2,Y2
      Line X1,Y2,X2,Y2
   Return
EndFunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15

   Global GRID_SIZE=7x7

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   Dim Piece(-1) as bit

   DIM game_grid(17,17) as integer         `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made
   DIM grid_sprite(17,17) as integer       `this array holds the sprite number (101 to 325[max])
                                           `it is needed to know where in grid each sprite is
   DIM gamedeck(226) as integer             `this holds the game pieces which are shuffled (225 max # of pieces)


   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces()
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("offset: "+str$(grid_offset),650,280,7800)

     if mouseclick()=1

     endif

     while mouseclick()=1
        donothing=0
     endwhile

     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
      next b
   next a


REM *************** Now we send in the Clones.... (I know bad pun!) LoL ***************

   remstart
   clone sprite 1,101      `red piece
   clone sprite 1,102
   clone sprite 1,103
   clone sprite 1,104
   clone sprite 1,105
   clone sprite 1,106
   clone sprite 1,107
   clone sprite 1,108

   clone sprite 2,109      `orange piece
   clone sprite 2,110
   clone sprite 2,111
   clone sprite 2,112
   clone sprite 2,113
   clone sprite 2,114
   clone sprite 2,115
   clone sprite 2,116

   clone sprite 3,117      `yellow piece
   clone sprite 3,118
   clone sprite 3,119
   clone sprite 3,120
   clone sprite 3,121
   clone sprite 3,122
   clone sprite 3,123
   clone sprite 3,124

   clone sprite 4,125      `green piece
   clone sprite 4,126
   clone sprite 4,127
   clone sprite 4,128
   clone sprite 4,129
   clone sprite 4,130
   clone sprite 4,131
   clone sprite 4,132

   clone sprite 5,133      `teal piece
   clone sprite 5,134
   clone sprite 5,135
   clone sprite 5,136
   clone sprite 5,137
   clone sprite 5,138
   clone sprite 5,139
   clone sprite 5,140

   clone sprite 6,141      `blue piece
   clone sprite 6,142
   clone sprite 6,143
   clone sprite 6,144
   clone sprite 6,145
   clone sprite 6,146
   clone sprite 6,147
   clone sprite 6,148

   clone sprite 7,149      `purple piece
   clone sprite 7,150
   clone sprite 7,151
   clone sprite 7,152
   clone sprite 7,153
   clone sprite 7,154
   clone sprite 7,155
   clone sprite 7,156

   clone sprite 8,157      `rainbow piece
   clone sprite 8,158
   clone sprite 8,159
   clone sprite 8,160

   clone sprite 9,161      `Locked piece
   clone sprite 9,162
   clone sprite 9,163
   clone sprite 9,164

   clone sprite 10,165      `Up Arrow piece
   clone sprite 10,166
   clone sprite 10,167
   clone sprite 10,168

   clone sprite 11,169      `right Arrow piece
   clone sprite 11,170
   clone sprite 11,171
   clone sprite 11,172

   clone sprite 12,173      `down Arrow piece
   clone sprite 12,174
   clone sprite 12,175
   clone sprite 12,176

   clone sprite 13,177      `Left Arrow piece
   clone sprite 13,178
   clone sprite 13,179
   clone sprite 13,180

   clone sprite 14,181      `Nuke piece
   clone sprite 14,182
   clone sprite 14,183
   clone sprite 14,184

   clone sprite 15,185      `Star piece
   clone sprite 15,186
   clone sprite 15,187
   clone sprite 15,188

   clone sprite 16,189      `Dollar piece
   clone sprite 16,190
   clone sprite 16,191
   clone sprite 16,192

   clone sprite 17,193      `Question Mark piece
   clone sprite 17,194
   clone sprite 17,195
   clone sprite 17,196

   clone sprite 18,197      `Target piece
   clone sprite 18,198
   clone sprite 18,199
   clone sprite 18,200

   clone sprite 19,201      `2x piece
   clone sprite 19,202
   clone sprite 19,203
   clone sprite 19,204

   clone sprite 20,205      `3x piece
   clone sprite 20,206
   clone sprite 20,207
   clone sprite 20,208

   clone sprite 21,209      `-5- piece
   clone sprite 21,210
   clone sprite 21,211
   clone sprite 21,212
   clone sprite 21,213
   clone sprite 21,214
   clone sprite 21,215
   clone sprite 21,216
   clone sprite 21,217
   clone sprite 21,218
   clone sprite 21,219
   clone sprite 21,220

   clone sprite 22,221      `-10- piece
   clone sprite 22,222
   clone sprite 22,223
   clone sprite 22,224
   clone sprite 22,225
   clone sprite 22,226
   clone sprite 22,227
   clone sprite 22,228
   clone sprite 22,229
   clone sprite 22,230
   clone sprite 22,231
   clone sprite 22,232

   clone sprite 23,233       `-25- piece
   clone sprite 23,234
   clone sprite 23,235
   clone sprite 23,236
   clone sprite 23,237
   clone sprite 23,238
   clone sprite 23,239
   clone sprite 23,240
   clone sprite 23,241
   clone sprite 23,242
   clone sprite 23,243
   clone sprite 23,244

   clone sprite 24,245       `-50- piece
   clone sprite 24,246
   clone sprite 24,247
   clone sprite 24,248
   clone sprite 24,249
   clone sprite 24,250
   clone sprite 24,251
   clone sprite 24,252
   clone sprite 24,253
   clone sprite 24,254
   clone sprite 24,255
   clone sprite 24,256

   clone sprite 25,257       `-100- piece
   clone sprite 25,258
   clone sprite 25,259
   clone sprite 25,260
   clone sprite 25,261
   clone sprite 25,262
   clone sprite 25,263
   clone sprite 25,264
   clone sprite 25,265
   clone sprite 25,266
   clone sprite 25,267
   clone sprite 25,268

   clone sprite 27,269       `Blank piece
   clone sprite 27,270
   clone sprite 27,271
   clone sprite 27,272
   clone sprite 27,273
   clone sprite 27,274
   clone sprite 27,275
   clone sprite 27,276
   clone sprite 27,277
   clone sprite 27,278
   clone sprite 27,279
   clone sprite 27,280
   clone sprite 27,281
   clone sprite 27,282
   clone sprite 27,283
   clone sprite 27,284
   clone sprite 27,285
   clone sprite 27,286
   clone sprite 27,287
   clone sprite 27,288
   clone sprite 27,289
   clone sprite 27,290
   clone sprite 27,291
   clone sprite 27,292
   clone sprite 27,293
   clone sprite 27,294
   clone sprite 27,295
   clone sprite 27,296
   clone sprite 27,297
   clone sprite 27,298
   clone sprite 27,299
   clone sprite 27,300
   clone sprite 27,301
   clone sprite 27,302
   clone sprite 27,303
   clone sprite 27,304
   clone sprite 27,305
   clone sprite 27,306
   clone sprite 27,307
   clone sprite 27,308
   clone sprite 27,309
   clone sprite 27,310
   clone sprite 27,311
   clone sprite 27,312
   clone sprite 27,313
   clone sprite 27,314
   clone sprite 27,315
   clone sprite 27,316
   clone sprite 27,317
   clone sprite 27,318
   clone sprite 27,319
   clone sprite 27,320
   clone sprite 27,321
   clone sprite 27,322
   clone sprite 27,323
   clone sprite 27,324
   clone sprite 27,325
   clone sprite 27,326
   clone sprite 27,327
   clone sprite 27,328
   remend

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  ink rgb(200,200,200),0
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer)

   sprite 41, 30,(((rowy)*33)+20)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer)

   sprite 40,(((colx)*33)+20)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces()
   grid_offset=((15-GRID_SIZE)*33)/2+53
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15

   Global GRID_SIZE=13x13

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   Dim Piece(-1) as bit

   DIM game_grid(GRID_SIZE,GRID_SIZE) as integer         `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made
   DIM grid_sprite(17,17) as integer       `this array holds the sprite number (101 to 325[max])
                                           `it is needed to know where in grid each sprite is
   DIM gamedeck(226) as integer             `this holds the game pieces which are shuffled (225 max # of pieces)


   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces()
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("offset: "+str$(grid_offset),650,280,7800)

     if mouseclick()=1

     endif

     while mouseclick()=1
        donothing=0
     endwhile

     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a)=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos)=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos)<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1)<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos)<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1)<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos)=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos)=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos)<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1)<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos)<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1)<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos)=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos)=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos)<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1)<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos)<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1)<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos)=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  ink rgb(200,200,200),0
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer)

   sprite 41, 30,(((rowy)*33)+20)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer)

   sprite 40,(((colx)*33)+20)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces()
   grid_offset=((15-GRID_SIZE)*33)/2+53
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

scandir as integer

scandir as integer=1

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15

   Global GRID_SIZE=13x13

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   Dim Piece(-1) as bit

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made


   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("offset: "+str$(grid_offset),650,280,7800)

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
            array insert at top piece()
            piece(0).xpos=0
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=0
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(0,mrow-1).link
            array insert at top piece()
            piece(0).xpos=GRID_SIZE-1
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,0).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=Grid_Size-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=0 then click_down=0



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  ink rgb(200,200,200),0
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15

   Global GRID_SIZE=13x13

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   Dim Piece(-1) as bit

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("offset: "+str$(grid_offset),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
            array insert at top piece()
            piece(0).xpos=0
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=0
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(0,mrow-1).link
            array insert at top piece()
            piece(0).xpos=GRID_SIZE-1
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,0).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=Grid_Size-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=0 then click_down=0



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  ink rgb(200,200,200),0
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
            delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
            array insert at top piece()
            piece(0).xpos=0
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
            delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=0
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
            delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(0,mrow-1).link
            array insert at top piece()
            piece(0).xpos=GRID_SIZE-1
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
            delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,0).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=Grid_Size-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 2: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 3: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 4: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 5: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 6: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 7: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 22: inc SCORE,5:ADD_EFFECT(30,300,GREEN1,5):endcase
      case 23: inc SCORE,10:ADD_EFFECT(30,300,GREEN1,10):endcase
      case 24: inc SCORE,25:ADD_EFFECT(30,300,GREEN1,25):endcase
      case 25: inc SCORE,50:ADD_EFFECT(30,300,GREEN1,50):endcase
      case 26: Inc SCORE,100:ADD_EFFECT(30,300,GREEN1,100):endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

function spinout(tsn as integer)
  for ssa=1 to 99
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  for ssa=1 to 99
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
            spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
            delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
            array insert at top piece()
            piece(0).xpos=0
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 1
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               inc Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
            spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
            delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=0
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(a,mrow-1).link).xpos
            next a
            PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
            spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
            delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
            array delete element piece(),Game_Grid(0,mrow-1).link
            array insert at top piece()
            piece(0).xpos=GRID_SIZE-1
            piece(0).ypos=mrow-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif

         if scandir=2
            play sound 2
            for a = 1 to 33
               for b=0 to GRID_SIZE-1
                  Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
               next b
               if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
               sync
            next a
            for a = 0 to Grid_Size-1
               dec Piece(Game_Grid(mcol-1,a).link).ypos
            next a
            PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
            spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
            delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
            array delete element piece(),Game_Grid(mcol-1,0).link
            array insert at top piece()
            piece(0).xpos=mcol-1
            piece(0).ypos=Grid_Size-1
            piece(0).image=27
            piece(0).sprite_number=Free_sprite(500)
            sprite Piece(0).sprite_number,-100,-100,piece(0).image
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  play sound 3
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 2: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 3: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 4: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 5: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 6: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 7: dec SCORE,5:ADD_EFFECT(30,300,RED1,-5):endcase
      case 22: inc SCORE,5:ADD_EFFECT(30,300,GREEN1,5):endcase
      case 23: inc SCORE,10:ADD_EFFECT(30,300,GREEN1,10):endcase
      case 24: inc SCORE,25:ADD_EFFECT(30,300,GREEN1,25):endcase
      case 25: inc SCORE,50:ADD_EFFECT(30,300,GREEN1,50):endcase
      case 26: Inc SCORE,100:ADD_EFFECT(30,300,GREEN1,100):endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3
   load sound "newsounds/penalty.wav",4:set sound volume 4,85
   load sound "newsounds/nono.wav",5:set sound volume 5,85

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
               spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
               delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
               array insert at top piece()
               piece(0).xpos=0
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 5
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
               spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
               delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=0
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 5
            endif
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
               spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
               delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(0,mrow-1).link
               array insert at top piece()
               piece(0).xpos=GRID_SIZE-1
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 5
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
               spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
               delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,0).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=Grid_Size-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 5
            endif
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,10:play sound 4:endcase
      case 2: dec SCORE,10:play sound 4:endcase
      case 3: dec SCORE,10:play sound 4:endcase
      case 4: dec SCORE,10:play sound 4:endcase
      case 5: dec SCORE,10:play sound 4:endcase
      case 6: dec SCORE,10:play sound 4:endcase
      case 7: dec SCORE,10:play sound 4:endcase
      case 22: inc SCORE,5:play sound 3:endcase
      case 23: inc SCORE,10:play sound 3:endcase
      case 24: inc SCORE,25:play sound 3:endcase
      case 25: inc SCORE,50:play sound 3:endcase
      case 26: Inc SCORE,100:play sound 3:endcase
      case 27:play sound 3:endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3
   load sound "splunk.wav",4
   load sound "score1.wav",5
   load sound "buzz1.wav",6

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
               delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
               array insert at top piece()
               piece(0).xpos=0
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
               delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=0
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
               delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(0,mrow-1).link
               array insert at top piece()
               piece(0).xpos=GRID_SIZE-1
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
               delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,0).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=Grid_Size-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  play sound 3
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,10:play sound 4:endcase
      case 2: dec SCORE,10:play sound 4:endcase
      case 3: dec SCORE,10:play sound 4:endcase
      case 4: dec SCORE,10:play sound 4:endcase
      case 5: dec SCORE,10:play sound 4:endcase
      case 6: dec SCORE,10:play sound 4:endcase
      case 7: dec SCORE,10:play sound 4:endcase
      case 22: inc SCORE,5:play sound 5:endcase
      case 23: inc SCORE,10:play sound 5:endcase
      case 24: inc SCORE,25:play sound 5:endcase
      case 25: inc SCORE,50:play sound 5:endcase
      case 26: Inc SCORE,100:play sound 5:endcase
      case 27:play sound 4:endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3
   load sound "newsounds/penalty.wav",4:set sound volume 4,85
   load sound "newsounds/nono.wav",5:set sound volume 5,85

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
               spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
               delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
               array insert at top piece()
               piece(0).xpos=0
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 5
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
               spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
               delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=0
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 5
            endif
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
               spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
               delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(0,mrow-1).link
               array insert at top piece()
               piece(0).xpos=GRID_SIZE-1
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 5
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
               spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
               delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,0).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=Grid_Size-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 5
            endif
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,10:play sound 4:endcase
      case 2: dec SCORE,10:play sound 4:endcase
      case 3: dec SCORE,10:play sound 4:endcase
      case 4: dec SCORE,10:play sound 4:endcase
      case 5: dec SCORE,10:play sound 4:endcase
      case 6: dec SCORE,10:play sound 4:endcase
      case 7: dec SCORE,10:play sound 4:endcase
      case 22: inc SCORE,5:play sound 3:endcase
      case 23: inc SCORE,10:play sound 3:endcase
      case 24: inc SCORE,25:play sound 3:endcase
      case 25: inc SCORE,50:play sound 3:endcase
      case 26: Inc SCORE,100:play sound 3:endcase
      case 27:play sound 3:endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

function check_row(row)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(a,row).link).image:Top_match=0:Bottom_Match=0
      if row>0
         if Piece(game_grid(a,row-1).link).image=test then Top_Match=1
      endif

      if row<Grid_size-1
         if Piece(game_grid(a,row+1).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif
            if Top_match=1 and bottom_match=1 then Points_to_score=500
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            Play sound 3
         endif
      endif

   next a
   inc score,points_to_score
endfunction

function check_column(col)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(col,a).link).image:Top_match=0:Bottom_Match=0
      if col>0
         if Piece(game_grid(col-1,a).link).image=test then Top_Match=1
      endif

      if col<Grid_size-1
         if Piece(game_grid(col+1,a).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif

            if Top_match=1 and bottom_match=1 then Points_to_score=points_to_score*2
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            Play sound 3
         endif
      endif

   next a
   inc score,points_to_score
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3
   load sound "splunk.wav",4
   load sound "score1.wav",5
   load sound "buzz1.wav",6

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
               delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
               array insert at top piece()
               piece(0).xpos=0
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
               delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=0
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
               delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(0,mrow-1).link
               array insert at top piece()
               piece(0).xpos=GRID_SIZE-1
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
               delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,0).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=Grid_Size-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  play sound 3
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,10:play sound 4:endcase
      case 2: dec SCORE,10:play sound 4:endcase
      case 3: dec SCORE,10:play sound 4:endcase
      case 4: dec SCORE,10:play sound 4:endcase
      case 5: dec SCORE,10:play sound 4:endcase
      case 6: dec SCORE,10:play sound 4:endcase
      case 7: dec SCORE,10:play sound 4:endcase
      case 22: inc SCORE,5:play sound 5:endcase
      case 23: inc SCORE,10:play sound 5:endcase
      case 24: inc SCORE,25:play sound 5:endcase
      case 25: inc SCORE,50:play sound 5:endcase
      case 26: Inc SCORE,100:play sound 5:endcase
      case 27:play sound 4:endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

function check_row(row)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(a,row).link).image:Top_match=0:Bottom_Match=0
      if row>0
         if Piece(game_grid(a,row-1).link).image=test then Top_Match=1
      endif

      if row<Grid_size-1
         if Piece(game_grid(a,row+1).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif
            if Top_match=1 and bottom_match=1 then Points_to_score=500
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            Play sound 3
         endif
      endif

   next a
   inc score,points_to_score
endfunction

function check_column(col)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(col,a).link).image:Top_match=0:Bottom_Match=0
      if col>0
         if Piece(game_grid(col-1,a).link).image=test then Top_Match=1
      endif

      if col<Grid_size-1
         if Piece(game_grid(col+1,a).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif

            if Top_match=1 and bottom_match=1 then Points_to_score=points_to_score*2
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            Play sound 3
         endif
      endif

   next a
   inc score,points_to_score
endfunction

REM Project: Kassou Waku
REM Created: 11/28/2006 8:30:09 AM
REM
REM ***** Main Source File *****
REM
   sync on:sync rate 60
   mrow as integer
   mcol as integer
   curcol as integer
   currow as integer
   scandir as integer =1
   #constant 7x7 = 7
   #constant 9x9 = 9
   #constant 11x11 = 11
   #constant 13x13 = 13
   #constant 15x15 = 15
   #CONSTANT RED1=rgb(255,0,0)
   #CONSTANT GREEN1=rgb(0,255,0)
   #Constant WHITE1=rgb(255,255,255)

   Global GRID_SIZE=13x13
   GLobal SCORE

   type bit
      sprite_number as integer
      xpos as integer
      ypos as integer
      image as integer
   endtype

   type Tile
      value as integer
      link as integer
   endtype

   type effect
      xpos as integer
      ypos as integer
      color as dword
      value as integer
      lifespan as integer
      sprite_number as integer
   endtype

   Dim Piece(-1) as bit
   Dim FLoaty_numbers(-1) as effect

   DIM game_grid(GRID_SIZE,GRID_SIZE) as Tile       `this array holds the grid slot info (value 1 to 27)
                                           `the value in game_grid is used to determine if matches are made

   load sound "swoo.wav",1
   load sound "swis.wav",2
   load sound "spinout.wav",3
   load sound "splunk.wav",4
   load sound "score1.wav",5
   load sound "buzz1.wav",6

   `intro_anim()
   load_gamesprites()
   sprite 39,0,0,39
   sync
   show sprite 39
   hide mouse
   SET SPRITE PRIORITY 99,99
   sync
   show sprite 99
   show object 1
   show object 2
   show object 3


   do
     Draw_pieces(0)
     grid_offset=((15-GRID_SIZE)*33)/2+53

     if mousex()>GRID_OFFSET and mousex()<GRID_OFFSET+GRID_SIZE*33 and mousey()>GRID_OFFSET and mousey()<GRID_OFFSET+GRID_SIZE*33
        mrow=((mousey()-GRID_OFFSET)/33)+1
        mcol=((mousex()-GRID_OFFSET)/33)+1
        if scandir=1 and mrow>=1 and mrow<=GRID_SIZE
           highlight_row(mrow,Grid_OFFSET)
        endif
        if scandir=2 and mcol>=1 and mcol<=GRID_SIZE
           highlight_col(mcol,GRID_OFFSET)
        endif
     else
        mrow=98 : mcol=99 :currow=97 :curcol=96
        hide sprite 41
        hide sprite 40
     endif

     if wheelstate<>mousez() and scandir=2  `scancode()=17
        scandir=1
        wheelstate=mousez()
        hide sprite 40
        highlight_row(mrow,GRID_OFFSET)
     endif
     if wheelstate<>mousez() and scandir=1  `scancode()=32
        scandir=2
        wheelstate=mousez()
        hide sprite 41
        highlight_col(mcol,GRID_OFFSET)
     endif
     textimg("Row: "+str$(mrow),700,300,44)
     textimg("Col: "+str$(mcol),620,300,55)
     whatkey=scancode()
     textimg("Key: "+str$(whatkey),700,350,66)
     textimg("Mousewheel: "+str$(mousez()),650,260,77)
     textimg("SCORE: "+str$(SCORE),650,280,7800)

     if mouseclick()=2 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)+1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).image)
               delete sprite Piece(Game_Grid(GRID_SIZE-1,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(Grid_Size-1,mrow-1).link
               array insert at top piece()
               piece(0).xpos=0
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 1
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)+1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  inc Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).image)
               delete sprite Piece(Game_Grid(mcol-1,GRID_SIZE-1).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,Grid_Size-1).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=0
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=1 and click_down=0 and mcol>=0 and mcol<=Grid_Size and mrow>=0 and mrow<=Grid_size
         click_down=1
         Fill_Grid()
         if scandir=1
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(a,mrow-1).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(b,mrow-1).link).sprite_number,Sprite x(Piece(Game_Grid(b,mrow-1).link).sprite_number)-1,Sprite y(Piece(Game_Grid(b,mrow-1).link).sprite_number),Piece(Game_Grid(b,mrow-1).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(a,mrow-1).link).xpos
               next a
               spinout(Piece(Game_Grid(0,mrow-1).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(0,mrow-1).link).image)
               delete sprite Piece(Game_Grid(0,mrow-1).link).sprite_number
               array delete element piece(),Game_Grid(0,mrow-1).link
               array insert at top piece()
               piece(0).xpos=GRID_SIZE-1
               piece(0).ypos=mrow-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_row(mrow-1)
            else
               play sound 6
            endif
         endif

         if scandir=2
            check_move=0
            for a = 0 to GRID_SIZE-1
               if piece(Game_grid(mcol-1,a).link).image=9 then check_move=1
            next a
            if check_move=0
               play sound 2
               for a = 1 to 33
                  for b=0 to GRID_SIZE-1
                     Sprite Piece(Game_Grid(mcol-1,b).link).sprite_number,Sprite x(Piece(Game_Grid(mcol-1,b).link).sprite_number),Sprite y(Piece(Game_Grid(mcol-1,b).link).sprite_number)-1,Piece(Game_Grid(mcol-1,b).link).image
                  next b
                  if array count(floaty_numbers())>=0 then SCROLL_EFFECT()
                  sync
               next a
               for a = 0 to Grid_Size-1
                  dec Piece(Game_Grid(mcol-1,a).link).ypos
               next a
               spinout(Piece(Game_Grid(mcol-1,0).link).sprite_number)
               PUSH_PIECE(Piece(Game_Grid(mcol-1,0).link).image)
               delete sprite Piece(Game_Grid(mcol-1,0).link).sprite_number
               array delete element piece(),Game_Grid(mcol-1,0).link
               array insert at top piece()
               piece(0).xpos=mcol-1
               piece(0).ypos=Grid_Size-1
               piece(0).image=27
               piece(0).sprite_number=Free_sprite(500)
               sprite Piece(0).sprite_number,-100,-100,piece(0).image
               check_column(mcol-1)
            else
               play sound 6
            endif
         endif
     endif

     if mouseclick()=0 then click_down=0
     if array count(floaty_numbers())>=0 then SCROLL_EFFECT()



     sprite 99,mousex(), mousey(),99
     rotate object 1, -mousey(), -mousex(), 0
     rotate object 2, -mousey(), -mousex(), 0
     position object 3, (622-(mousex()/8)), ((mousey()/6)-480),100
     sync
   loop

function load_gamesprites()         `*********************** Loads the game Sprite ***********************


   `load image "GameIntro3.bmp",31,1          `Load the intro screen to sprite/image 31.
   `sprite 31,0,0,31
   `hide sprite 31

   load image "PlaysizeTutorial.png",32,1    `Sprite for game select 'tutorial' sprite/image 32
   sprite 32,0,0,32
   hide sprite 32

   load image "Playsize07.png",33,1          `Sprite for game select '7x7' sprite/image 33
   sprite 33,0,0,33
   hide sprite 33

   load image "Playsize09.png",34,1          `Sprite for game select '9x9' sprite/image 34
   sprite 34,0,0,34
   hide sprite 34

   load image "Playsize11.png",35,1          `Sprite for game select '11x11' sprite/image 35
   sprite 35,0,0,35
   hide sprite 35

   load image "Playsize13.png",36,1          `Sprite for game select '13x13' sprite/image 36
   sprite 36,0,0,36
   hide sprite 36

   load image "Playsize15.png",37,1          `Sprite for game select '15x15' sprite/image 37
   sprite 37,0,0,37
   hide sprite 37

   load image "Game_UI06.png",39,1           `Sprite for main game UI sprite/image 39
   sync
   sprite 39,0,0,39
   show sprite 39

   load image "v_select1.png",40,1           `Sprite for Vertical select overlay sprite/image 40
   sprite 40,0,0,40
   hide sprite 40

   load image "h_select1.png",41,1           `Sprite for Horizontal select overlay sprite/image 41
   sprite 41,0,0,41
   hide sprite 41

   load image "cursor_mouse3.png",99,1       `Sprite for mouse cursor sprite image 99
   sprite 99,0,0,99
   hide sprite 99

   load image "GameSprites1.png",444,1          `Sprite page - uses image 444
   `sprite 155,0,0,33
   create bitmap 10,288,96                      `Create a temporary bitmap to paste it to
   set current bitmap 10                        `Go to that bitmap.

   paste image 444,0,0                          `Paste the image ready for grabbing sections of it.  Black is transparent.
   delete image 444                             `Free up image 33 for possible later use (sprites need their parent image retained?)

   for i = 0 to 2                                              `The number of rows (3 in this case)
      for j = 0 to 8                                           `The number of columns (9)
         get image (i*9)+j+1,j*32,i*32,(j+1)*32,(i+1)*32,1     `Sprites are numbered 1 to 27 and are 32*32 in size
      next j
   next i

   delete image 27                              `we delete sprite #27 so that we can replace it with a proper alpha chanel .png

   load image "blank02.png",27,1                `here we load that special semi transparent sprite

   set current bitmap 0                         `Go back to the proper screen (bitmap 0)
   delete bitmap 10                             `Delete the temporary bitmap


   load object "cubefrm1.x",1
   load object "cubefrm2.x",2
   make object plain 3,512,512
   load image "3d_bkg1.jpg",88,1       `background plain texture
   texture object 3,88
   rotate object 3,180,0,0
   position object 3,622,-480,100

   set object transparency 2,2
   set object cull 2,0
   set alpha mapping on 2,70

   position object 1,510,-360,0
   position object 2,510,-360,0
   scale object 1,250,250,250
   scale object 2,250,250,250

   color backdrop rgb(0,0,0)
   set ambient light 100

   hide object 1
   hide object 2
   hide object 3

   for a = 0 to GRID_SIZE-1
      for b = 0 to GRID_SIZE-1
         array insert at top piece()
         piece(0).xpos=b
         piece(0).ypos=a
         piece(0).image=27
         piece(0).sprite_number=Free_sprite(500)
         sprite Piece(0).sprite_number,-100,-100,piece(0).image
         Game_grid(b,a).value=27
      next b
   next a


` LETS ADD IN THE FRUITS
   Fruit_percent=(GRID_SIZE*GRID_SIZE)/2
   Paired=0:Current_Fruit=1
   for a = 1 to Fruit_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_fruit then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_fruit then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Fruit
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Fruit
      next xx
      if paired>1 then paired = 0 :inc current_fruit
      if Current_fruit>7 then Current_Fruit=1
   next a

   `ADD In Our Points
   points_percent=Fruit_percent/2

   Paired=0:Current_Point=22
   for a = 1 to Points_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Point then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Point then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Point
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Point
      next xx
      if paired>1 then paired = 0 :inc current_Point
      if Current_Point>26 then Current_Point=22
   next a

`ADD In Our Specials
   Special_percent=Fruit_percent/5

   Paired=0:Current_Special=8
   for a = 1 to Special_Percent

      repeat
         clear=4
         repeat
            xpos=rnd(GRID_SIZE-1):ypos=rnd(GRID_SIZE-1)
         until Game_Grid(xpos,ypos).value=27 `<--Makes sure the piece is added to a blank space

         if xpos>0
            if Game_grid(xpos-1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos>0
            if Game_grid(xpos,ypos-1).value<>Current_Specialt then dec clear
         else
            dec clear
         endif

         if xpos<Grid_Size-1
            if Game_grid(xpos+1,ypos).value<>Current_Special then dec clear
         else
            dec clear
         endif

         if ypos<Grid_Size-1
            if Game_grid(xpos,ypos+1).value<>Current_Special then dec clear
         else
            dec clear
         endif

      until clear=0 `<-- makes sure identicle pieces are not adjacent
      Game_Grid(xpos,ypos).value=Current_Special
      inc Paired
      for xx=0 to array count(piece())
         if Piece(xx).xpos=xpos and Piece(xx).ypos=ypos then Piece(xx).image = Current_Special
      next xx
      if paired>1 then paired = 0 :inc Current_Special
      if Current_Special>20 then Current_Special=8
   next a

endfunction

function textimg(str as string,x as integer,y as integer,sprnum as integer)

  create bitmap 1,200,100
  set text font "arial" : set text size 16 : set text to bold
  box 0,0,text width(str),text height(str),0,0,199,99
  text 0,0,str
  get image sprnum,0,0,text width(str),text height(str),1
  delete bitmap 1
  sprite sprnum,x,y,sprnum
  set sprite priority sprnum,5

endfunction

function highlight_row(rowy as integer,OFFSET)

   sprite 41, 30,(((rowy)*33)+OFFSET-33)-1,41
   set sprite priority 41,5
   show sprite 41

endfunction

function highlight_col(colx as integer,OFFSET)

   sprite 40,(((colx)*33)+OFFSET-33)-1,30,40
   set sprite priority 40,5
   show sprite 40

endfunction

function intro_anim()

   hide mouse
   load image "introscroll.png",52,1
   load image "logo1.png",53,1
   sprite 52,0,0,52
   sprite 53,0,80,53
   for vx=1 to 800 step 2
      sprite 52,0-vx,0,52
      set sprite alpha 53,vx/4
      `sprite 53,800-vx,60,53
      `wait 5
      sync
   next vx
   for vx=200 to 255
      set sprite alpha 53,vx
      sync
   next vx
   wait key
   sync
   color backdrop rgb(0,0,0)
   sync
   delete sprite 52
   delete sprite 53
   delete image 52
   delete image 53

endfunction

function spinout(tsn as integer)
  offset sprite tsn,sprite width(tsn)/2,sprite height(tsn)/2
  sprite tsn, sprite X(tsn)+16, sprite Y(tsn)+16, sprite image(tsn)
  play sound 3
  for ssa=1 to 99 step 2
    rotate sprite tsn, 3.5*ssa
    scale sprite tsn, 100-ssa
    sync
  next ssa
endfunction

function Free_sprite(count)
   repeat
      inc count
   until sprite exist(count)=0
endfunction count

function Draw_pieces(NEWSET)
   grid_offset=((15-GRID_SIZE)*33)/2+53+NEWSET
   for a = 0 to array count(piece())
      sprite piece(a).sprite_number,piece(a).xpos*33+grid_offset,piece(a).ypos*33+grid_offset,piece(a).image
   next a
endfunction

function Fill_Grid()
   for a = 0 to array count(piece())
      Game_grid(piece(a).xpos,piece(a).ypos).value=piece(a).image
      Game_grid(piece(a).xpos,piece(a).ypos).link=a
   next a
endfunction

function Push_piece(id as integer)
   select ID
      case 1: dec SCORE,10:play sound 4:endcase
      case 2: dec SCORE,10:play sound 4:endcase
      case 3: dec SCORE,10:play sound 4:endcase
      case 4: dec SCORE,10:play sound 4:endcase
      case 5: dec SCORE,10:play sound 4:endcase
      case 6: dec SCORE,10:play sound 4:endcase
      case 7: dec SCORE,10:play sound 4:endcase
      case 22: inc SCORE,5:play sound 5:endcase
      case 23: inc SCORE,10:play sound 5:endcase
      case 24: inc SCORE,25:play sound 5:endcase
      case 25: inc SCORE,50:play sound 5:endcase
      case 26: Inc SCORE,100:play sound 5:endcase
      case 27:play sound 4:endcase
   endselect
endfunction

function ADD_EFFECT(xpos as integer,ypos as integer,color as dword,value as integer)
   array insert at top Floaty_numbers()
   Floaty_Numbers(0).xpos=xpos
   Floaty_Numbers(0).ypos=ypos
   FLoaty_Numbers(0).color=color
   FLoaty_Numbers(0).value=value
   Floaty_Numbers(0).lifespan=50
   Floaty_Numbers(0).sprite_Number=Free_Sprite(2000)
   ink color,0
   textimg(str$(value),xpos,ypos,Floaty_Numbers(0).sprite_number)

endfunction

function SCROLL_EFFECT()
   for a = array count(Floaty_Numbers()) to 0 step -1
      dec Floaty_Numbers(a).ypos,4
      Sprite Floaty_Numbers(a).sprite_Number,Floaty_Numbers(a).xpos,Floaty_Numbers(a).ypos,Floaty_Numbers(a).sprite_number
      dec Floaty_Numbers(a).lifespan
      if Floaty_Numbers(a).lifespan<0
         delete sprite Floaty_Numbers(a).sprite_number
         delete image Floaty_Numbers(a).sprite_number
         array delete element Floaty_Numbers(),a
      endif
   next a
endfunction

function check_row(row)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(a,row).link).image:Top_match=0:Bottom_Match=0
      if row>0
         if Piece(game_grid(a,row-1).link).image=test then Top_Match=1
      endif

      if row<Grid_size-1
         if Piece(game_grid(a,row+1).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif
            if Top_match=1 and bottom_match=1 then Points_to_score=500
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            Play sound 3
         endif

         if test=10
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            for r = 0 to array count(piece())
               dec piece(r).ypos
               if piece(r).ypos<0 then piece(r).ypos=GRID_SIZE-1
            next r
         endif

         if test=11
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            for r = 0 to array count(piece())
               inc piece(r).xpos
               if piece(r).xpos>grid_size-1 then piece(r).xpos=0
            next r
         endif

         if test=12
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            for r = 0 to array count(piece())
               inc piece(r).ypos
               if piece(r).ypos>grid_size-1 then piece(r).ypos=0
            next r
         endif

         if test=13
            if Top_Match=1 then Piece(game_grid(a,row-1).link).image=27
            if Bottom_Match=1 then Piece(game_grid(a,row+1).link).image=27
            Piece(game_grid(a,row).link).image=27
            for r = 0 to array count(piece())
               dec piece(r).xpos
               if piece(r).xpos<0 then piece(r).xpos=GRID_SIZE-1
            next r
         endif
      endif

   next a
   inc score,points_to_score
endfunction

function check_column(col)
   Fill_Grid()
   for a = 0 to Grid_Size-1
      test=Piece(game_grid(col,a).link).image:Top_match=0:Bottom_Match=0
      if col>0
         if Piece(game_grid(col-1,a).link).image=test then Top_Match=1
      endif

      if col<Grid_size-1
         if Piece(game_grid(col+1,a).link).image=test then Bottom_Match=1
      endif

      if Top_match=1 or bottom_match=1
         if test>=1 and test<=7
            if points_to_score=0
               points_to_score=50
            else
               points_to_score=points_to_score*2
            endif

            if Top_match=1 and bottom_match=1 then Points_to_score=points_to_score*2
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            Play sound 3
         endif

         if test=10
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            for r = 0 to array count(piece())
               dec piece(r).ypos
               if piece(r).ypos<0 then piece(r).ypos=GRID_SIZE-1
            next a
         endif

         if test=11
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            for r = 0 to array count(piece())
               inc piece(r).xpos
               if piece(r).xpos<GRID_SIZE-1 then piece(r).xpos=0
            next a
         endif

         if test=12
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            for r = 0 to array count(piece())
               inc piece(r).ypos
               if piece(r).ypos<GRID_SIZE-1 then piece(r).ypos=0
            next a
         endif

         if test=13
            if Top_Match=1 then Piece(game_grid(col-1,a).link).image=27
            if Bottom_Match=1 then Piece(game_grid(col+1,a).link).image=27
            Piece(game_grid(col,a).link).image=27
            for r = 0 to array count(piece())
               dec piece(r).xpos
               if piece(r).xpos<0 then piece(r).xpos=GRID_SIZE-1
            next a
         endif
      endif

   next a
   inc score,points_to_score
endfunction