Sorry your browser is not supported!

Load_Game:
CLS

Set Dir "D:\DARK Basic Pro\Projects\Sword Play\Saves"

Input "Enter Charactor Name ",PLoad$

If File Exist (PLoad$)
  Load Array PLoad$+"$", Player$(0)
  Load Array PLoad$, Player(0)
 Else
  Text 10,30, "Charactor not found."
  Text 10,50, "Would you like to try again? Y/N"

New_Game: `Creating Players Charactor.

DIM Player$(5)
DIM Player(18)

`Player (P_) variblies.
P_Name$="Player" : P_Race$="It"
P_Weapon$="Fist" : P_WepAtt$="Punches" : P_Armor$="Cloth"
P_THP=0 : P_Str=0 : P_Dex=0 : P_Con=0 : P_Luck=0
P_WD=0 : P_WW=0 : P_Arm=0 : P_AW=0
P_Att=0 : P_Def=0 : P_Spd=0 : P_Wght=0
P_XP=0 : P_Potion=0 : ChPt=0

CLS

EndPlayer: `When E_HP reaches zero.
CLS

Text 10,10, "You have beaten the "+E_Race$+"."
Text 10,30, "You have gained "+Str$(E_XP)+" XP."
Text 10,50, "Total XP: "+Str$(P_XP)+"."
Text 10,70, "Gold Gained: "+Str$(E_Cash)+", Total Gold: "+Str$(P_Cash)+"."
Text 10,90, "Please select your next action."
Text 10,110, "[1]Next Fight [2]Shop [3]Save [4]Main Menu"

Repeat
  KP$=Inkey$()
 Until KP$="1" or KP$="2" or KP$="3" or KP$="4"

If KP$="1"
  KP$="\" : Wait 500
  Goto Continue
 Endif

If KP$="2"
  KP$="\" : Wait 500
  Gosub Store
 Endif

If KP$="3"
  KP$="\" : Wait 500

Player$(0)=P_Name$ : Player$(1)=P_Race$ : Player$(2)=P_Weapon$
Player$(3)=P_WepAtt$ : Player$(4)=P_Armor$

Player(0)=P_THP : Player(1)=P_Str : Player(2)=P_Dex : Player(3)=P_Con
Player(4)=P_Luck : Player(5)=P_WD : Player(6)=P_WW : Player(7)=P_Arm
Player(8)=P_AW : Player(9)=P_Att : Player(10)=P_Def : Player(11)=P_Spd
Player(12)=P_Wght : Player(13)=ChPt : Player(14)=P_XP : Player(15)=P_Potion
Player(16)=P_Lvl : Player(17)=P_Cash

  Save Array "Saves\"+P_Name$+"$",Player$(0)
  Save Array "Saves\"+P_Name$,Player(0)

  Goto EndPlayer
 Endif

If KP$="4"
  KP$="\" : Wait 500
  Goto Start
 Endif

Set Display Mode 800,600,32 : Hide Mouse

`All the Arrays
DIM Player$(2)

Gosub MainMenu `Going the Main Menu

`What will be a Do/Loop
CLS

Text 10,50, Player$(0)+" a "+Player$(1)
Text 10,70, "Would you like to save this charactor? Y/N"

Repeat
  KP$=Upper$(Inkey$())
 Until KP$="Y" or KP$="N"

If KP$="Y"
  KP$="/"
  Save Array "D:\DARK Basic Pro\Projects\Redemption\Arrays\"+P_Name$, Player$(0)
 Endif

If KP$="N"
  KP$="/"
 Endif

wait key
end

MainMenu: `Main Menu
CLS

`Splash Screen
Set Text Font "Roman",1
Set Text Size 120
Center Text 400,200, "Of Flesh and Steel"
Set Text Size 20
Center Text 400,500, "By Matthew Goff"
Wait 2000
CLS

`Menu
Set Text Size 50
Center Text 400, 200, "Of Flesh and Steel"
Set Text Size 20
Text 300,250, "[1]Play"
Text 400,260, "[2]Load"
Text 500,270, "[3]Quit"

Repeat
  KP$=Inkey$()
Until KP$="1" or KP$="2" or KP$="3"

If KP$="1"
  KP$="/"
  Gosub P_Creation
 Endif

If KP$="2"
  KP$="/"
  Gosub LoadGame `Going to Load Game
 Endif

If KP$="3"
  KP$="/"
  End
 Endif

Return

P_Creation:
CLS

Input "Please enter your Charactors name. ", P_Name$
Player$(0)=P_Name$

Text 10,30, "Please select "+P_Name$+"'s Race."
Text 10,50, "[1]Human [2]Troll [3]Gnoll"

Set Cursor 210,50, : Input "", KP$

If KP$="1"
  KP$="/"
  P_Race$="Human"
 Endif

If KP$="2"
  KP$="/"
  P_Race$="Troll"
 Endif

If KP$="3"
  KP$="/"
  P_Race$="Gnoll"
 Endif

Player$(1)=P_Race$

Return

LoadGame: `Loading a Saved Game
CLS

Input "Name of Charactor to load? ", P_Load$
Load Array "D:\DARK Basic Pro\Projects\Redemption\Arrays\"+P_Load$, Player$(0)

Wait Key
Return

If KP$="1"
  KP$=""
  P_Race$="Human"
 Endif

If KP$="2"
  KP$=""
  P_Race$="Troll"
 Endif

If KP$="3"
  KP$=""
  P_Race$="Gnoll"
 Endif

Player$(1)=P_Race$

select KP$
   case 1 : P_Race$="Human" :endcase
   case 2 : P_Race$="Troll" :endcase
   case 3 : P_Race$="Gnoll" :endcase
endselect

select KP$
   case "1" : P_Race$="Human" :endcase
   case "2" : P_Race$="Troll" :endcase
   case "3" : P_Race$="Gnoll" :endcase
endselect

Hello=1
Select Hello
    Case 1
        print "The variable is equal to 1"
    Endcase
Endselect

rem Start the loop.
do
   cls
   rem Set our variable.
   KeyPress$=inkey$()

   rem Select the "KeyPress$" variable to look at.
   Select KeyPress$

      rem If it's the case that Keypress$ variable is equal to "1"...
      `   (It's a string because that's what the "inkey$()" command returns)
      `   Then tell the user they are pressing 1.
      Case "1"
         Print "You're pressing the number 1"
         Print "Our first case statement was made true."
      Endcase

      rem The same for "2"
      Case "2"
         Print "You're pressing the number 2"
         Print "Our second case statement was made true."
      Endcase

      rem And the same for "3" as well.
      Case "3"
         Print "You're pressing the number 3"
         Print "Our third case statement was made true."
      Endcase

      rem Now, if the case statements didn't pick up anything (you weren't doing ANYTHING that made
      `   them true), then we print this text by default. We use the CASE DEFAULT command to do this.
      Case Default
         Print "You are NOT pressing a number from 1 to 3. None of my case statements"
         Print "detected you were, so you can't be. I don't know if you're even pressing anything"
         PRint "right now, but it doesn't really matter to me. I'm just a CASE DEFAULT statement."
         Print "If you aren't making any of the CASE statements match their conditions, then I show up."
         Print "Please press a key of number 1-3."
      Endcase

   Endselect

Loop

CLS
Text 10,10, "Please Select "+Player$(0)+"'s Weapon."
Text 10,30, "[1]Dagger [2]Club [3]Spear [4]Hatchet"
Set Cursor 250,10, : Input "", KP$

PW=Val(KP$)-1

For m=0 to 2
  Player$(m+3)=Weapons$(m,PW)
 Next m

For n=0 to 2
  Player(n+16)=Weapons(n,PW)
 Next n