#!/usr/bin/perl
$graph_dir = "../graphics";
$cgi_dir = ".";
@input = split(/&/,$ENV{'QUERY_STRING'});
foreach $index (0..$#input)
{
($key, $val) = split(/=/,$input[$index],2);
$input{$key} .= $val;
}
$food = $input{'food'};
$drink = $input{'drink'};
$money = $input{'money'};
$guide = $input{'guide'};
$degen = $input{'degen'};
$diff = $input{'difficulty'};
print "Content-type: text/html\n\n";
print "\n\nCharacter Selection\n\n\n";
print "\n";
# 80 #
$info ="0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000";
$info = &put_info($info, "Difficulty", $diff);
$info = &put_info($info, "Food", $food);
$info = &put_info($info, "Drink", $drink);
$info = &put_info($info, "Wallet", $money);
$info = &put_info($info, "Degen_Rate", $degen);
$info = &put_info($info, "Help_Rate", $guide);
$info = &put_info($info, "Sleep", "99");
$info = &put_info($info, "Time_Till_Rent_Due", "FFFFF");
$info = &put_info($info, "Time_Till_Pay", "FF");
$info = &put_info($info, "Time_Since_Last_Job", "0001");
$info = &put_info($info, "Time_Since_Last_Accom", "0001");
$info = &put_info($info, "Time_Since_Last_Bus", "0001");
$info = &put_info($info, "Course_Time_Remaining", "FFFF");
$info = &put_info($info, "Amount_Rent_Late","FF");
$info = &put_employer($info, "NOEMPLOY");
$info = &put_info($info, "Time_Till_Austudy", "00");
$info = &put_info($info, "Time_Till_JobSearch", "00");
$info = &put_info($info, "Time_Till_RentAssist", "00");
print qq|\n";
print "\n";
sub get_info {
local($info_string, $info_type)=@_;
$info_loc=&get_info_loc($info_type);
$start=substr($info_loc,0,2);
$length=substr($info_loc,3,1);
$return_info=substr($info_string,$start,$length);
}
sub put_info {
local($info_string, $info_type, $replacement)=@_;
$info_loc=&get_info_loc($info_type);
$start=substr($info_loc,0,2);
$length=substr($info_loc,3,1);
$replacement="0000000000000000$replacement";
$neg_length= $length*-1;
$replace_value=substr($replacement,$neg_length,$length);
substr($info_string,$start,$length)=$replace_value;
$info_return = $info_string;
}
sub put_employer {
local($info_string, $replacement)=@_;
$info_loc=&get_info_loc("Employer");
$start=substr($info_loc,0,2);
$length=substr($info_loc,3,1);
$replacement="$replacement"."0000000000000000";
$replace_value=substr($replacement,0,$length);
substr($info_string,$start,$length)=$replace_value;
$info_return = $info_string;
}
sub get_info_loc {
local($info_type)=@_;
open(INFO_FILE, "./infotype.txt");
while ()
{
chop;
($inform, $location) = split(/:/,$_,2);
if ($inform eq $info_type) {$locat_stuff = $location}
}
close(INFO_FILE);
$info_loc = $locat_stuff;
}