Skip to content
Snippets Groups Projects
Commit 855c0f1b authored by cvs2git's avatar cvs2git
Browse files

This commit was manufactured by cvs2svn to create tag 'update'.

parent c5e9a6d4
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
xtrn/starstocks/stars.cfg deleted 100644 → 0
+ 0
− 20
View file @ c5e9a6d4
30
15
15
25
cyan
yellow
*
grey
75
line 1: columns
line 2: rows
line 3: minimum stars
line 4: maximum stars
line 5: border color
line 6&7: star color & character
line 8: space color
line 9: maximum turns
xtrn/starstocks/stars.doc deleted 100644 → 0
+ 0
− 240
View file @ c5e9a6d4
S T A R S T O C K S
Player Documentation
Version 1.00
Matt Johnson, 2007/2008
The BRoKEN BuBBLE BBS (MDJ.ATH.CX)
Star Stocks, Version 1.00 Page i
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
T A B L E O F C O N T E N T S
1.0 Overview . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
2.0 Play . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
2.1 Stars. . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
2.2 Outposts . . . . . . . . . . . . . . . . . . . . . . . . . . 1
2.3 Companies. . . . . . . . . . . . . . . . . . . . . . . . . . 1
2.3.1 Merging. . . . . . . . . . . . . . . . . . . . . . . . 2
2.3.2 Splitting. . . . . . . . . . . . . . . . . . . . . . . 2
2.4 Dividends. . . . . . . . . . . . . . . . . . . . . . . . . . 2
2.5 Purchasing . . . . . . . . . . . . . . . . . . . . . . . . . 2
2.5.1 Expert . . . . . . . . . . . . . . . . . . . . . . . . 2
2.5.2 Standard . . . . . . . . . . . . . . . . . . . . . . . 3
3.0 Instructions . . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.1 New Screen . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.3 Instructions . . . . . . . . . . . . . . . . . . . . . . . . 3
3.4 Quit . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.5 Redraw . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.6 Abandon. . . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.7 Stocks . . . . . . . . . . . . . . . . . . . . . . . . . . . 3
3.8 Xpert. . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Star Stocks, Version 1.00 Page 1
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1.0 Overview
ÍÍÍÍÍÍÍÍÍÍÍÍ
STAR STOCKS is a game of galactic investment. The game's object is
to amass as much money as you can by establishing extensive companies
and managing your stock portfolio.
In each turn you will be shown 6 positions
on the map which may be developed. After choosing one of these, you
may buy and/or sell stock.
On the map, you will see:
* - Stars
. - empty space
+ - Outpost (Company Placeholder)
1 thru 6 - positions that may be developed
A thru ? - Companies (number of companies varies with difficulty)
2.0 Play Game
ÍÍÍÍÍÍÍÍÍÍÍÍÍ
Select this option when you are ready to begin a game.
2.1 Stars
ÄÄÄÄÄÄÄÄÄ
When a company or an outpost company touches a star its value
increases by $500/share.
. . .
. * .
. . .
2.2 Outposts
ÄÄÄÄÄÄÄÄÄÄÄÄ
Outposts are created by choosing a number that does not touch
anything. When a company touches an outpost its value increases
by $100/share.
. . . . . . . .
. . 5 . => . . + . The '+' signifies an outpost.
. . . . . . . .
2.3 Companies
ÄÄÄÄÄÄÄÄÄÄÄÄÄ
Companies are created by developing next to an outpost or a star.
. . . . . . . . In this example company 'A' has been
. 5 + . => . A A . formed. The value is $200/share. $100
. . . . . . . . for each 'A' (not touching any stars).
. . . . . . . . In this example company 'B' has been
. 3 * . => . B * . formed. Its value is $600/share. $100
. . . . . . . . for the 'B' plus $500 for the star.
2.3.1 Merging Companies
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
When you develop between two or more companies, where they
touch, they merge. It's considered that the company of
lesser value is being bought out by the larger company.
At the time of the merge, a cash bonus is awarded that is
equivalent to 10*$/share of the company being taken over.
. . . . . Choosing #5 would merge companies 'A' & 'B'. If you
. A A 5 . had 10 shares of each company, 'B' would be the strong
. . . B . company and win out over company 'A'.
. . . * .
. . . . . In this case company 'B' won out over 'A'. Now company
. B B B . 'B' stock is increased in value by that of 'A' plus
. . . B . company 'B' gets 50% of 'A's stock added to its stock.
. . . * . Also, you would get a bonus of $2000 for the merge.
2.3.2 Splitting Companies
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
A company splits when its $/share exceeds $3000. At
this time the stock price halves and its shares double.
2.4 Dividends
ÄÄÄÄÄÄÄÄÄÄÄÄÄ
After you choose what position to develop, and the effects hit
all companies involved, you will receive dividends equivalent to
5% of your holdings, and be prompted to purchase stock.
2.5 Purchasing
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
If you have enough money after making your move, you will be prompted
to purchase some stock. There are two modes of purchasing.
2.5.1 Expert
ÄÄÄÄÄÄÄÄÄÄÄÄ
In this mode, each company will be listed in alphabetical
order and you will be asked how many shares you want to purchase.
You can either:
- press enter (if you don't want any shares in that company)
- type a number within the range listed next to the company
- or, type 'M' for the maximum number of shares that you can
buy in that company.
2.5.2 Standard
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
If you choose expert mode, by selecting 'X' when you are
choosing which position to develop, you will be prompted to
enter the company letter that you want to spend all of your
money on. If you have any money left over, stock selection will
revert to standard mode. If you type an 'X' at the prompt,
stock selection will revert to standard mode. If you find that
you are buying stock in a particular company, this mode tends
to be faster than the standard mode.
3.0 Instructions
ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
3.1 New Screen
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
[N] - New Game. A quick way of quitting the game and restarting
a new one. This is used when you don't like the original map and
would like the computer to generate a new one for you. Doing a
New Screen anytime before your 10th move will not register as
a game being played. Therefore you can be choosy as to the screen
you want without the game thinking you have played tons of games.
3.2 Instructions
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
[I] - What you're reading right now! You can either view them or
download them directly from within Star Market.
3.3 Quit
ÄÄÄÄÄÄÄÄ
[Q] - Quit. If you have a really bad game going, you might just
want to "Take a walk in space without a suit."
3.4 Redraw Screen
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
[R] - Redraw. If your screen gets scrambled due to line noise, use
this to redraw the screen.
3.6 Abandon Company
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
[A] - Abandon. Only works when you're at the company (grid) selection
prompt. This option lets you sell off your holdings of particular
companies. Beware, the stock broker gets his 20% cut from every
transaction.
3.7 View Summary
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
[V] - Shows your stock portfolio, which includes the number
of shares of each company you own, the value per share, total
value of each company, your total networth, and the number of
times each company has split.
3.8 Xpert
ÄÄÄÄÄÄÄÄÄÄ
[X] - Expert mode. This toggles from the Standard mode to the
Expert mode. See EXPERT (2.5.2) under PURCHASING for more
details on this toggle and its benefits.
xtrn/starstocks/stars.js deleted 100644 → 0
+ 0
− 1379
View file @ c5e9a6d4
/* **********************************
****** STAR STOCKS (2007) ******
*** for use with Synchronet v3.14 ***
*** by Matt Johnson **************
**********************************
SET TAB STOPS TO 4 FOR EDITING
*/
load("sbbsdefs.js");
{//######################### INITIALIZE PROGRAM VARIABLES #########################
var root;
try { barfitty.barf(barf); } catch(e) { root = e.fileName; }
root = root.replace(/[^\/\\]*$/,'');
const cfgname= "stars.cfg";
const high_score_file= "star_hs.dat";
const space= "\xFA";
var max_companies= 6;
var max_turns= 80;
const starting_cash= 10000;
const interest_rate= .05;
const ccolor= getColor("white");
var partial_company= "\1n+";
var difficulty= 1;
var min_difficult= 20;
var max_difficult= 35;
}
{//######################### DO NOT CHANGE THIS SECTION ##########################
var scores= [];
var border_row= 4;
var border_column= 1;
var menu_row= 1;
var menu_column= 63;
var columns=
rows=
min_stars=
max_stars=
bcolor=
starcolor=
star=
scolor="";
loadSettings();
loadHighScores();
star=starcolor+star;
partial_company=ccolor+partial_company;
var oldpass=console.ctrlkey_passthru;
console.ctrlkey_passthru="+ACGKLOPQRTUVWXYZ_";
bbs.sys_status|=SS_MOFF;
var min_normal= min_stars;
var max_normal= max_stars;
var game;
gameMenu();
}
//########################## MAIN FUNCTIONS ###################################
function gameMenu()
{
console.clear();
console.printfile(root + "starstocks.ans");
if(!(user.settings & USER_PAUSE)) console.pause();
var mx=menu_column; var my=menu_row;
var gMenu=new Menu( "\1h\1c: \1wSTAR STOCKS" ,mx,my);
var menu_items=[ "~Play Game" ,
"~Difficulty" ,
"~High Scores" ,
"~Instructions" ,
"~Redraw Screen" ,
"~Quit" ];
gMenu.add(menu_items);
redraw();
while(1)
{
gMenu.display();
console.gotoxy(79,24);
var cmd=console.getkey((K_NOECHO,K_NOCRLF,K_UPPER));
switch(cmd)
{
case "P":
redraw(true);
clearRightColumn(10);
clearRows(23);
playGame();
displayHeader();
break;
case "D":
resized=mapResize(mx,my);
if(!resized)
{
console.clear();
displayHeader();
displayGrid("\xFA");
displayBorder(bcolor);
}
game=false;
continue;
case "I":
viewInstructions();
redraw();
continue;
case "H":
viewHighScores();
redraw();
continue;
case "R":
redraw();
continue;
case "Q":
quit(0);
}
}
quit(0);
}
function loadHighScores()
{
for(diff=0;diff<3;diff++) scores[diff]=[];
if(!file_exists(root + high_score_file)) return;
var sfile=new File(root + high_score_file);
sfile.open('r', true);
for(sc=0;!(sfile.eof);sc++)
{
player=sfile.readln();
if(player==undefined || player=="") break;
score=parseFloat(sfile.readln());
diff=parseInt(sfile.readln());
date=sfile.readln();
scores[diff].push(new Score(player,score,diff,date));
}
sfile.close();
}
function storeHighScores(tempscore)
{
loadHighScores();
scores[tempscore.difficulty].push(tempscore);
var sfile=new File(root + high_score_file);
if(!locked())
{
lock();
sfile.open('w+', false);
for(d in scores)
{
scores[d]=sortScores(scores[d]);
for(score in scores[d])
{
sfile.writeln(scores[d][score].player);
sfile.writeln(scores[d][score].score);
sfile.writeln(scores[d][score].difficulty);
sfile.writeln(scores[d][score].date);
if(score==9) break;
}
}
sfile.close();
unlock();
}
}
function loadSettings()
{
var dfile=new File(root + cfgname);
dfile.open('r', false);
columns=parseInt(dfile.readln());
rows=parseInt(dfile.readln());
min_stars=parseInt(dfile.readln());
max_stars=parseInt(dfile.readln());
bcolor=getColor(dfile.readln());
starcolor=getColor(dfile.readln());
star=dfile.readln();
scolor=getColor(dfile.readln());
maxturns=dfile.readln();
dfile.close();
}
function mapResize(x,y)
{
var cont=true;
while(cont)
{
var rMenu=new Menu( "SET DIFFICULTY" ,x,y);
var menu_items=[ "~1 Easy" ,
"~2 Normal" ,
"~3 Difficult" ];
rMenu.add(menu_items);
rMenu.display();
var cmd=console.getkey((K_NOSPIN,K_NOECHO,K_NOCRLF,K_UPPER));
if(cmd==undefined || cmd=="") break;
else if(cmd=="1") {rows=10; columns=25; cont=false; border_row=6; border_column=5; max_turns=60; max_companies=5; max_stars=max_normal; min_stars=min_normal;}
else if(cmd=="2") {rows=15; columns=30; cont=false; border_row=4; border_column=1; max_turns=80; max_companies=6; max_stars=max_normal; min_stars=min_normal;}
else if(cmd=="3") {rows=19; columns=30; cont=false; border_row=2; border_column=1; max_turns=100; max_companies=8; max_stars=max_difficult; min_stars=min_difficult;}
else break;
difficulty=(cmd-1);
}
return(cont);
}
function playGame()
{
//var mx=((columns*2) + border_column + 2); var my=2; //FOR FLEXIBLE MENU LOCATION
var mx=menu_column; var my=menu_row;
var pMenu=new Menu( "\1h\1c: \1wSTOCK OPTIONS" ,mx,my);
var menu_items=[ "~Start Game" ,
"~New Game" ,
"~Redraw Screen" ,
"~View Summary" ,
"~Abandon Company" ,
"~Xpert Toggle" ,
"~Quit" ];
pMenu.add(menu_items);
game=new Map(columns,rows);
var continue_game=true;
var turn=1;
pMenu.disable("V");
pMenu.disable("A");
while(continue_game && turn<=max_turns)
{
while(continue_game)
{
pMenu.display();
displayHeader(turn);
if(!game.options.length && game.inProgress) game.generateCompanies();
if(game.options.length)
{
message("\1r\1hChoose a location to start your company.");
}
var cmd=console.getkey(K_NOCRLF|K_NOSPIN|K_UPPER|K_NOECHO|K_COLD);
if(pMenu.disabled[cmd]);
else
{
switch(cmd)
{
case "1":
case "2":
case "3":
case "4":
case "5":
case "6":
case "7":
case "8":
case "9":
if(game.inProgress)
{
processSelection(cmd-1);
turn++;
break;
}
continue;
case "A":
abandonCompany();
continue;
case "V":
displaySummary();
continue;
case "S":
if(!(game.inProgress)) startGame(pMenu,turn);
break;
case "N":
if(newGame(pMenu)) turn=1;
clearRightColumn(10);
clearRows(23);
continue;
case "R":
redraw();
continue;
case "X":
if(game.xpert)
{
game.xpert=false;
message("\1y\1hExpert mode OFF",63,24,16);
}
else
{
game.xpert=true;
message("\1y\1hExpert mode ON",63,24,16);
}
continue;
case "Q":
if(game.inProgress)
{
console.home();
console.cleartoeol();
if(console.noyes("End this game?"));
else
{
game.clearOptions();
clearRows(23);
continue_game=false;
}
}
else
{
continue_game=false;
delete game;
}
if(continue_game) continue;
else break;
default:
continue;
}
break;
}
}
if(game.inProgress && continue_game)
{
if(countCompanies(game.companies)>0)
{
if(pMenu.disabled["V"]) pMenu.enable("V");
if(pMenu.disabled["A"]) pMenu.enable("A");
game.displayCompanies();
displayStocks();
buyStock();
}
else
{
pMenu.disable("V");
pMenu.disable("A");
}
displayStocks();
getMoney();
showMeTheMoney();
if(turn>max_turns) game.inProgress=false;
}
}
if(countCompanies(game.companies))
{
var tempscore=new Score(user.number,game.networth,difficulty,system.datestr());
storeHighScores(tempscore);
notify();
game.completed=true;
displaySummary();
}
}
//########################## DISPLAY FUNCTIONS #################################
function notify()
{
if(game.networth==scores[difficulty][0].score && user.number!=scores[difficulty][1].player)
{
system.put_telegram(scores[difficulty][1].player, "\1r\1h" + system.username(scores[difficulty][0].player) + " \1c\1hbeat your High Score in Star Stocks!\r\n\r\n");
}
}
function shortNumber(number)
{
var newnum="";
Num = "" + parseInt(number);
if(Num.length<=3) return Num;
if(Num.length>3 && Num.length<7)
{
cut=Num.length-3;
newnum=Num.substring(0,cut);
if(cut==1 && Num.charAt(cut)!=0) newnum+=("." + Num.charAt(cut));
newnum+="k";
}
else if(Num.length>=7 && Num.length<10)
{
cut=Num.length-6;
newnum=Num.substring(0,cut);
if(cut==1 && Num.charAt(cut)!=0) newnum+=("." + Num.charAt(cut));
newnum+="m";
}
else if(Num.length>=10 && Num.length<13)
{
cut=Num.length-9;
newnum=Num.substring(0,cut);
if(cut==1 && Num.charAt(cut)!=0) newnum+=("." + Num.charAt(cut));
newnum+="b";
}
else return "?";
return newnum;
}
function sortScores(sort)
{
// The Bubble Sort method.
for(n = 0; n < sort.length; n++)
{
for(m = 0; m < (sort.length-1); m++)
{
if(sort[m].score < sort[m+1].score)
{
holder = sort[m+1];
sort[m+1] = sort[m];
sort[m] = holder;
}
}
}
return sort;
}
function viewHighScores()
{
loadHighScores();
var difficulties=["Easy", "Normal", "Difficult"];
for(df in scores)
{
scores[df]=sortScores(scores[df]);
var hx=4;
var hy=4;
console.clear();
console.gotoxy(hx,hy); hy+=2;
printf("\1w\1hHIGH SCORES: \1c\1h" + difficulties[df]);
for(hs=0;hs<scores[df].length && hs<10;hs++)
{
console.gotoxy(hx,hy); hy++;
printf(print_padded("\1w\1h" + (hs+1) + ": ",4," ","right"));
printf(print_padded("\1y\1h" + system.username(scores[df][hs].player),20," ","left"));
printf("\1c\1h$" + print_padded("\1w\1h" + dollarAmount(scores[df][hs].score),18,".","right"));
printf("\1n\1g " + scores[df][hs].date);
console.crlf();
}
console.gotoxy(1,24);
console.pause();
}
}
function viewInstructions()
{
console.clear();
console.printfile(root + "stars.doc");
if(!(user.settings & USER_PAUSE)) console.pause();
}
function clearRightColumn(from)
{
var clear=24-from;
xx=menu_column;
yy=from;
for(ccc=0;ccc<clear;ccc++)
{
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
}
}
function clearRows(from)
{
var clear=24-from;
xx=1;
yy=from;
for(ccc=0;ccc<=clear;ccc++)
{
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
}
}
function print_padded(string,length,padding,justification)
{
var padlength=length-console.strlen(string);
var newstring=string;
var padded="\1k";
for(p=0;p<padlength;p++) padded+=padding;
if(justification=="left") newstring+=(padded);
if(justification=="right") newstring=(padded + newstring);
return(newstring);
}
function displaySummary()
{
console.clear();
console.gotoxy(2,2);
printf("\1g\1h[ STOCK SUMMARY ]\r\n\1h\1k");
drawLine(79); console.crlf();
var sorted=sortCompanies();
for(c=0;c<sorted.length;c++)
{
game.companies[sorted[c]].displayLong();
console.crlf();
}
showMeTheMoney();
console.gotoxy(66,24);
console.pause();
redraw();
}
function redraw(grid_only)
{
if(grid_only)
{
displayGrid("\xFA");
return;
}
console.clear();
displayHeader();
displayGrid("\xFA");
displayBorder(bcolor);
if(!game) return;
if(game.star_data) game.display(game.star_data);
if(game.inProgress || game.completed)
{
if(game.partial_data) game.display(game.partial_data);
if(game.companies) game.displayCompanies();
showMeTheMoney();
displayStocks();
}
if(game.inProgress && game.options) game.displayOptions();
}
function drawLine(length)
{
for(i=0;i<length;i++) printf("\xC4");
}
function displayHeader(turn)
{
console.home();
var alert="";
if((max_turns-turn)<6) alert="\1h\1r";
printf("\1w\1h[\1nSTAR STOCKS\1h] : \1r [\1n\1r2007 \1h-\1n\1r Matt Johnson\1h] \1w: ");
if(turn) printf("\1w\1hTurn \1n[\1h" + alert + turn + "\1n/\1h" + max_turns + "\1n]" );
wipeCursor();
}
function displayGrid(space)
{
var y=border_row+1;
var x=border_column+1;
for(row=0;row<rows;row++)
{
printf(scolor);
for(column=0;column<columns;column++)
{
console.gotoxy(x+(column*2),row+y);
printf(space);
}
}
}
function displayStocks()
{
var num_companies=countCompanies(game.companies);
if(!num_companies>0) return;
var xx=menu_column; var yy=menu_row+9;
var clear=max_companies;
var cleared=0;
console.gotoxy(xx,yy); yy++
printf("\1h\1c: \1wPORTFOLIO");
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
drawLine(17);
var sorted=sortCompanies();
for(c=0;c<sorted.length;c++)
{
console.cleartoeol();
game.companies[sorted[c]].display(xx,yy);
yy++;
cleared++;
}
for(;cleared<clear;cleared++)
{
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
}
}
function displayBorder(color)
{
var x=border_column;
var y=border_row;
console.gotoxy(x,y);
printf(color + "\xDA");
drawLine((columns*2)-1);
printf(color +"\xBF");
y++;
for(row=0;row<rows;row++)
{
console.gotoxy(x,y);
printf(color +"\xB3");
console.gotoxy(x+(columns*2),y);
printf(color +"\xB3");
y++;
}
console.gotoxy(x,y);
printf(color +"\xC0");
drawLine((columns*2)-1);
printf(color +"\xD9");
}
function wipeCursor() //SEND CURSOR TO BOTTOM RIGHT CORNER OF SCREEN
{
console.gotoxy(79,24);
printf("\1n\1k");
}
function message(msg,x,y,cc) //ALERT MESSAGE OUTPUT FUNCTION
{
if(cc)
{
clear=cc;
}
else
{
clear=59;
}
if(x && y)
{
xxx=x;
yyy=y;
}
else
{
xxx=1;
yyy=23;
}
console.gotoxy(xxx,yyy);
printf(msg);
cleaned=strip_ctrl(msg);
clear-=cleaned.length;
for(z=0;z<clear;z++)
{
printf(" ");
}
wipeCursor();
}
function sortCompanies()
{
var sorted=[];
for(cc in game.companies)
{
sorted.push(cc);
}
sorted.sort();
return sorted;
}
//########################## MISC FUNCTIONS ###################################
function locked()
{
filename=root+"stars.lck";
var max_attempts=20;
for(attempt=0;attempt<max_attempts;attempt++)
{
if(file_exists(filename))
{
mswait(250);
}
else return false;
}
message("\1r\1hFailed to access data file");
mswait(1000);
return true;
}
function lock()
{
filename=root+"stars.lck";
var lockfile=new File(filename);
lockfile.open('we', false);
if(!lockfile.is_open)
return false;
else
{
lockfile.close();
return true;
}
}
function unlock()
{
filename=root+"stars.lck";
var lockfile=new File(filename);
file_remove(filename);
}
function dollarAmount(number)
{
var Num="" + number.toFixed(2);
dec = Num.indexOf(".");
end = ("" + Num.substring(dec,Num.length));
Num = "" + parseInt(Num);
var temp1 = "";
var temp2 = "";
var count = 0;
for (var k = Num.length-1; k >= 0; k--)
{
var oneChar = Num.charAt(k);
if (count == 3)
{
temp1 += ",";
temp1 += oneChar;
count = 1;
continue;
}
else
{
temp1 += oneChar;
count ++;
}
}
for (var k = temp1.length-1; k >= 0; k--)
{
var oneChar = temp1.charAt(k);
temp2 += oneChar;
}
temp2+=end;
return temp2;
}
function abandonCompany()
{
while(1)
{
console.gotoxy(1,23);
message("\1r\1hAbandon which company? or hit [ENTER] to cancel: ");
wipeCursor();
var cmd=console.getkey(K_NOCRLF|K_NOSPIN|K_UPPER|K_NOECHO|K_COLD);
if(cmd=="\r" || cmd==undefined) break;
switch(cmd)
{
case "A":
case "B":
case "C":
case "D":
case "E":
case "F":
case "G":
case "H":
if(!game.companies[cmd]) continue;
game.abandonCompany(cmd);
console.gotoxy(1,23);
console.cleartoeol();
break;
case "V":
displaySummary();
continue;
default:
break;
}
break;
}
displayStocks();
}
function buyStock()
{
while(1)
{
if(!canBuyStocks()) break;
message("\1c\1hBuy stock in which company? or hit [\1n\1cENTER\1h] to cancel\1n\1c: ",1,23,79);
var cmd=console.getkey(K_NOCRLF|K_NOSPIN|K_UPPER|K_NOECHO|K_COLD);
if(cmd=="\r" || cmd==undefined) break;
switch(cmd)
{
case "A":
case "B":
case "C":
case "D":
case "E":
case "F":
case "G":
case "H":
if(!game.companies[cmd]) continue;
if(!game.xpert)
{
game.companies[cmd].shares+=(game.cash/game.companies[cmd].stock_value);
game.cash=game.cash%game.companies[cmd].stock_value;
console.gotoxy(1,23);
console.cleartoeol();
break;
}
else
{
if(game.cash<game.companies[cmd].stock_value) continue;
buyStockXpert(cmd);
continue;
}
case "V":
displaySummary();
continue;
default:
continue;
}
break;
}
displayStocks();
}
function buyStockXpert(cmd)
{
var max=parseInt(game.cash/game.companies[cmd].stock_value);
console.gotoxy(1,23);
console.cleartoeol();
printf("\1c\1hBuy how many stocks in company \1y" + cmd + "\1c? [\1n\1cMAX \1y\1h" + max + "\1c]\1n\1c:");
var num=console.getnum(max);
game.cash-=(game.companies[cmd].stock_value*num);
game.companies[cmd].shares+=num;
}
function canBuyStocks()
{
for(cb in game.companies)
{
if(game.cash>=game.companies[cb].stock_value) return true;
}
return false;
}
function getMoney()
{
game.cash=game.getCash()
game.networth=game.getNetWorth()+game.cash;
}
function showMeTheMoney()
{
var money;
money="\1c\1hNetworth\1w: \1c$\1w" + dollarAmount(game.networth);
money+=" \1c\1hCash\1w: \1c$\1w" + dollarAmount(game.cash);
message(money,1,24,58);
}
function getColor(color)
{ //TAKE A STRING AND RETURN THE CORRESPONDING ANSI COLOR CODE
if(color=="black") return "\1n\1k";
if(color=="grey") return "\1k\1h";
if(color=="cyan") return "\1h\1c";
if(color=="yellow") return "\1h\1y";
if(color=="green") return "\1h\1g";
if(color=="white") return "\1h\1w";
if(color=="red") return "\1r\1h";
if(color=="magenta") return "\1m\1h";
}
function countCompanies(companies)
{ //COUNT THE NUMBER OF COMPANIES CURRENTLY USED
var count=0;
for(i in companies)
{
count++;
}
return count;
}
function newGame(menu)
{ //RESET GAME MAP, CLEAR GAME AND COMPANY DATA
if(game.inProgress)
{
console.home();
console.cleartoeol();
if(console.noyes("End this game?")) return false;
else
{
menu.enable("S");
game.clearOptions();
menu.disable("V");
menu.disable("A");
}
}
game.clearGrid(game.star_data);
game.clearGrid(game.partial_data);
for(i in game.companies)
{
game.clearGrid(game.companies[i].data);
}
game=new Map(columns,rows);
game.display(game.star_data);
return true;
}
function startGame(menu,turn)
{ //BEGIN GAMEPLAY CYCLE
menu.disable("S");
displayHeader(turn);
game.inProgress=true;
}
function maxCompanies()
{ //DETERMINE WHETHER CURRENT COMPANIES ARE AT MAXIMUM ALLOWABLE AMOUNT
var count=countCompanies(game.companies);
if(count<max_companies) return false;
return true;
}
function processSelection(cmd)
{ //DETERMINE THE CONTENTS OF THE AREA SURROUNDING COMPANY SELECTION, AND UPDATE COMPANY DATA
if(cmd<game.options.length)
{
console.gotoxy(1,24);
console.clearline();
var location=game.options[cmd];
game.options.splice(cmd,1);
var prox=game.sortProximity(location);
// test(prox);
processNearby(location,prox);
game.grid[location]=true;
game.clearOptions();
game.display(game.partial_data);
showMeTheMoney();
}
}
function processNearby(location,prox)
{ //USED WITH processSelection, WHEN SURROUNDING AREA IS NOT EMPTY
var nearby=prox;
if(!nearby)
{
game.partial_data[location]=partial_company;
return;
}
var num_companies=countCompanies(nearby.companies);
if(num_companies==1) game.addToCompany(location,nearby);
else if(num_companies>1) game.mergeCompanies(location,nearby);
else game.makeNewCompany(location,nearby);
}
function quit(err)
{
console.ctrlkey_passthru=oldpass;
bbs.sys_status&=~SS_MOFF;
console.clear();
printf("\n\r\1r\1h Thanks for playing!\r\n\r\n");
mswait(1000);
exit(0);
}
//########################## CLASSES #########################################
function Map(c,r)
{ //MAP CLASS
{ //OBJECT VARIABLES
this.grid=[]; //ROWS * COLUMNS IN LENGTH, TRACKS GRID OCCUPANCY (BOOLEAN)
this.star_data=[]; //STORES GRID[] INDICES FOR FASTER RETRIEVAL & MODIFICATION (SPARSE)
this.partial_data=[]; //STORES GRID[] INDICES FOR FASTER RETRIEVAL & MODIFICATION (SPARSE)
this.companies=[]; //STORES COMPANY DATA (ASSOCIATIVE)
this.max_options=6; //NUMBER OF OPTIONS FOR COMPANY CREATION
this.cash=starting_cash; //INITIALIZE USER SPENDING MONEY
this.networth=0;
this.inProgress=false; //GAME STATUS INDICATOR
this.completed=false;
this.xpert=false;
this.rows=r; //MAP ROWS
this.columns=c; //MAP COLUMNS
this.map_row=border_row+1;
this.map_column=border_column+1;
//####CLEARED EVERY TURN####
this.options=[]; //TEMPORARY GRID INDEX STORAGE FOR INITIAL COMPANY SELECTION
this.proximity=[]; //TEMPORARY STORAGE FOR COORDINATE PROXIMITY CHECKING
}
{ //OBJECT METHODS
//DISPLAY FUNCTIONS
this.displayCompanies= function()
{ //DISPLAYS THE LOCATION DATA FOR EACH COMPANY
for(i in this.companies)
{
for(a in this.companies[i].data)
{
location=a;
this.getXY(location);
printf(ccolor+this.companies[i].name);
}
}
}
this.displayOptions= function()
{ //DISPLAYS CONTENTS OF options GENERATED BY generateCompanies
for(i=0;i<this.options.length;i++)
{
location=this.options[i];
this.getXY(location);
printf("\1h\1g"+(i+1));
}
}
this.clearGrid= function(array)
{ //CLEARS SCREEN POSITIONS LISTED IN A SPARSE ARRAY
for(i in array)
{
this.getXY(i);
this.grid[i]=false;
printf(scolor+space);
}
array=[];
return(array);
}
this.clearOptions= function()
{ //CLEARS OPTIONS CREATED BY generateCompanies
for(i=0;i<this.options.length;i++)
{
this.getXY(this.options[i]);
printf(scolor+space);
}
this.options=[];
}
this.display= function(data)
{ //TAKES A SPARSE ARRAY AND DISPLAYS THE CONTENTS
for(i in data)
{
location=i;
this.getXY(location);
printf(data[location]);
}
}
this.getXY= function(place)
{ //TAKES A GRID INDEX, AND RETURNS THE CORRESPONDING X AND Y COORDINATES FOR DISPLAY
var index=place;
x=this.map_column;
y=this.map_row;
x+=((index%this.columns)*2);
y+=(parseInt(index/this.columns));
console.gotoxy(x,y);
return(0);
}
this.getIndex= function(x,y)
{ //DOES THE OPPOSITE OF getXY (NOT USED)
index=(x*y)+x;
return(index);
}
//DATA FUNCTIONS
this.abandonCompany= function(company)
{
this.clearGrid(this.companies[company].data);
this.cash+=(.8 * (this.companies[company].networth)); //receive back 80% of company value in cash
delete this.companies[company];
}
this.generateMap= function()
{ //RANDOMLY GENERATE A NEW MAP OF STARS
var num_stars=min_stars+random(max_stars-min_stars);
for(i=0;i<num_stars;i++)
{
location=random(this.rows*this.columns);
if(this.grid[location]) i--;
else
{
this.grid[location]=true;
this.star_data[location]=star;
}
}
}
this.generateCompanies= function()
{ //RANDOMLY GENERATE COMPANY SELECTION OPTIONS EACH TURN
var max=maxCompanies();
var temp=[];
for(options=0;options<this.max_options;options++)
{
location=random(this.rows*this.columns);
if(!this.grid[location] && !temp[location])
{
if(!max)
{
this.options.push(location);
temp[location]=true;
}
else
{
var proxg=this.sortProximity(location);
if(!proxg || countCompanies(proxg.companies))
{
this.options.push(location);
temp[location]=true;
}
else options--;
}
}
else options--;
}
this.displayOptions();
}
this.getNextCompany= function()
{ //FIND THE NEXT AVAILABLE COMPANY NAME
c="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
var num_companies=countCompanies(this.companies);
for(i=0;i<=num_companies;i++)
{
var comp=c.charAt(i);
if(!this.companies[comp])
{
return comp;
}
}
}
this.compareCompanies= function(data)
{ //COMPARE NETWORTH OF SEVERAL COMPANIES AND RETURN HIGHEST VALUE (TEMPORARY SETUP)
var worth=0;
var highest;
for(i in data.companies)
{
var company=this.companies[i];
if(company.networth>worth)
{
highest=company.name;
worth=company.networth;
}
}
return highest;
}
this.getNetWorth= function()
{ //CALCULATE NETWORTH OF ALL INDIVIDUAL COMPANIES
var networth=0;
for(ii in this.companies)
{
networth+=this.companies[ii].networth;
}
return networth;
}
this.getCash= function()
{
for(ii in this.companies)
{
this.cash+=this.companies[ii].getInterest();
}
return this.cash;
}
this.mergeCompanies= function(location,data)
{ //CALL compareCompanies AND MERGE COMPANIES IN DATA INTO RETURN VALUE FROM COMPARISON (HIGHER VALUED COMPANY)
var comp=this.compareCompanies(data);
this.companies[comp].data[location]=ccolor+comp;
this.allocatePartials(data.partials,comp);
for(i in data.companies)
{
if(comp==i)
{
delete data.companies[i];
}
}
var bonus=0;
for(m in data.companies)
{
for(a in this.companies[m].data)
{
this.companies[comp].data[a]=ccolor+comp;
}
this.companies[comp].num_stars+=this.companies[m].num_stars;
this.companies[comp].shares+=this.companies[m].shares/2;
this.companies[comp].calculateValue();
bonus+=parseInt(this.companies[m].stock_value*10);
delete this.companies[m];
}
this.cash+=bonus;
message("\1y\1hMerge Bonus: \1r\1h$" + bonus,60,24,19);
mswait(500);
}
this.allocatePartials= function(partials,name)
{ //FIND AND CHANGE ALL PARTIAL COMPANIES IN THE AREA TO THE COMPANY SUPPLIED
for(i in partials)
{
location=partials[i];
game.companies[name].data[location]=ccolor+name;
delete game.partial_data[location];
}
}
this.sortProximity= function(location)
{ //SORT THE CONTENTS FROM PROXIMITY SCAN AND STORE THE DATA FOR THE DURATION OF THIS TURN
var companies=[];
var partials=[];
var stars=[];
var empty=true;
var prox=this.scanProximity(location);
//find stars, partial companies, and companies in area
for(i=0;i<prox.length;i++)
{
if(this.star_data[prox[i]])
{
stars.push(prox[i]);
empty=false;
}
else if(this.partial_data[prox[i]])
{
partials.push(prox[i]);
empty=false;
}
else
{
for(c in this.companies)
{
name=c;
if(this.companies[c].data[prox[i]])
{
companies[name]=prox[c];
empty=false;
}
}
}
}
if(!empty)
this.proximity[location]={'companies':companies,'stars':stars,'partials':partials};
return(this.proximity[location]);
}
this.scanProximity= function(location)
{ //LOCATE GRID INDICES FOR NORTH,SOUTH,EAST,WEST OF CURRENT POSITION
var prox=[];
// console.home();
// console.cleartoeol();
if(location>=this.columns) //if not in the first row
prox[0]=(location-this.columns); //north
else
{
if(difficulty>1)
{
prox[0]=(location+(this.columns * (this.rows-1)));
}
}
if(location<(this.columns * (this.rows-1))) //if not in the last row
prox[1]=(location+this.columns); //south
else
{
if(difficulty>1)
{
prox[1]=(location-(this.columns * (this.rows-1)));
}
}
if(((location+1)%this.columns)!=0) //if not in the last column
prox[2]=(location+1); //east
else
{
if(difficulty>1)
{
prox[2]=(location+1)-this.columns;
}
}
if(((location+1)%this.columns)!=1) //if not in the first column
prox[4]=(location-1); //west
else
{
if(difficulty>1)
{
prox[3]=(location-1)+this.columns;
}
}
return prox;
}
this.addToCompany= function(location,data)
{ //IN THE EVENT THERE IS ONE NEARBY COMPANY, ADD THE CURRENT LOCATION TO THE COMPANY DATA
var name=this.getName(data.companies);
this.companies[name].data[location]=ccolor+name;
if(data.stars.length) this.companies[name].num_stars+=data.stars.length;
if(data.partials.length) this.allocatePartials(data.partials,name);
}
this.getName= function(data)
{
for(i in data)
{
return i;
}
}
this.makeNewCompany= function(location,data)
{ //IN THE EVENT THERE ARE NO NEARBY COMPANIES OR PARTIAL COMPANIES, CREATE A NEW COMPANY
var name=this.getNextCompany();
this.companies[name]=new Company(name);
this.companies[name].newData(data,location);
this.companies[name].calculateValue();
}
}
{ //CONSTRUCTOR
this.generateMap();
this.display(this.star_data);
}
}
function Company(name)
{ //COMPANY CLASS
{ //COMPANY VARIABLES
this.name=name; //COMPANY DISPLAY CHARACTER AND game.Companies[] INDEX
this.shares=5; //INITIAL COMPANY SHARES
this.networth=0; //TOTAL COMPANY VALUE
this.stock_value=0; //TOTAL INDIVIDUAL STOCK VALUE
this.base_value=100; //BASE COMPANY VALUE (PER SECTOR)
this.star_value=500; //PROXIMITY STAR VALUE
this.num_stars=0; //NUMBER OF STARS TOUCHING COMPANY
this.times_split=1; //NUMBER OF TIMES COMPANY HAS SPLIT (1 = 0)
this.data=[]; //COMPANY LOCATION DATA
}
{ //OBJECT METHODS
this.companySize= function()
{
var count=0;
for(i in this.data)
{
count++;
}
return count;
}
this.calculateValue= function()
{ //CALCULATE COMPANY NETWORTH
this.getValue();
while(this.stock_value>=3000)
{
this.splitCompany();
this.getValue();
}
this.networth=this.shares*this.stock_value;
}
this.getValue= function()
{ //CALCULATE COMPANY NETWORTH
this.stock_value=((this.num_stars * this.star_value)+(this.companySize() * this.base_value))
/this.times_split;
}
this.splitCompany= function()
{ //SPLIT COMPANY WHEN SHARE VALUE MEETS OR EXCEEDS 3000 PER SHARE
this.shares*=2;
// this.base_value+=50;
// this.star_value+=50;
this.times_split++;
message("\1y\1hCompany \1r" + this.name + " \1ysplit",60,24,19);
mswait(500);
}
this.newData= function(data,location)
{ //INITIALIZE NEW COMPANY
this.data[location]=ccolor+this.name;
if(data.partials.length) game.allocatePartials(data.partials,this.name);
if(data.stars.length) this.num_stars=data.stars.length;
}
this.getInterest= function()
{
this.calculateValue();
earned_interest=this.networth*interest_rate;
return earned_interest;
}
this.displayLong= function()
{
this.calculateValue();
printf( "\1n\1gCOMPANY: \1h\1y" + this.name +
" \1n\1gWORTH: \1h$" + print_padded("\1w\1h"+parseInt(this.networth)+" ",14," ","right") +
"\1n\1gSHARE VALUE: \1h$" + print_padded("\1w\1h"+parseInt(this.stock_value)+" ",5," ","right") +
"\1n\1gSHARES: " + print_padded("\1w\1h"+parseInt(this.shares)+" ",10," ","right") +
"\1n\1gSPLIT: \1w\1h" + (this.times_split-1) + "x");
}
this.display= function(xxxx,yyyy)
{
this.calculateValue();
console.gotoxy(xxxx,yyyy);
console.cleartoeol();
printf( "\1h\1c[\1w" + this.name + "\1c]\1w" +
" $\1c" + print_padded(parseInt(this.stock_value),4," ","left") +
" \1w(\1c" + shortNumber(this.shares) + "\1w)" );
// " \1w(\1c" + (this.times_split-1) + "\1w)" );
}
}
//CONSTRUCTOR
}
function Menu(title,x,y)
{ //MENU CLASSES
this.title=title;
this.disabled=[];
this.items=[];
this.display=function()
{
var clear=5;
var cleared=-1;
var xx=x;
var yy=y;4
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
printf("\1h\1w" + this.title);
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
drawLine(17);
for(i in this.items)
{
if(!this.disabled[i])
{
console.gotoxy(xx,yy); yy++;
printf(this.items[i].text);
console.cleartoeol();
cleared++;
}
}
for(i=cleared;i<clear;i++)
{
console.gotoxy(xx,yy); yy++;
console.cleartoeol();
}
printf("\1n\1k");
console.gotoxy(79,24);
}
this.disable=function(item)
{
this.disabled[item]=true;
}
this.enable=function(item)
{
this.disabled[item]=false;
}
this.add=function(items)
{
for(i=0;i<items.length;i++)
{
hotkey=this.getHotKey(items[i]);
this.items[hotkey]=new menuItem(items[i],hotkey);
}
}
this.getHotKey=function(item)
{
keyindex=item.indexOf("~")+1;
return item.charAt(keyindex);
}
}
function menuItem(item,hotkey)
{ //MENU ITEM OBJECT
var displayColor=getColor("cyan");
var keyColor=getColor("white");
this.hotkey=hotkey;
this.text=item.replace(("~" + hotkey) , (displayColor + "[" + keyColor + hotkey + displayColor + "]"));
}
function Score(p,s,d,date)
{
this.player=p;
this.score=s;
this.difficulty=d;
this.date=date;
}
xtrn/starstocks/starstocks.ans deleted 100644 → 0
+ 0
− 23
View file @ c5e9a6d4
.....
Ripped Off From
.Star Market by
\ \ \ \MCMLXXIX (2007)
 \____\ \__\__\ \___ \___
\    Thanks for the help:
\   \___ \_\\ Dahkre ..
 o  *    \ . Jeff the Yeti
\_____\ \\\\ \\ \\ \_\.
..o
.....
. *..
.
\ \ \ \\ \. \
. \____\ \__\__\ \___ \____\   \ \____\.
\    _\ \
\  . .   . \_\\ 
  *  \ \ 
\_____\ \\\_____\ \_____\ \\ \_\ \_____\
..*..
..
.......
. *..
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment