194 lines
7.2 KiB
PHP
194 lines
7.2 KiB
PHP
|
<?php
|
||
|
|
/*Five Sixes tavern game
|
||
|
|
version 1.7
|
||
|
|
- Added periods at the end of News announcements
|
||
|
|
version 1.6
|
||
|
|
- Fixed newday reset
|
||
|
|
version 1.5
|
||
|
|
- Added win function for rolling 3 sixes
|
||
|
|
- Included winner list for 4 and 3 sixes on the entry page
|
||
|
|
*/
|
||
|
|
function game_fivesix_getmoduleinfo(){
|
||
|
|
$info = array(
|
||
|
|
"name"=>"Five Sixes Dice Game",
|
||
|
|
"author"=>"`4Talisman",
|
||
|
|
"version"=>"1.7",
|
||
|
|
"category"=>"Darkhorse Game",
|
||
|
|
"download"=>"core_module",
|
||
|
|
"settings"=>array(
|
||
|
|
"Five Sixes Dice Game,title",
|
||
|
|
"cost"=>"Cost to play,int|5",
|
||
|
|
"dailyuses"=>"Plays per day (0=unlimited),int|10",
|
||
|
|
"jackpot"=>"Gold in the pot,int|100",
|
||
|
|
"maxjackpot"=>"Maximum Payout,int|5000",
|
||
|
|
"lastwin5"=>"Last jackpot winner|Nobody...yet",
|
||
|
|
"lastpot5"=>"Last Jackpot Won,int|0",
|
||
|
|
"lastwin4"=>"Last winner of 4 sixes|Nobody...yet",
|
||
|
|
"lastpot4"=>"Last Jackpot Won,int|0",
|
||
|
|
"lastwin3"=>"Last winner of 3 sixes|Nobody...yet",
|
||
|
|
"lastpot3"=>"Last Jackpot Won,int|0",
|
||
|
|
),
|
||
|
|
"prefs"=>array(
|
||
|
|
"Five Sixes Dice, title",
|
||
|
|
"playstoday"=>"Times played today,int|0",
|
||
|
|
)
|
||
|
|
);
|
||
|
|
return $info;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_fivesix_install(){
|
||
|
|
global $session;
|
||
|
|
module_addhook("darkhorsegame");
|
||
|
|
module_addhook("newday");
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_fivesix_uninstall(){
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_fivesix_dohook($hookname, $args){
|
||
|
|
|
||
|
|
global $session;
|
||
|
|
switch($hookname){
|
||
|
|
case "newday":
|
||
|
|
set_module_pref("playstoday",0);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "darkhorsegame":
|
||
|
|
$ret = urlencode($args['return']);
|
||
|
|
addnav("Play Sixes Dice Game",
|
||
|
|
"runmodule.php?module=game_fivesix&ret=$ret&what=play");
|
||
|
|
}
|
||
|
|
return $args;
|
||
|
|
}
|
||
|
|
|
||
|
|
function game_fivesix_run(){
|
||
|
|
global $session;
|
||
|
|
$ret = urlencode(httpget("ret"));
|
||
|
|
page_header("A Game of Dice");
|
||
|
|
|
||
|
|
$prize=get_module_setting("jackpot");
|
||
|
|
$cost=get_module_setting("cost");
|
||
|
|
|
||
|
|
$what = httpget('what');
|
||
|
|
if ($what=="play"){
|
||
|
|
output("`n`@So you'd like to try your hand to rolling five sixes, would you?`n");
|
||
|
|
output("The game is quite simple, really - you roll five dice.");
|
||
|
|
output("If all five display sixes, you win the jackpot.`n`n");
|
||
|
|
output("`^It only costs you %s gold to play, and the current jackpot is %s gold pieces.`n`n", $cost, $prize);
|
||
|
|
|
||
|
|
$lastpot5=get_module_setting("lastpot5");
|
||
|
|
if ($lastpot5>=1){
|
||
|
|
$lastwin5=get_module_setting("lastwin5");
|
||
|
|
output("`@The last jackpot, worth %s gold was won by %s.`n`n",$lastpot5,$lastwin5);
|
||
|
|
}else{
|
||
|
|
output("`@The jackpot has never been won - you could be the first!`n`n");
|
||
|
|
}
|
||
|
|
$lastpot4=get_module_setting("lastpot4");
|
||
|
|
if ($lastpot4>=1) {
|
||
|
|
output("%s`@, in a peerless display, won `^%s `@gold for rolling 4 sixes.`n`n", get_module_setting("lastwin4"), get_module_setting("lastpot4"));
|
||
|
|
}
|
||
|
|
$lastpot3=get_module_setting("lastpot3");
|
||
|
|
if ($lastpot3>=1) {
|
||
|
|
output("If you need a loan, you might talk to %s`@, who won `^%s`@ gold for getting just three sixes.`n`n", get_module_setting("lastwin3"), get_module_setting("lastpot3"));
|
||
|
|
}
|
||
|
|
addnav("Play the Games");
|
||
|
|
addnav("D?Roll the Dice","runmodule.php?module=game_fivesix&what=roll&ret=$ret");
|
||
|
|
} elseif ($what=="roll"){
|
||
|
|
$visits = get_module_pref("playstoday");
|
||
|
|
$max = get_module_setting("dailyuses");
|
||
|
|
|
||
|
|
if (($visits < $max) || ($max==0)){
|
||
|
|
$cost=get_module_setting("cost");
|
||
|
|
if ($session['user']['gold'] < $cost){
|
||
|
|
output("`3The old man watches as nothing but moths and dust emerge from your coin purse.`n");
|
||
|
|
output("He shakes his head at you then turns back to his ale as though you weren't there.");
|
||
|
|
addnav("Return to the Main Room",appendlink(urldecode($ret), "op=tavern"));
|
||
|
|
}else{
|
||
|
|
debuglog("spent $cost gold on five-sixes game");
|
||
|
|
$session['user']['gold']-=$cost;
|
||
|
|
$visits++;
|
||
|
|
set_module_pref("playstoday",$visits);
|
||
|
|
$prize+=$cost;
|
||
|
|
|
||
|
|
$maxpot=get_module_setting("maxjackpot");
|
||
|
|
if ($prize > $maxpot) {
|
||
|
|
output("`n`@The old man slips your donation into his own change purse, muttering something about the pot being big enough already.`n`n");
|
||
|
|
$prize = $maxpot;
|
||
|
|
}
|
||
|
|
|
||
|
|
set_module_setting("jackpot",$prize);
|
||
|
|
|
||
|
|
$almost=0;
|
||
|
|
$one=e_rand(1,6);
|
||
|
|
if ($one==6) $almost++;
|
||
|
|
$two=e_rand(1,6);
|
||
|
|
if ($two==6) $almost++;
|
||
|
|
$three=e_rand(1,6);
|
||
|
|
if ($three==6) $almost++;
|
||
|
|
$four=e_rand(1,6);
|
||
|
|
if ($four==6) $almost++;
|
||
|
|
$five=e_rand(1,6);
|
||
|
|
if ($five==6) $almost++;
|
||
|
|
|
||
|
|
output("`n`@You gather the dice in an old leather cup, shake them, and hold your breath as you spill them onto the table.`n");
|
||
|
|
output("Upon inspecting them, you see their values are `^%s %s %s %s `@and `^%s`@.`n`n",$one,$two,$three,$four,$five);
|
||
|
|
if ($almost==5){
|
||
|
|
output("\"Congratulations!\", the old man exclaims.");
|
||
|
|
output("\"Tis rare for anybody to win this prize\"`n");
|
||
|
|
output("`^The old man hands you your winnings of %s gold",$prize);
|
||
|
|
$session['user']['gold']+=$prize;
|
||
|
|
debuglog("won $prize gold at sixes game.");
|
||
|
|
addnews("%s won %s gold after rolling 5 sixes in the %s.",$session['user']['name'],$prize, get_module_setting("tavernname","darkhorse"));
|
||
|
|
set_module_setting("jackpot",100);
|
||
|
|
set_module_setting("lastpot5",$prize);
|
||
|
|
$lastwin5=$session['user']['name'];
|
||
|
|
set_module_setting("lastwin5",$lastwin5);
|
||
|
|
}elseif ($almost==4){
|
||
|
|
$win=round($prize * .1);
|
||
|
|
$prize=$prize - $win;
|
||
|
|
set_module_setting("jackpot", $prize);
|
||
|
|
$session['user']['gold']+=$win;
|
||
|
|
debuglog("won $win gold at sixes game.");
|
||
|
|
set_module_setting("lastpot4",$win);
|
||
|
|
$lastwin4=$session['user']['name'];
|
||
|
|
set_module_setting("lastwin4",$lastwin4);
|
||
|
|
|
||
|
|
addnews("%s won %s gold after rolling 4 sixes in the %s.",$session['user']['name'],$win, get_module_setting("tavernname", "darkhorse"));
|
||
|
|
output("`@The old man leans over the table to peer at your dice and looks thoughtful for a moment.`n");
|
||
|
|
output("\"Well now...four out of five sixes is darned close, my friend. I think your effort deserves %s gold in reward.\"`n`n",$win);
|
||
|
|
output("`^The old man hands you %s gold.", $win);
|
||
|
|
}elseif ($almost==3){
|
||
|
|
$win=round($prize * .05);
|
||
|
|
$prize=$prize - $win;
|
||
|
|
set_module_setting("jackpot", $prize);
|
||
|
|
$session['user']['gold']+=$win;
|
||
|
|
set_module_setting("lastpot3",$win);
|
||
|
|
$lastwin3=$session['user']['name'];
|
||
|
|
set_module_setting("lastwin3",$lastwin3);
|
||
|
|
|
||
|
|
debuglog("won $win gold at sixes game.");
|
||
|
|
addnews("%s won %s gold after rolling 3 sixes in the %s.",$session['user']['name'],$win,get_module_setting("tavernname", "darkhorse"));
|
||
|
|
output("`@The old man leans over the table to peer at your dice and cackles as he notes your results.`n");
|
||
|
|
output("\"Well now...three out of five sixes isn't a bad effort, my friend. I'll give ye %s gold for that try.\"`n`n",$win);
|
||
|
|
output("`^The old man hands you %s gold.", $win);
|
||
|
|
}else{
|
||
|
|
output("The old man cackles. You rolled %s %s...but that's not enough!`n`n", $almost, translate_inline($almost == 1? "six": "sixes"));
|
||
|
|
output("Disappointed, you walk away.");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
output("`@The old man looks up at you and shakes his head slowly.`n");
|
||
|
|
output("`%\"I think you've had enough for today. Why don't you come back tomorrow?\"");
|
||
|
|
}
|
||
|
|
addnav("Play the Games");
|
||
|
|
addnav("Play again?","runmodule.php?module=game_fivesix&ret=$ret&what=play");
|
||
|
|
}
|
||
|
|
addnav("Other Games",appendlink(urldecode($ret), "op=oldman"));
|
||
|
|
addnav("Return to the Main Room",appendlink(urldecode($ret), "op=tavern"));
|
||
|
|
|
||
|
|
page_footer();
|
||
|
|
}
|
||
|
|
?>
|