-----------------------------------

warburk

Wed Dec 06, 2006 10:13 am


[b]This is a text game [/b]

-----------------------------------

This the is code for this game 
So insted of the other ones that i've posted you don't need to download.

Code:
%After Game (Start) (Text Game)
var die1, die2 : int         %Used for the dice roll at the beginning
var reply : string (1)         %Also Used for the dice
var reply1 : string         %Used for the reply for a weapon
var gone : int         %Used to find the attack of the weapon
var mastersword, magicblast, canon, machinegun : string         %Used to pick the weapon
var reply2 : string         %Used for the reply for the shield
var hell : int         %Used to find the defence of the shield
var dragonshield, forcefield, blastshield, minecanonshield : string         %Used to pick the shield
var reply3 : string         %Used for the reply for the pet
var smell : int         %Used to find the power of the pet
var cat, dog, other : string         %Used to pick out the pets power
var petName : string         %Used to pick the name for the pet
var spName : string         %Used for the other pets in the game
var power, defence, animal : int         %The grand total of the attacks for the person
var reply4 : string         %Used to find the year you were sent to
var reply5 : string         %Used to find the place you were sent to
%Start of the Game
var reply7 : string (1)         %Used at the beginning of the game/end of intro
var place : string         %Places on the planet that you chose
%Graveyard
var sure : int         %Reaper's Attack
var sure1 : int         %Reaper's Defence
var sure2 : int         %Swordsman(GRyard) attack
var sure3 : int         %Swordsman(GRyard) defence
var repain : string         %Graveyard
var repain1 : string         %Actions in the graveyard
%The mall
var easyXY : string         %Enter the mall
var easyXYZ : string       %After Knock out (Mall)
var easy1 : string         %Gun scene
var easy2 : int         %roll
var easy3 : int         %kick
var easy4 : string
var easy5 : string
var store : string         %Choosing what store you want to go to
var store1 : string
%The Pit of Doom
var easy : string         %The Pit of Doom (1)
var easyX : string         %The Pit of Doom (2)
%Money
var mon : string         %The money that you get for free (price)
var mon2 : string         %Second Money Part
var dice, dice2 : int         %Getting money
%Coin Flips
var flip : int         %Reaper Battle
var flip1 : int         %Swordsman Battle
var flip2 : int
var flip3 : int
%Coin Flips(2)
var coin : int
var coin1 : int
var coin2 : int
var coin3 : int
%Names
var firstName : string         %your name
var firstName2 : string         %S.captain of the train
var firstName3 : string         %Masked Woman
var firstName4 : string         %Woman on the road with money
var firstName5 : string         %Person in front of the mall
%Fonts
var font : int         %Title Page
var font1 : int         %Hints
var font2 : int         %Mall scene
var font3 : int
var font4 : int
var font5 : int
%Sounds
var note : string (1)
var note1 : string (1)
var note2 : string
var note3 : string
var note4 : string

%Background
colorback (47)
for row : 1 .. 25
    for column : 1 .. 80
        locate (row, column)
        %Ouput
        put " " ..
    end for
end for

font := Font.New ("Algerian:24")
Font.Draw ("Kyle Warburton's Game", 200, 110, font, green)
Font.Draw ("Dragon Destiny of Darkness", 160, 300, font, red)
drawfillmapleleaf (100, 100, 200, 200, red)

getch (note)
play (",d,e,b