Sorry your browser is not supported!

function get_offsetX(angle#, speed#, dist#)

    xpos# = sin((timer()*speed#)+angle#)*dist#

endfunction xpos#

function get_offsetY(angle#, speed#, dist#)

    ypos# = cos((timer()*speed#)+angle#)*dist#

endfunction ypos#

rem Initialise variables
gosub _initialise_variables

rem Load objects, etc
gosub _load_objects

repeat

  rem Get player name   
  gosub _get_player_name

  rem Set level to 1
  level = 1
  gamestate = c_start_level

  repeat

rem Set up objects in initial positions
gosub _setup_objects

rem Determine question and answers for this level
generateQuestions()

descend_speed# = level * scale#

  rem Main game loop
  repeat

     rem Determine action based on gamestate
     If gamestate = c_ask_question
        gosub _get_player_input
     EndIf

     rem Reposition ships and missiles(move down towards earth)
     gosub _reposition_ships

     sync

  until gamestate = c_game_over

  gosub _save_hiscore

until gamestate = c_exit_game

end

_initialise_variables:

remstart
Suggest a gamestate variable as follows:
1 = Start level – show "Level 1" or whatever
2 = Question is asked, waiting for player to choose
3 = Question answered, missile in flight
4 = Missile hit child ship, explosions, etc
5 = Correct answer – show correct
6 = Wrong answer – show game over
7 = Exit game loop
Suggest define constants for these states in case we need to add extra!
remend

#constant c_start_level = 1
#constant c_asked_question = 2
#constant c_fire_missile = 3
#constant c_missile_hit = 4
#constant c_correct_ans = 5
#constant c_game_over = 6
#constant c_exit_loop = 7

Global gamestate
Global level
Global descend_speed#
Global scale# = 5.0

return

` Settings Type
` Game Name
` Tables is a string of 1's and 0's for tables 2 to 12
` Max multiplier is maximum level to be tested (e.g up to 10*... or up to 12*...)
` Time_limit is the limit per question
type tSetting
    name as string
    tables as string
    max_multiplier as integer
    time_limit as float
endtype

` Question Type
` The 2 numbers to be multiplied, correct answer
` and 3 incorrect answers
type tQuestion
    num1 as integer
    num2 as integer
    answer as integer
    alt1 as integer
    alt2 as integer
    alt3 as integer
endtype    

` High Score Type
type tHiScore
    name as string
    score as integer
    date as string
endtype


` ********** Global Variables **********
` High Scores
dim arrHiScore() as tHiScore
` Questions
dim arrQuestion() as tQuestion
` A temporary data table for generating questions.
dim arrTables()
` Settings
global gSetting as tSetting 


test()
end

rem Initialise variables
_initialise_variables()

` ***** MAIN LOOP
    do
    
        select gamestate
        
            case c_menu_main
                ShowMenu()
            endcase
            
            case c_menu_settings
                ShowMenuSettings()
            endcase
            
            case c_menu_scores
                ShowMenuScores()
            endcase
            
            case c_game_start
                PlayGame()
            endcase
        
        endselect
    
    loop


function PlayGame()
` main Game Playing function

    rem Load objects, etc
    _load_objects()
    
    repeat
    
      rem Get player name   
      _get_player_name()
    
      rem Set level to 1
      level = 1
      gamestate = c_start_level
    
      repeat
    
    rem Set up objects in initial positions
    _setup_objects()
    
    rem Determine question and answers for this level
    generateQuestions()
    
    descend_speed# = level * scale#
    
      rem Main game loop
      repeat
    
         rem Determine action based on gamestate
         If gamestate = c_ask_question
            _get_player_input()
         EndIf
    
         rem Reposition ships and missiles(move down towards earth)
         _reposition_ships()
    
         sync
    
      until gamestate = c_game_over
    
      _save_hiscore()
    
    until gamestate = c_exit_game

endfunction

function _initialise_variables()

remstart
Suggest a gamestate variable as follows:
1 = Start level – show "Level 1" or whatever
2 = Question is asked, waiting for player to choose
3 = Question answered, missile in flight
4 = Missile hit child ship, explosions, etc
5 = Correct answer – show correct
6 = Wrong answer – show game over
7 = Exit game loop
Suggest define constants for these states in case we need to add extra!
remend

#constant c_start_level = 1
#constant c_asked_question = 2
#constant c_fire_missile = 3
#constant c_missile_hit = 4
#constant c_correct_ans = 5
#constant c_game_over = 6
#constant c_game_start = 11
#constant c_exit_loop = 7
#constant c_menu_main = 8
#constant c_menu_settings = 9
#constant c_menu_scores = 10

Global gamestate = c_menu_main
Global level = 1
Global descend_speed#
Global scale# = 5.0

endfunction


function showMenu()
` Show the Main Menu (gamestate = c_menu_main)
` When an option is taken, set the gamestate and return to main loop

endfunction

function showMenuSettings()
` Show the Settings Menu (gamestate = c_menu_settings)
` When complete, set the gamestate back to c_menu_main

endfunction

function showMenuScores()
` Show the Hi Scores Menu (gamestate = c_menu_settings)
` When complete, set the gamestate back to c_menu_main

endfunction


function _load_objects()
` Load the game objects

endfunction


function _get_player_name()
` Get the Players name before playing

endfunction

function _setup_objects()
`Initialises the object positions etc...

endfunction


function _get_player_input()
` Retrieve input from the player each cycle

endfunction

function _reposition_ships()
` Reposition ships each cycle

endfunction

function _save_hi_score()
` Save High score at end of game
endfunction

function LoadSettings(game$)
` loads the game settings based on game name.
` Loads all settings on menu + High Scores.

    gamepath$ = get dir$() + "\"
    file$ = gamepath$ + "saves\" + gSetting.name + ".sav"
    
    ` Does file exist?
    if file exist(file$) = 0
        exitfunction
    endif

    open to read 1, file$
    
    ` Save Settings
    read string 1, gSetting.name
    read string 1, gSetting.tables
    read long 1, gSetting.max_multiplier
    read float 1, gSetting.time_limit
    
    ` Save High Scores
    empty array arrHiScore() 
    while not file end(1)
        add to queue arrHiScore()
        read string 1, arrHiScore().name
        read long 1, arrHiScore().score
        read string 1, arrHiScore().date
    endwhile    
    
    close file 1 


endfunction

function saveSettings()
` saves the game settings whenever called
` includes settings from menu + High Scores
` Creates a backup file each time

    gamepath$ = get dir$() + "\"
    file$ = gamepath$ + "saves\" + gSetting.name + ".sav"
    backupfile$ = gamepath$ + "saves\" + gSetting.name + ".bak"
    
    ` Does folder exist?
    if path exist(gamepath$ + "saves") = 0
        make directory (gamepath$ + "saves")
    endif
    
    ` Does file exist?
    if file exist(file$)
        if file exist(backupfile$)
            delete file backupfile$
        endif
        copy file file$, backupfile$
        delete file file$
    endif 

    open to write 1, file$
    
    ` Save Settings
    write string 1, gSetting.name
    write string 1, gSetting.tables
    write long 1, gSetting.max_multiplier
    write float 1, gSetting.time_limit
    
    ` Save High Scores
    maxCount = array count(arrHiScore())
    for n = 0 to maxCount
        write string 1, arrHiScore(n).name
        write long 1, arrHiScore(n).score
        write string 1, arrHiScore(n).date
    next n    
    
    close file 1 

endfunction

function generateQuestions()
` Generates the questions and answers based on current settings.

    Randomize timer()
    ` array of valid times tables from settings string
    empty array arrTables()
    for n = 1 to len(gSetting.tables)
        if mid$(gSetting.tables,n) = "1"
            add to queue arrTables() 
            arrTables() = n + 1
        endif
    next n

    ` Clear the questions array and fill it up!
    empty array arrQuestion()
    maxTable = array count(arrTables())

    for n = 0 to 99
        add to queue arrQuestion()
        arrQuestion().num1 = rnd(gSetting.max_multiplier - 1) + 1
        arrQuestion().num2 = arrTables(rnd(maxTable))
        arrQuestion().answer = arrQuestion().num1 * arrQuestion().num2

        repeat
            arrQuestion().alt1 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt1 <> arrQuestion().answer 

        repeat
            arrQuestion().alt2 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt2 <> arrQuestion().answer and arrQuestion().alt2 <> arrQuestion().alt1

        repeat
            arrQuestion().alt3 = generateAnswer(arrQuestion().num1, arrQuestion().num2)
        until arrQuestion().alt3 <> arrQuestion().answer and arrQuestion().alt3 <> arrQuestion().alt2 and arrQuestion().alt3 <> arrQuestion().alt1

    next n    

endfunction

function generateAnswer(val1, val2)
` Generates a random, incorrect answer

    ` Weight the type of answers that get generated
    ` Another valid multiple (e.g 3*4 instead of 4*4) = 30%
    ` A Close value = 50%
    ` A not-so-close value = 20%

    AnswerType = rnd(9) + 1
    
    ` Another valid multiple
    if AnswerType < 4
        repeat
            newVal = rnd(1): if newval = 0 then newVal = -1
            newVal = val1 + newVal
        until newVal <> 0
        answer = newVal * val2
        exitfunction answer 
    endif
    
    ` Another Close Answer
    if AnswerType < 9
        newVal = rnd(1): if newval = 0 then newVal = -1 
        curAnswer = (val1 * val2)
        answer =  ((rnd(2) + 1) * newVal) + curAnswer
        if answer <= 0 then answer = 1
        exitfunction answer
    endif    

    ` A less-close Answer
        text 600,10, "Less Close": sync
        newVal = rnd(1): if newval = 0 then newVal = -1 
        curAnswer = (val1 * val2)
        answer =  ((rnd(2) + 3) * newVal) + curAnswer
        if answer <= 0 then answer = 1
        exitfunction answer

endfunction answer

` Object Constants
#constant c_earth_base = 200
#constant c_mother_ship = 201
#constant c_child_ship1 = 202
#constant c_child_ship2 = 203
#constant c_child_ship3 = 204
#constant c_child_ship4 = 205
#constant c_skybox = 206

function _load_objects()
` Load the game objects

   `load object "earth_base.x", c_earth_base
   load object "mother_ship.x", c_mother_ship
   load object "child_ship.x", c_child_ship1
   clone object c_child_ship2, c_child_ship1
   clone object c_child_ship3, c_child_ship1
   clone object c_child_ship4, c_child_ship1
   `load object "skybox.x", c_skybox

   hide object c_mother_ship
   hide object c_child_ship1
   hide object c_child_ship2
   hide object c_child_ship3
   hide object c_child_ship4
   hide object c_skybox

endfunction

function _unload_objects()
` Load the game objects

   delete object c_earth_base
   delete object c_mother_ship
   delete object c_child_ship1
   delete object c_child_ship2
   delete object c_child_ship3
   delete object c_child_ship4
   delete object c_skybox

endfunction

function _setup_objects()
`Initialises the object positions etc...

   `Position objects - not sure of relative positions at this stage
   position object c_earth_base, 0,0,0
   position object c_mother_ship, 0,200,0
   position object c_child_ship1, -100,200,0
   position object c_child_ship2, 0,200,-100
   position object c_child_ship1, 100,200,0
   position object c_child_ship1, 0,200,100
   position object c_skybox,0,0,0
      
   show object c_mother_ship
   show object c_child_ship1
   show object c_child_ship2
   show object c_child_ship3
   show object c_child_ship4
   show object c_skybox

endfunction

function showMenuSettings()
` Show the Settings Menu (gamestate = c_menu_settings)
` When complete, set the gamestate back to c_menu_main

    ` Load Times Tables Settings into an array
    empty array arrTables()
    for n = 2 to 12
        add to queue arrTables()
        arrTables() = val(mid$(gSetting.tables, n - 1))
    next n

    load image "media\menuSettings.jpg", c_image_menu, 1
    make object plain c_image_menu, 800, 600
    texture object c_image_menu, c_image_menu
    positionOnScreen(c_image_menu,1,1,0)
    sync

    time = timer()
    set bitmap format 21
    ` *** Times Tables Selection Text
    SettingsTables()
    SettingsMultiplier()
    SettingsTimeLimit()
    SettingsExit()

    `Wait to allow user to release mouse from menu click
    repeat
    until timer() > time + 250

    leave = 0
    mousedown = 0
    repeat
        if mousedown > 0
            if mouseclick() = 0 then mousedown = 0 else mousedown = 2
        else
            if mouseclick() = 1 then mousedown = 1
        endif

        if mousedown = 1
            ` ****************************************
            ` *** Check for tables selection change
            ` ****************************************
            hit = pick object(mousex(), mousey(), c_image_settings_tables + 2, c_image_settings_tables + 12)
            if hit > 0
                selected = hit - c_image_settings_tables
                if selected > 1 and selected < 13
                    if arrTables(selected - 2) = 1 then arrTables(selected - 2) = 0 else arrTables(selected - 2) = 1
                    SettingsTables()
                endif
            endif

            ` ****************************************
            ` *** Check for max multiplier change
            ` ****************************************
            hit = pick object(mousex(), mousey(), c_image_settings_multiplier + 1, c_image_settings_multiplier + 2)
            if hit > 0
                selected = hit - c_image_settings_multiplier
                if selected = 1
                    inc gSetting.max_multiplier, 1
                    SettingsMultiplier()
                endif
                if selected = 2
                    if gSetting.max_multiplier > 1 then dec gSetting.max_multiplier, 1
                    SettingsMultiplier()
                endif
            endif

            ` ****************************************
            ` *** Check for time Limit change
            ` ****************************************
            hit = pick object(mousex(), mousey(), c_image_settings_timelimit + 1, c_image_settings_timelimit + 2)
            if hit > 0
                selected = hit - c_image_settings_timelimit
                if selected = 1
                    inc gSetting.time_limit, 0.5
                    SettingsTimeLimit()
                endif
                if selected = 2
                    if gSetting.time_limit > 3 then dec gSetting.time_limit, 0.5
                    SettingsTimeLimit()
                endif
            endif

            ` ****************************************
            ` *** Check for Exit buttons
            ` ****************************************
            hit = pick object(mousex(), mousey(), c_image_settings_exit, c_image_settings_exit + 1)
            if hit > 0
                selected = hit - c_image_settings_exit
                if selected = 0
                    gSetting.tables = ""
                    for n = 0 to array count(arrTables())
                        gSetting.tables = gSetting.tables + str$(arrtables(n))
                    next n
                    SaveSettings()
                    leave = 1
                endif
                if selected = 1
                    leave = 1
                endif
            endif

        endif

        if inkey$() <> "" then leave = 1
        sync
    until leave = 1

    delete object c_image_menu
    delete image c_image_menu
    SettingsDeleteAll()
    gamestate = c_menu_main

endfunction




function SettingsTables()
` Sets up the times tables selection options
` Can be called any time any option changes

    ` Settings title, X & Y Start positions, and space between options
    ` Title font Style and Size
    ` Option text size, slected an ddeselected colours
    text_title$ = "Select Tables"
    posX = 80
    posY = 150
    spaceY = 20
    title_font$ = "Arial Black"
    title_forecolor = rgb(255,255,255)
    title_backcolor = rgb(0,0,0)
    title_size = 28
    option_size = 18
    option_selected = rgb(0,0,255)
    option_deselected = rgb(255,255,255)
    option_backcolor = rgb(0,0,0)

    ` Delete existing objects and images
    st = c_image_settings_tables
    for n = st to st + 15
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    set text font title_font$
    set text size title_size
    ink title_forecolor, title_backcolor
    tw = text width(text_title$)
    create bitmap 1, tw, title_size
    center text bitmap width(1) / 2, 1, text_title$
    get image st,1,1,bitmap width(1), bitmap height(1), 1
    delete bitmap 1
    make object plain st, image width(st),image height(st)
    set object transparency st, 1
    set object light st, 0
    texture object st, st
    positionOnScreen(st,posX - (image width(st / 2)),posY,1)
    inc posY, spaceY

    set text size option_size
    for n = 2 to 12
        inc posY, spaceY
        if arrTables(n - 2) = 1
            ink option_selected, option_backcolor
        else
            ink option_deselected, option_backcolor
        endif
        create bitmap 1, tw, option_size
        center text bitmap width(1) / 2, 1, str$(n)
        get image st + n,1,1,bitmap width(1), bitmap height(1), 1
        delete bitmap 1
        make object plain st + n, image width(st + n),image height(st + n)
        ` If selected, make bigger
        set object transparency st + n, 1
        set object light st + n, 0
        texture object st + n, st + n
        positionOnScreen(st + n,posX - (image width((st + n) / 2)),posY,1)
    next n

endfunction

function SettingsMultiplier()
` Sets up the times tables Maximum Multiplier
` Can be called any time any option changes

    ` Settings title, X & Y Start positions, and space between options
    ` Title font Style and Size
    ` Option text size, slected an ddeselected colours
    text_title$ = "Max M'plier"
    posX = 60
    posY = 420
    spaceY = 26
    title_font$ = "Arial Black"
    title_forecolor = rgb(255,255,255)
    title_backcolor = rgb(0,0,0)
    title_size = 28
    option_size = 24
    option_selected = rgb(0,0,255)
    option_deselected = rgb(255,255,255)
    option_backcolor = rgb(0,0,0)

    ` Delete existing objects and images
    st = c_image_settings_multiplier
    for n = st to st + 3
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    set text font title_font$
    set text size title_size
    ink title_forecolor, title_backcolor
    tw = text width(text_title$ + "XXXX")
    create bitmap 1, tw, title_size
    center text bitmap width(1) / 2, 1, text_title$ + " : " + str$(gSetting.max_multiplier)
    get image st,1,1,bitmap width(1), bitmap height(1), 1
    delete bitmap 1
    make object plain st, image width(st),image height(st)
    set object transparency st, 1
    set object light st, 0
    texture object st, st
    positionOnScreen(st,posX - (image width(st / 2)),posY,1)
    inc posY, spaceY

    set text size option_size
    for n = 1 to 2
        if n = 1 then txt$ = "< + >" else txt$ = "< - >"
        inc posY, spaceY
        create bitmap 1, tw, option_size
        center text bitmap width(1) / 2, 1, txt$
        get image st + n,1,1,bitmap width(1), bitmap height(1), 1
        delete bitmap 1
        make object plain st + n, image width(st + n),image height(st + n)
        set object transparency st + n, 1
        set object light st + n, 0
        texture object st + n, st + n
        positionOnScreen(st + n,posX - (image width((st + n) / 2)),posY,1)
    next n

endfunction

function SettingsTimeLimit()
` Sets up the times tables Maximum Multiplier
` Can be called any time any option changes

    ` Settings title, X & Y Start positions, and space between options
    ` Title font Style and Size
    ` Option text size, slected an ddeselected colours
    text_title$ = "Time Limit"
    posX = 500
    posY = 150
    spaceY = 26
    title_font$ = "Arial Black"
    title_forecolor = rgb(255,255,255)
    title_backcolor = rgb(0,0,0)
    title_size = 28
    option_size = 24
    option_selected = rgb(0,0,255)
    option_deselected = rgb(255,255,255)
    option_backcolor = rgb(0,0,0)

    ` Delete existing objects and images
    st = c_image_settings_timelimit
    for n = st to st + 3
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    set text font title_font$
    set text size title_size
    ink title_forecolor, title_backcolor
    tw = text width(text_title$ + "XXXXXX")
    create bitmap 1, tw, title_size
    center text bitmap width(1) / 2, 1, text_title$ + " : " + str$(gSetting.time_limit)
    get image st,1,1,bitmap width(1), bitmap height(1), 1
    delete bitmap 1
    make object plain st, image width(st),image height(st)
    set object transparency st, 1
    set object light st, 0
    texture object st, st
    positionOnScreen(st,posX - (image width(st / 2)),posY,1)
    inc posY, spaceY

    set text size option_size
    for n = 1 to 2
        if n = 1 then txt$ = "< + >" else txt$ = "< - >"
        inc posY, spaceY
        create bitmap 1, tw, option_size
        center text bitmap width(1) / 2, 1, txt$
        get image st + n,1,1,bitmap width(1), bitmap height(1), 1
        delete bitmap 1
        make object plain st + n, image width(st + n),image height(st + n)
        set object transparency st + n, 1
        set object light st + n, 0
        texture object st + n, st + n
        positionOnScreen(st + n,posX - (image width((st + n) / 2)),posY,1)
    next n

endfunction

function SettingsExit()
` Sets up the Exit / Cancel Buttons
` Can be called any time any option changes

    ` Settings title, X & Y Start positions, and space between options
    ` Title font Style and Size
    ` Option text size, slected an ddeselected colours
    text_title$ = "Null"
    text_Save$ = "Save"
    text_Cancel$ = "Cancel"
    posX = 500
    posY = 500
    spaceX = 80
    spaceY = 26
    title_font$ = "Arial Black"
    title_forecolor = rgb(255,255,255)
    title_backcolor = rgb(0,0,0)
    title_size = 28
    option_size = 24
    option_selected = rgb(0,0,255)
    option_deselected = rgb(255,255,255)
    option_backcolor = rgb(0,0,0)

    ` Delete existing objects and images
    st = c_image_settings_Exit
    for n = st to st + 2
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    set text font title_font$
    set text size title_size
    ink title_forecolor, title_backcolor
    tw = text width(text_Save$ + "XX")
    create bitmap 1, tw, title_size
    center text bitmap width(1) / 2, 1, text_Save$
    get image st,1,1,bitmap width(1), bitmap height(1), 1
    delete bitmap 1
    make object plain st, image width(st),image height(st)
    set object transparency st, 1
    set object light st, 0
    texture object st, st
    positionOnScreen(st,posX - (image width(st / 2)),posY,1)
    inc posX, spaceX
    inc st

    tw = text width(text_Cancel$ + "XX")
    create bitmap 1, tw, title_size
    center text bitmap width(1) / 2, 1, text_Cancel$
    get image st,1,1,bitmap width(1), bitmap height(1), 1
    delete bitmap 1
    make object plain st, image width(st),image height(st)
    set object transparency st, 1
    set object light st, 0
    texture object st, st
    positionOnScreen(st,posX - (image width(st / 2)),posY,1)

endfunction

function SettingsDeleteAll()


    st = c_image_settings_tables
    for n = st to st + 15
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    st = c_image_settings_multiplier
    for n = st to st + 3
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    st = c_image_settings_timelimit
    for n = st to st + 3
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n

    st = c_image_settings_Exit
    for n = st to st + 2
        if object exist(n) then delete object n
        if image exist(n) then delete image n
    next n


endfunction


function free_sprite()

repeat
  inc n
until sprite exist(n)=0

endfunction n

function free_image()

repeat
  inc n
until image exist(n)=0

endfunction n

function setscore(value)

value$=str$(value)
if len(value$)<numberofscoredigits
  repeat
    value$="0"+value$
  until len(value$)=numberofscoredigits
endif
if len(value$)>numberofscoredigits
  value$=right$(value$,numberofscoredigits)
endif

  for digit=0 to numberofscoredigits-1
    set sprite image scoredigit+digit,digitimage+val(mid$(value$,digit+1))
  next digit

endfunction

function sethits(value)

value$=str$(value)
if len(value$)<numberofhitsdigits
  repeat
    value$="0"+value$
  until len(value$)=numberofhitsdigits
endif

if len(value$)>numberofhitsdigits
  value$=right$(value$,numberofhitsdigits)
endif

  for digit=0 to numberofhitsdigits-1
    set sprite image hitsdigit+digit,digitimage+val(mid$(value$,digit+1))
  next digit

endfunction

function settimer(value)

value$=str$(value)
if len(value$)<numberoftimerdigits
  repeat
    value$="0"+value$
  until len(value$)=numberoftimerdigits
endif

if len(value$)>numberoftimerdigits
  value$=right$(value$,numberoftimerdigits)
endif

  for digit=0 to numberoftimerdigits-1
    set sprite image timerdigit+digit,digitimage+val(mid$(value$,digit+1))
  next digit

endfunction

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

sync on
set display mode 800,600,32

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

#CONSTANT WIDTH=800
#CONSTANT HEIGHT=600
#CONSTANT EASY_START=100000
#CONSTANT NORMAL_START=50000
#CONSTANT HARD_START=25000
#CONSTANT HUMAN=0
#CONSTANT COMPUTER=1
`AI TYPES, can add more
#CONSTANT WARLORD=0
#CONSTANT TRADER=1
#CONSTANT MIXED=2

`-------------------------------------------------------------------------------------------------
` 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
   `---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


`-----------------------------------------------------------------------------------------------
` Game Variables
`-----------------------------------------------------------------------------------------------
Dim Player(-1) as PARTICIPANT
Dim Planet(-1) as PLANET_OBJECT
Dim Goods(-1) as COMMODITY

`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------


`-----------------------------------------------------------------------------------------------
` GAME SETUP
`-----------------------------------------------------------------------------------------------


`-----------------------------------------------------------------------------------------------
` MAIN GAME LOOP
`-----------------------------------------------------------------------------------------------
repeat
   sync
until GAME_OVER=1

end `for now just end program after game is done

`-----------------------------------------------------------------------------------------------
` FUNCTIONS
`-----------------------------------------------------------------------------------------------

for a = 0 to 20000
 sector(a).seed=timer()
next a

`-------------------------------------------------------------------------------------------------
`    Space Trading Game, DBpro Community Project V, Started 3-24-07
`    Contributers: Hobgoblin Lord, *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 = 20
#CONSTANT MIN_PLANETS_PER_SECTOR = 5

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

`-------------------------------------------------------------------------------------------------
` 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
   `---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


`-----------------------------------------------------------------------------------------------
` Game Variables
`-----------------------------------------------------------------------------------------------
Dim Player(-1) as PARTICIPANT
Dim Planet(-1) as PLANET_OBJECT
Dim Goods(-1) as COMMODITY
Dim Vowels(5) as string
Dim Consonants(19) as string
Dim Sector_Seed(BASE_SECTORS) as dword

`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------
Set_Alphabet()
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 5
      read vowels(a)
   next a

   for a = 0 to 19
      read consonants(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
   for a = 1 to NUMBER_PLANETS
      array insert at top Planet()
      Planet(0).Name=GET_PLANET_NAME()
   next a
endfunction

function GET_PLANET_NAME()
   Number_Letters=rnd(7)+4
   temp$=""
   for a = 1 to Number_Letters
      b=rnd(1)
      if b = 1
         temp$=temp$+vowels(rnd(5))
      else
         temp$=temp$+consonants(rnd(19))
      endif
      if len(temp$)=1 then temp$=UPPER$(temp$)
   next a
endfunction temp$

function TEMP_FUNCTION()
   cls
   for a = 0 to array count(Planet())
      print Planet(a).Name
   next a
endfunction


`-----------------------------------------------------------------------------------------------
`   DATA
`-----------------------------------------------------------------------------------------------
Data "a","e","i","o","u","y"
Data "b","c","d","f","g","h","j","k","l","m","n","p","q","r","s","t","v","w","x","z"

`-------------------------------------------------------------------------------------------------
`    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 = 20
#CONSTANT MIN_PLANETS_PER_SECTOR = 5

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

`-------------------------------------------------------------------------------------------------
` 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
   `---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


`-----------------------------------------------------------------------------------------------
` 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

`-----------------------------------------------------------------------------------------------
` INITIALIZATION
`-----------------------------------------------------------------------------------------------
Set_Alphabet()
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
   for a = 1 to NUMBER_PLANETS
      array insert at top Planet()
      Planet(0).Name=GET_PLANET_NAME()
   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 TEMP_FUNCTION()
   cls
   for a = 0 to array count(Planet())
      print Planet(a).Name
   next a
endfunction


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