function darkhorse_bartender($from) { global $session; $what = httpget('what'); if ($what == "") { output("The grizzled old man behind the bar reminds you very much of a strip of beef jerky.`n`n"); $dname = translate_inline($session['user']['sex'] ? "lasshie" : "shon"); output("\"`7Shay, what can I do for you %s?`0\" inquires the toothless fellow.", $dname); output("\"`7Don't shee the likesh of your short too offen 'round theshe partsh.`0\""); addnav("Learn about my enemies", $from . "op=bartender&what=enemies"); addnav("Learn about colors", $from . "op=bartender&what=colors"); } elseif ($what == "colors") { output("The old man leans on the bar."); output("\"`%Sho you want to know about colorsh, do you?`0\" he asks.`n`n"); output("You are about to answer when you realize the question was rhetorical.`n`n"); output("He continues, \"`%To do colorsh, here'sh what you need to do. Firsht, you ushe a ` mark (found right above the tab key) followed by 1, 2, 3, 4, 5, 6, 7, !, @, #, \$, %, ^, &, ), q or Q. Each of thoshe correshpondsh with a color to look like this: `n`1`1 `2`2 `3`3 `4`4 `5`5 `6`6 `7`7 `n`!`! `@`@ `#`# `\$`\$ `%`% `^`^ `&`& `n `)`) `q`q `Q`Q `n`% got it?`0\"`n You can practice below:", true); rawoutput("<form action=\"" . $from . "op=bartender&what=colors\" method='POST'>"); $testtext = httppost('testtext'); $try = translate_inline("Try"); rawoutput("<input name='testtext' id='testtext'><input type='submit' class='button' value='{$try}'></form>"); addnav("", $from . "op=bartender&what=colors"); rawoutput("<script language='JavaScript'>document.getElementById('testtext').focus();</script>"); if ($testtext) { output("`0You entered %s`n", prevent_colors(HTMLEntities($testtext, ENT_COMPAT, getsetting("charset", "ISO-8859-1"))), true); output("It looks like %s`n", $testtext); } output("`0`n`nThese colors can be used in your name, and in any conversations you have."); } else { if ($what == "enemies") { $who = httpget('who'); if ($who == "") { output("\"`7Sho, you want to learn about your enemiesh, do you? Who do you want to know about? Well? Shpeak up! It only costs `^100`7 gold per person for information.`0\""); $subop = httpget('subop'); if ($subop != "search") { $search = translate_inline("Search"); rawoutput("<form action='" . $from . "op=bartender&what=enemies&subop=search' method='POST'><input name='name' id='name'><input type='submit' class='button' value='{$search}'></form>"); addnav("", $from . "op=bartender&what=enemies&subop=search"); rawoutput("<script language='JavaScript'>document.getElementById('name').focus();</script>"); } else { addnav("Search Again", $from . "op=bartender&what=enemies"); $search = "%"; $name = httppost('name'); for ($i = 0; $i < strlen($name); $i++) { $search .= substr($name, $i, 1) . "%"; } $sql = "SELECT name,alive,location,sex,level,laston,loggedin,login FROM " . db_prefix("accounts") . " WHERE (locked=0 AND name LIKE '{$search}') ORDER BY level DESC"; $result = db_query($sql); $max = db_num_rows($result); if ($max > 100) { output("`n`n\"`7Hey, whatsh you think yoush doin'. That'sh too many namesh to shay. I'll jusht tell you 'bout shome of them.`0`n"); $max = 100; } $n = translate_inline("Name"); $lev = translate_inline("Level"); rawoutput("<table border=0 cellpadding=0><tr><td>{$n}</td><td>{$lev}</td></tr>"); for ($i = 0; $i < $max; $i++) { $row = db_fetch_assoc($result); rawoutput("<tr><td><a href='" . $from . "op=bartender&what=enemies&who=" . rawurlencode($row['login']) . "'>"); output_notl("%s", $row['name']); rawoutput("</a></td><td>{$row['level']}</td></tr>"); addnav("", $from . "op=bartender&what=enemies&who=" . rawurlencode($row['login'])); } rawoutput("</table>"); } } else { if ($session['user']['gold'] >= 100) { $sql = "SELECT name,acctid,alive,location,maxhitpoints,gold,sex,level,weapon,armor,attack,race,defense,charm FROM " . db_prefix("accounts") . " WHERE login='******'"; $result = db_query($sql); if (db_num_rows($result) > 0) { $row = db_fetch_assoc($result); $row = modulehook("adjuststats", $row); $name = str_replace("s", "sh", $row['name']); $name = str_replace("S", "Sh", $name); output("\"`7Well... letsh shee what I know about %s`7,`0\" he says...`n`n", $name); output("`4`bName:`b`6 %s`n", $row['name']); output("`4`bRace:`b`6 %s`n", translate_inline($row['race'], "race")); output("`4`bLevel:`b`6 %s`n", $row['level']); output("`4`bHitpoints:`b`6 %s`n", $row['maxhitpoints']); output("`4`bGold:`b`6 %s`n", $row['gold']); output("`4`bWeapon:`b`6 %s`n", $row['weapon']); output("`4`bArmor:`b`6 %s`n", $row['armor']); output("`4`bAttack:`b`6 %s`n", $row['attack']); output("`4`bDefense:`b`6 %s`n", $row['defense']); output("`n`^%s7 ish alsho ", $row['name']); $amt = $session['user']['charm']; if ($amt == $row['charm']) { output("ash ugly ash you are.`n"); } else { if ($amt - 10 > $row['charm']) { output("`bmuch`b uglier shan you!`n"); } else { if ($amt > $row['charm']) { output("uglier shan you.`n"); } else { if ($amt + 10 < $row['charm']) { output("`bmuch`b more beautiful shan you!`n"); } else { output("more beautiful shan you.`n"); } } } } $session['user']['gold'] -= 100; debuglog("spent 100 gold to learn about an enemy"); } else { output("\"`7Eh..? I don't know anyone named that.`0\""); } } else { output("\"`7Well... letsh shee what I know about cheapshkates like you,`0\" he says...`n`n"); output("`4`bName:`b`6 Get some money`n"); output("`4`bLevel:`b`6 You're too broke`n"); output("`4`bHitpoints:`b`6 Probably more than you`n"); output("`4`bGold:`b`6 Definately richer than you`n"); output("`4`bWeapon:`b`6 Something good enough to lay the smackdown on you`n"); output("`4`bArmor:`b`6 Probably something more fashionable than you`n"); output("`4`bAttack:`b`6 Eleventy billion`n"); output("`4`bDefense:`b`6 Super Duper`n"); } } } } addnav("Return to the Main Room", $from . "op=tavern"); }
addnav("Refresh the list", "inn.php?op=bartender&act=listupstairs"); output("%s`0 lays out a set of keys on the counter top, and tells you which key opens whose room. The choice is yours, you may sneak in and attack any one of them.", $barkeep); pvplist($iname, "pvp.php", "?act=attack&inn=1"); } else { if ($act == "colors") { output("%s`0 leans on the bar. \"`%So you want to know about colors, do you?`0\" he asks.", $barkeep); output("You are about to answer when you realize the question was posed in the rhetoric."); output("%s`0 continues, \"`%To do colors, here's what you need to do.", $barkeep); output(" First, you use a ` mark (found right above the tab key) followed by 1, 2, 3, 4, 5, 6, 7, !, @, #, \$, %, ^, &.", true); output("Each of those corresponds with a color to look like this:"); output_notl("`n`1`1 `2`2 `3`3 `4`4 `5`5 `6`6 `7`7 ", true); output_notl("`n`!`! `@`@ `#`# `\$`\$ `%`% `^`^ `&`& `n", true); output("`% Got it?`0\" You can practice below:"); rawoutput("<form action=\"{$REQUEST_URI}\" method='POST'>", true); $testtext = httppost('testtext'); output("You entered %s`n", prevent_colors(HTMLEntities($testtext, ENT_COMPAT, getsetting("charset", "ISO-8859-1"))), true); output("It looks like %s`n", $testtext); $try = translate_inline("Try"); rawoutput("<input name='testtext' id='input'>"); rawoutput("<input type='submit' class='button' value='{$try}'>"); rawoutput("</form>"); rawoutput("<script language='javascript'>document.getElementById('input').focus();</script>"); output("`0`n`nThese colors can be used in your name, and in any conversations you have."); addnav("", $REQUEST_URI); } else { if ($act == "specialty") { $specialty = httpget('specialty'); if ($specialty == "") { output("\"`2I want to change my specialty,`0\" you announce to %s`0.`n`n", $barkeep); output("With out a word, %s`0 grabs you by the shirt, pulls you over the counter, and behind the barrels behind him.", $barkeep); output("There, he rotates the tap on a small keg labeled \"Fine Swill XXX\"`n`n");