Sorry your browser is not supported!

Rem Project: Castle_fight
Rem Created: Sunday, October 30, 2011

Rem ***** Main Source File *****


rem begin game source code
rem *************************************

gosub setup
gosub setvariables
gosub invsetup
gosub loadlast


rem main loop
do

rem check to see if menu has/needs to be displayed
if menu = 0 then gosub menuscreen

rem if player selected new game then show newgame screen
if newgame = 1 then gosub newgamestart

if battlebegin = 1 

     gosub battle 

endif    


  



loop
















rem subroutines start here
rem ************************************************

setup:

    rem clear the screen
    cls

    rem set resoloution

    rem hide mouse
    hide mouse

    rem set random seed
    randomize timer()




    rem end setup
return



setvariables:

    rem variables for the main menu
    menu = 0
    
    rem variables for a new game
    newgame = 0

    rem variables for the battle
    battlebegin = 1
    ingamemenuselection$ = ""
    
    rem create player and enemy arrays
    dim enemy(3)
    dim player(3)
    
    
    rem temporary array for storing old information from savegame file
    dim temparray(4) 
    savegamefile$ = "savegame.dat"

return

menuscreen:

    print "Castle fight!"
    print "please choose an option"
    print
    print "1: new game"
    print "2: load game"
    print "3: tutorial"
    
    rem gather players choice and set variable
    input "", menuselection
    
    
    rem conditional statements for players choice
    if menuselection = 2
        
            rem load previous game stats
            rem place stats into array from temparray
            enemy(1) = temparray(1)
            enemy(2) = temparray(2)
            player(1) = temparray(3)
            player(2) = temparray(4)
            
            rem turn off the main menu
            menu = 1
            
            rem battle is ready to begin 
            battlebegin = 1
        
    ENDIF
    
    if menuselection => 3 
      
            rem print tutorial
            print
            print "this is the tutorial"
            print
            wait key
            battlebegin = 0
    ENDIF
    
    if menuselection =< 1
        
        rem set newgame to 1 so that a new game will be started
        newgame = 1   
        
        menu = 1
    
    ENDIF
    
    
    cls
    

return

invsetup:

rem setup names of weapons and store in array
dim inv$(3)
inv$(1) = "sword"
inv$(2) = "hammer"
inv$(3) = "axe"

rem setup dmg of weapons 
dim invdmg(3)
invdmg(1) = 5
invdmg(2) = 2
invdmg(3) = 3

    

return



newgamestart:

    rem set variables for a new game
   
    enemy(1) = 100
    enemy(2) = rnd(2)+1
    
    
    player(1) = 100
    player(2) = 1
    
    print 
    print "please select a weapon"
    print "1: sword - 5 damage"
    print "2: hammer - 2 damage"
    print "3: axe - 3 damage"
    print
    
    rem get the players choice and store as weaponchoice
    input "", weaponchoice
    cls
    
    
    rem store chosen weapon in array
    if weaponchoice =< 1 then player(2) = 1
    if weaponchoice = 2 then player(2) = 2
    if weaponchoice => 3 then player(2) = 3
    
    print "you have selected the " + inv$(player(2))
    print "the battle begins..."
    wait key  
    
    cls
    newgame = 0
    battlebegin = 1
return

battle:
    
    rem set enemys dmg multiplyer and damage of strike
    enemy(3) = rnd(3) 
    enemydos = invdmg(enemy(2)) * enemy(3)
    
    
    rem set your damage multiplyer and damage of strike
    player(3) = rnd(3) 
    playerdos = invdmg(player(2)) * player(3)
    
    rem adjust enemy health from dos
    enemy(1) = enemy(1) - playerdos
    
    rem adjust play health from dos
    player(1) = player(1) - enemydos
    
    
    
    print "you and your oponent attack each other!"
    print "you did "; playerdos; " damage!"
    print "your enemy did "; enemydos; " damage!"
    print "you have " + str$(player(1)) + " health"
    print "your enemy has " + str$(enemy(1)) + " health"
    
    
    rem print in-battle menu with the option to save
    input "enter m for in-game menu, otherwise hit enter > ", ingamemenuselection$
    if ingamemenuselection$ = "m" 
        
        cls
        rem print in game menu
        print "1: save game"
        print "2: exit game"
        print "3: continue"
        print 
        input "", ingamemenuselection2
        
        rem outcome due to menu selection
        if ingamemenuselection2 =< 1 
        
            if file exist(savegamefile$) = 1
            
                delete file savegamefile$
            
            ENDIF
        
            
            open to write 1, savegamefile$
            
            for x =1 to 2
                
                write string 1, str$(enemy(x))
            
            NEXT x
            
            for x = 1 to 2
                
                write string 1, str$(player(x))
            
            NEXT
        
            close file 1
        
        ENDIF
        
        if ingamemenuselection2 = 2
        
            
            rem if the player chooses to exit set to no more battles and play menu
            battlebegin = 0
            menu = 0
        
        ENDIF
        
    ENDIF
    
    
    
    wait key
    cls
    
    

return

loadlast:

    if file exist(savegamefile$) = 1
    
        rem open the file to read
        open to read 1, savegamefile$
        
        for x = 1 to 4
            
            read string 1, t$ : temparray(x) = val(t$)
            
        NEXT x
        
        
        rem close and delete the file only if it is stored in game memory
        close file 1
        
        delete file savegamefile$
        
        
    ENDIF


return

rem create type
type ship
    x as integer
    y as integer
    speed as float
    sprite_number as integer
    image_number as integer
endtype

rem create a ship
spaceship as ship

rem spaceship can now 'access' all of the variables listed in the type ship.  These are referenced through a period (.).
spaceship.x = 320
spaceship.y = 240
spaceship.speed = 3.0
spaceship.sprite_number = 1
spaceship.image_number = 1

type
    dim array[10]
endtype

`Comment like this...
//...or like this. "rem" looks messy (personal tastes though)
remstart
   If you have multiple lines, you can use remstart but indenting
   your comments will look a lot neater (just taste, again).
   Personally I don't like remstart/end purely for aesthetics.
remend

`On the subject of indents, indent your DOs, IFs, etc.
`You don't have to capatalise keywords, I'm just doing it because
`I want to get into the habit (personal aesthetics)
DO
   BlahBlah()
   IF CoffeeBreak = 1
      MakeMyCoffee()
      PauseForCoffee()
      CleanUpCoffeeSpills()
   ENDIF     
LOOP

END

FUNCTION BlahBlah()
`Always indent code within a function.
   CLS
   FOR i = 1 TO 60
      PRINT STR$(i) + "Mississipi"
   NEXT i
   PRINT "I counted quickly, right?"
   PRINT "Press any key..."
   WAIT KEY
ENDFUNCTION

rem vector 3
type vec3
   x# as float
   y# as float
   z# as float
endtype

rem player type
type player_t
   pos as vec3
   oldpos as vec3
   angle as vec3
   ammo as integer
endtype

rem player dimension
dim player(100) as player_t

rem store old positions
player(t).oldpos = player(t).pos

rem move player
inc player(t).pos.x#,2
inc player(t).pos.y#,2
inc player(t).pos.z#,3

rem rotate player
player(t).angle.x#=0
player(t).angle.y#=90
player(t).angle.z#=4