newvar level = "1";
newvar gold = "20";
newvar exp = "0";
newvar expt = 30;
newvar mhpf = level * 15 / 2;
newvar mhp = int(mhpf);
newvar hp = mhp;
newvar name = "null";
newvar weapon = "Rusty Dagger";
newvar armor = "Leather Armor";
newvar weppower = "1";
newvar damage;
newvar armpower = "1";
newvar storeran;
newvar wins = "0";
newvar loss = "0";
newvar olevel;
newvar omhpf;
newvar omhp;
newvar ohp;
newvar oname;
newvar odamage;
newvar oweppower;
newvar oarmpower;
newvar oexp;
newvar ogold;
newvar round = 0;
newvar tround = 0;
newvar install;
function pressmain()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "F" then;
screenput "-Fight";
pause 0.5;
FightOne();
elseif ucase(push) = "S" then;
screenput "-Store";
pause 0.5;
StoreW();
elseif ucase(push) = "T" then;
screenput "-Stats";
pause 0.5;
Stats();
endif;
loop;
}
function pressstorew()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "A" then;
StoreA();
elseif ucase(push) = "1" then;
clear;
if gold <=9 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=9 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Rusty Dagger";
weppower = "1";
gold = gold - 10;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "2" then;
clear;
if gold <=49 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=49 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Old Sword";
weppower = "3";
gold = gold - 50;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "3" then;
clear;
if gold <=249 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=249 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Iron Mace";
weppower = "6";
gold = gold - 250;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "4" then;
clear;
if gold <=499 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=499 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Steel Katana";
weppower = "10";
gold = gold - 500;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "5" then;
clear;
if gold <=1999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=1999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Glowing Dagger";
weppower = "15";
gold = gold - 2000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "6" then;
clear;
if gold <=4999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=4999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Holy Sword";
weppower = "21";
gold = gold - 5000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "7" then;
clear;
if gold <=11999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=11999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Dark Hammer";
weppower = "28";
gold = gold - 12000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "8" then;
clear;
if gold <=14999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=14999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Light Hammer";
weppower = "30";
gold = gold - 15000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "9" then;
clear;
if gold <=29999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreW();
elseif gold >=29999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
weapon = "Doom Blade";
weppower = "50";
gold = gold - 30000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreW();
endif;
elseif ucase(push) = "Q" then;
clear;
Title();
endif;
loop;
}
function pressstorea()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "W" then;
StoreW();
elseif ucase(push) = "1" then;
clear;
if gold <=9 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=9 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Leather Armor";
armpower = "1";
gold = gold - 10;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "2" then;
clear;
if gold <=49 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=49 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Rusty ChainMail";
armpower = "2";
gold = gold - 50;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "3" then;
clear;
if gold <=249 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=249 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Iron ChainMail";
armpower = "5";
gold = gold - 250;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "4" then;
clear;
if gold <=499 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=499 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Iron Plate";
armpower = "11";
gold = gold - 500;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "5" then;
clear;
if gold <=1999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=1999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Steel ChainMail";
armpower = "14";
gold = gold - 2000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "6" then;
clear;
if gold <=4999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=4999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Holy Armor";
armpower = "25";
gold = gold - 5000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "7" then;
clear;
if gold <=11999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=11999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Dark Armor";
armpower = "29";
gold = gold - 12000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "8" then;
clear;
if gold <=14999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=14999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Light Armor";
armpower = "32";
gold = gold - 15000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "9" then;
clear;
if gold <=29999 then;
screenput "Not Enough Gold!";
pause 1.2;
clear;
StoreA();
elseif gold >=29999 then;
screenput "Buying..."; screen; screen;
pause 0.5;
screenput "Equipping...";
armor = "Doom Armor";
armpower = "50";
gold = gold - 30000;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
pause 0.5;
clear;
StoreA();
endif;
elseif ucase(push) = "Q" then;
clear;
Title();
endif;
loop;
}
function pressfightone()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "N" then;
clear;
FightTwo();
elseif ucase(push) = "1" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Child";
olevel = 1;
oexp = 8;
ogold = 2;
omhpf = 1 * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Child";
oweppower = "1";
oarmpower = "1";
pause 1;
clear;
Fighting();
elseif ucase(push) = "2" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Father";
olevel = 3;
oexp = 16;
ogold = 4;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Father";
oweppower = "2";
oarmpower = "1";
pause 1;
clear;
Fighting();
elseif ucase(push) = "3" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Cow";
olevel = 4;
oexp = 35;
ogold = 6;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Cow";
oweppower = "1";
oarmpower = "2";
pause 1;
clear;
Fighting();
elseif ucase(push) = "4" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Bull";
olevel = 5;
oexp = 37;
ogold = 6;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Bull";
oweppower = "2";
oarmpower = "2";
pause 1;
clear;
Fighting();
elseif ucase(push) = "5" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Farmer";
olevel = 8;
oexp = 38;
ogold = 8;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Farmer";
oweppower = "3";
oarmpower = "2";
pause 1;
clear;
Fighting();
elseif ucase(push) = "6" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Giant Blob";
olevel = 10;
oexp = 41;
ogold = 9;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Giant Blob";
oweppower = "3";
oarmpower = "3";
pause 1;
clear;
Fighting();
elseif ucase(push) = "7" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Soldier";
olevel = 13;
oexp = 43;
ogold = 10;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Soldier";
oweppower = "4";
oarmpower = "2";
pause 1;
clear;
Fighting();
elseif ucase(push) = "8" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Warrior";
olevel = 15;
oexp = 45;
ogold = 11;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Warrior";
oweppower = "4";
oarmpower = "3";
pause 1;
clear;
Fighting();
elseif ucase(push) = "9" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Barbarian";
olevel = 18;
oexp = 48;
ogold = 12;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Barbarian";
oweppower = "5";
oarmpower = "4";
pause 1;
clear;
Fighting();
elseif ucase(push) = "Q" then;
clear;
Title();
endif;
loop;
}
function pressfighttwo()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "N" then;
clear;
FightThree();
elseif ucase(push) = "P" then;
clear;
FightOne();
elseif ucase(push) = "1" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Sand Worm";
olevel = 20;
oexp = 50;
ogold = 13;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Sand Worm";
oweppower = "7";
oarmpower = "4";
pause 1;
clear;
Fighting();
elseif ucase(push) = "2" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Sand Beetle";
olevel = 24;
oexp = 55;
ogold = 15;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Sand Beetle";
oweppower = "7";
oarmpower = "5";
pause 1;
clear;
Fighting();
elseif ucase(push) = "3" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Troll";
olevel = 26;
oexp = 59;
ogold = 17;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Troll";
oweppower = "8";
oarmpower = "5";
pause 1;
clear;
Fighting();
elseif ucase(push) = "4" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Giant";
olevel = 30;
oexp = 65;
ogold = 19;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Giant";
oweppower = "9";
oarmpower = "5";
pause 1;
clear;
Fighting();
elseif ucase(push) = "5" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Cyclops";
olevel = 34;
oexp = 65;
ogold = 23;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Cyclops";
oweppower = "8";
oarmpower = "7";
pause 1;
clear;
Fighting();
elseif ucase(push) = "6" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Baby Dragon";
olevel = 36;
oexp = 68;
ogold = 22;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Baby Dragon";
oweppower = "9";
oarmpower = "6";
pause 1;
clear;
Fighting();
elseif ucase(push) = "7" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Doom Knight";
olevel = 38;
oexp = 70;
ogold = 25;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Doom Knight";
oweppower = "9";
oarmpower = "8";
pause 1;
clear;
Fighting();
elseif ucase(push) = "8" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Paladin";
olevel = 41;
oexp = 75;
ogold = 27;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Paladin";
oweppower = "10";
oarmpower = "9";
pause 1;
clear;
Fighting();
elseif ucase(push) = "9" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Green Dragon";
olevel = 45;
oexp = 80;
ogold = 30;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Green Dragon";
oweppower = "12";
oarmpower = "9";
pause 1;
clear;
Fighting();
elseif ucase(push) = "Q" then;
clear;
Title();
endif;
loop;
}
function pressfightthree()
{ doevents;
newvar push, gotanswer = False;
do while 1 = 1;
getch push;
if ucase(push) = "P" then;
clear;
FightTwo();
elseif ucase(push) = "1" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Hydra";
olevel = 48;
oexp = 84;
ogold = 32;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Hydra";
oweppower = "13";
oarmpower = "10";
pause 1;
clear;
Fighting();
elseif ucase(push) = "2" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Red Dragon";
olevel = 51;
oexp = 85;
ogold = 34;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Red Dragon";
oweppower = "14";
oarmpower = "11";
pause 1;
clear;
Fighting();
elseif ucase(push) = "3" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Flame Hydra";
olevel = 55;
oexp = 88;
ogold = 34;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Flame Hydra";
oweppower = "16";
oarmpower = "10";
pause 1;
clear;
Fighting();
elseif ucase(push) = "4" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Duel Head Hydra";
olevel = 58;
oexp = 91;
ogold = 35;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Duel Head Hydra";
oweppower = "14";
oarmpower = "14";
pause 1;
clear;
Fighting();
elseif ucase(push) = "5" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Black Dragon";
olevel = 62;
oexp = 93;
ogold = 37;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Black Dragon";
oweppower = "17";
oarmpower = "13";
pause 1;
clear;
Fighting();
elseif ucase(push) = "6" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Undead Dragon";
olevel = 65;
oexp = 97;
ogold = 35;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Undead Dragon";
oweppower = "19";
oarmpower = "13";
pause 1;
clear;
Fighting();
elseif ucase(push) = "7" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. King Dragon";
olevel = 68;
oexp = 100;
ogold = 38;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "King Dragon";
oweppower = "18";
oarmpower = "16";
pause 1;
clear;
Fighting();
elseif ucase(push) = "8" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen; screenput name& " .vs. Dark Lord";
olevel = 75;
oexp = 120;
ogold = 44;
omhpf = olevel * 15 / 2;
omhp = int(omhpf);
ohp = omhp;
oname = "Dark Lord";
oweppower = "21";
oarmpower = "21";
pause 1;
clear;
Fighting();
elseif ucase(push) = "9" then;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screenput &ucase(name) " .VS. ULTIMA WEAPON";
olevel = 99;
oexp = 250;
ogold = 100;
omhp = "1337";
ohp = omhp;
oname = "Ultima Weapon";
oweppower = "35";
oarmpower = "35";
pause 1;
clear;
Fighting();
elseif ucase(push) = "Q" then;
clear;
Title();
endif;
loop;
}
function main();
{ doevents;
name();
}
function name();
{ doevents;
install = fileexist("C:\DPPLevel.dat");
if install = False then;
Install();
endif;
screenput " ///-\\\-///-\\\-=[D++ BATTLE 2004 v4.39]=-///-\\\-///-\\\"; screen; screen;
title "D++ BATTLE 2004 v4.39 - ";
screenput "NAME: ";
screenin name; screen; screen;
screenput "Welcome " &name;
pause 1;
title "D++ BATTLE 2004 v4.39 - " &name;
Title();
}
function Title();
{ doevents;
clear;
level = left(readfile("C:\DPPLevel.dat"), "4");
gold = left(readfile("C:\DPPGold.dat"), "9");
weapon = left(readfile("C:\DPPWeap.dat"), "15");
armor = left(readfile("C:\DPPArm.dat"), "16");
weppower = left(readfile("C:\DPPWepp.dat"), "3");
armpower = left(readfile("C:\DPPArmd.dat"), "3");
exp = left(readfile("C:\DPPExp.dat"), "40");
mhpf = level * 15 / 2;
mhp = int(mhpf);
hp = mhp;
expt = level * level * 20;
clear;
screenput " ///-\\\-///-\\\-=[D++ BATTLE 2004 v4.39]=-///-\\\-///-\\\"; screen; screen;
screenput " -=[F - Fight S - Store T - Stats]=-"; screen;
screenput ">";
pressmain();
}
function Stats();
{ doevents;
clear;
screenput " ///-\STATS/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\STATS/-\\\"; screen; screen;
screenput " Level: " &trim(level)& "";
screenput " Exp: " &trim(exp);
screenput " Next Level At " &expt& " Exp"; screen;
screenput " Gold: " &trim(gold);
screenput " HP: " &mhp; screen;
screenput " Weapon: " &trim(weapon);
screenput " Armor: " &trim(armor);
screenput " Damage: +" &trim(weppower);
screenput " Defence: +" &trim(armpower);
pak;
Title();
}
function StoreW();
{ doevents;
f_open ("C:\DPPWeap.dat","w")
screenput "BLOCK";
f_out ("1", trim(weapon));
f_close ("1");
f_open ("C:\DPPWepp.dat","w")
screenput "BLOCK";
f_out ("1", trim(weppower));
f_close ("1");
clear;
screenput " ///-\STORE/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\STORE/-\\\"; screen; screen;
screenput " #--Name-----------Power---Cost----------------Gold:" &gold; screen;
screenput " 1: Rusty Dagger +1 - 10g"; screen;
screenput " 2: Old Sword +3 - 50g"; screen;
screenput " 3: Iron Mace +6 - 250g"; screen;
screenput " 4: Steel Katana +10 - 500g"; screen;
screenput " 5: Glowing Dagger +15 - 2000g"; screen;
screenput " 6: Holy Sword +21 - 5000g"; screen;
screenput " 7: Dark Hammer +28 - 12000g"; screen;
screenput " 8: Light Hammer +30 - 15000g"; screen;
screenput " 9: Doom Blade +50 - 30000g"; screen;
screenput " A - Armor"; screen; screen;
screenput " # - Purchase Q - Exit"; screen;
screenput ">";
pressstorew();
}
function StoreA();
{ doevents;
f_open ("C:\DPPArm.dat","w")
screenput "BLOCK";
f_out ("1", trim(armor));
f_close ("1");
f_open ("C:\DPPArmd.dat","w")
screenput "BLOCK";
f_out ("1", trim(armpower));
f_close ("1");
clear;
screenput " ///-\STORE/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\STORE/-\\\"; screen; screen;
screenput " #--Name----------Defence--Cost----------------Gold:" &gold; screen;
screenput " 1: Leather Armor +1 - 10g"; screen;
screenput " 2: Rusty ChainMail +2 - 50g"; screen;
screenput " 3: Iron ChainMail +5 - 250g"; screen;
screenput " 4: Iron Plate +11 - 500g"; screen;
screenput " 5: Steel ChainMail +14 - 2000g"; screen;
screenput " 6: Holy Armor +25 - 5000g"; screen;
screenput " 7: Dark Armor +29 - 12000g"; screen;
screenput " 8: Light Armor +32 - 15000g"; screen;
screenput " 9: Doom Armor +50 - 30000g"; screen;
screenput " W - Weapons"; screen; screen;
screenput " # - Purchase Q - Exit"; screen;
screenput ">";
pressstorea();
title();
}
function FightOne();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
screenput " #--Name----------Level-----------------------------Page: 1"; screen;
screenput " 1- Child 1"; screen;
screenput " 2- Father 3"; screen;
screenput " 3- Cow 4"; screen;
screenput " 4- Bull 5"; screen;
screenput " 5- Farmer 8"; screen;
screenput " 6- Giant Blob 10"; screen;
screenput " 7- Soldier 13"; screen;
screenput " 8- Warrior 15"; screen;
screenput " 9- Barbarian 18"; screen;
screenput " N - Next Page"; screen; screen;
screenput " # - Fight Q - Exit"; screen;
screenput ">";
pressfightone();
title();
}
function FightTwo();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
screenput " #--Name----------Level-----------------------------Page: 2"; screen;
screenput " 1- Sand Worm 20"; screen;
screenput " 2- Sand Beetle 24"; screen;
screenput " 3- Troll 26"; screen;
screenput " 4- Giant 30"; screen;
screenput " 5- Cyclops 34"; screen;
screenput " 6- Baby Dragon 36"; screen;
screenput " 7- Doom Knight 38"; screen;
screenput " 8- Paladin 41"; screen;
screenput " 9- Green Dragon 45"; screen;
screenput "P - Prev Page N - Next Page"; screen; screen;
screenput " # - Fight Q - Exit"; screen;
screenput ">";
pressfighttwo();
title();
}
function FightThree();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
screenput " #--Name----------Level-----------------------------Page: 3"; screen;
screenput " 1- Hydra 48"; screen;
screenput " 2- Red Dragon 51"; screen;
screenput " 3- Flame Hydra 55"; screen;
screenput " 4- Duel Head Hydra 58"; screen;
screenput " 5- Black Dragon 62"; screen;
screenput " 6- Undead Dragon 65"; screen;
screenput " 7- King Dragon 68"; screen;
screenput " 8- Dark Lord 75"; screen;
screenput " 9- Ultima Weapon 99"; screen;
screenput "P - Prev Page"; screen; screen;
screenput " # - Fight Q - Exit"; screen;
screenput ">";
pressfightthree();
title();
}
function Fighting();
{ doevents;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
hp = mhp;
ohp = omhp;
pause 1;
Rounds();
}
function Rounds();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
round = round + 1;
tround = tround + 1;
damage = rndnum(level * 5) + weppower - oarmpower;
odamage = rndnum(olevel * 5) + oweppower - armpower; screen; screen;
if damage <= 0 then;
damage = 0;
endif;
if odamage <= 0 then;
odamage = 0;
endif;
screenput " -=[Round " &round& "]=-"; screen; screen;
pause 0.6;
screenput name; screenput ": " &hp& "/" &mhp& " - " &oname& ": " &ohp& "/" &omhp; screen;
pause 0.6;
screenput name; screenput " hits " &oname& " for " &damage& " damage."; screen;
ohp = ohp - damage;
pause 0.6;
if ohp <= 0 then;
FightWin();
endif;
screenput oname& " hits " &name; screenput " for " &odamage& " damage."; screen;
hp = hp - odamage;
pause 0.6;
if hp <= 0 then;
FightLose();
endif;
if ohp && hp >= 0 then;
screenput name; screenput ": " &hp& "/" &mhp& " - " &oname& ": " &ohp& "/" &omhp; screen;
pause 0.6;
endif;
Rounds();
endif;
}
function FightWin();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
screenput " -=[You Win!]=-"; screen; screen;
screenput "Exp: +" &oexp; screen;
screenput "Gold: +" &int(ogold * 1.8); screen;
wins = wins + 1;
exp = exp + oexp;
gold = int(gold + (ogold * 1.8));
expt = level * level * 20;
f_open ("C:\DPPGold.dat","w")
screenput "BLOCK";
f_out ("1", trim(gold));
f_close ("1");
f_open ("C:\DPPExp.dat","w")
screenput "BLOCK";
f_out ("1", trim(exp));
f_close ("1");
if exp >= expt - 1 then;
exp = 0;
level = level + 1;
screen; screen; screenput chr(003)& "LEVEL UP" &chr(003); screen;
expt = level * level * 20;
f_open ("C:\DPPLevel.dat","w")
screenput "BLOCK";
f_out ("1", trim(level));
f_close ("1");
level = left(readfile("C:\DPPLevel.dat"), "2");
endif;
pak;
round = 0;
Title();
}
function FightLose();
{ doevents;
clear;
screenput " ///-\FIGHT/-\\\-=[D++ BATTLE 2004 v4.39]=-///-\FIGHT/-\\\"; screen; screen;
screenput " -=[You Lose!]=-"; screen; screen;
screenput " -" &int(oexp / 5)& " Exp";
loss = loss + 1;
exp = exp - int(oexp / 5);
if exp <= 0 then;
exp = 0;
endif;
pak;
round = 0;
Title();
}
function Install();
{
screenput "Installing";
doevents;
f_open("C:\DPPLevel.dat", "w");
screenout ".";
f_out ("1", "1");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPGold.dat", "w");
screenout ".";
f_out ("1", "20");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPWeap.dat", "w");
screenput ".";
f_out ("1", "Rusty Dagger");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPArm.dat", "w");
screenout ".";
f_out ("1", "Leather Armor");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPWepp.dat", "w");
screenout ".";
f_out ("1", "1");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPArmd.dat", "w");
screenout ".";
f_out ("1", "1");
screenout ".";
f_close ("1");
screenout ".";
f_open("C:\DPPExp.dat", "w");
screenout ".";
f_out ("1", "0");
screenout ".";
f_close ("1");
screenout "."; screen; screen;
doevents;
pause 0.08;
screen; screen; screenput "Finished.";
pause 0.6;
clear;
name();
}