PERL Craps Game

[Rhodge09]

This is my script it works fine but it comes out on my webpage as just text how can i change this around and make it so if i like click a button a 2 different numbers come up almost like the 2 dice and remember how much i make each roll. Is there anyway anyone can help me? I can show you what it looks like in the browser right now if you ask i can show you if that will help. Thanks i really need this because its a project i have to get finished. If anyone i mean anyone can help me i will be greatful.Thanks

#!/usr/bin/perl
 
# How many games would you like to roll?
$iterations = 1000;
 
for ($count = $iterations; $count >= 1; $count--) {
 
print "$count \n";
 
# Bankroll per game. Rules are set up for a $5 bet on a 3x/4x/5x table.
$bankroll = 200;
 
$rollcount = 0;
$high = 200;
 
$itson = 1;
 
while ($itson == 1) {
 
$die1 = int(rand() * 6) + 1;
$die2 = int(rand() * 6) + 1;
$roll = $die1 + $die2;
$rollcount = $rollcount + 1;
 
if ($roll == 7 || $roll == 11) {
$bankroll = $bankroll + 5;
# print "W $roll $bankroll $rollcount\n";
if ($bankroll > $high) {
$high = $bankroll;
}
}
 
elsif ($roll == 2 || $roll == 3 || $roll == 12) {
$bankroll = $bankroll - 5;
# print "L $roll $bankroll $rollcount\n";
}
 
else {
$setnum = $roll;
$notcrapped = 1;
while ($notcrapped == 1) {
 
$die1 = int(rand() * 6) + 1;
$die2 = int(rand() * 6) + 1;
$roll = $die1 + $die2;
$rollcount = $rollcount + 1;
 
if ($roll == $setnum) {
$bankroll = $bankroll + 35;
# print "W $roll $bankroll $rollcount\n";
if ($bankroll > $high) {
$high = $bankroll;
}
$notcrapped = 0;
}
 
if ($roll == 7) {
 
if ($setnum == 4 || $setnum == 10) {
$bankroll = $bankroll - 20;
}
 
if ($setnum == 5 || $setnum == 9) {
$bankroll = $bankroll - 25;
}
 
if ($setnum == 6 || $setnum == 8) {
$bankroll = $bankroll - 30;
}
 
# print "L $roll $bankroll $rollcount\n";
$notcrapped = 0;
}
}
}
 
# Game ends when you have less than $5
if ($bankroll < 5) {
$losses = $losses + 1;
$itson = 0;
}
 
# It also ends if youmake $1000
if ($bankroll >= 1000) {
$wins = $wins + 1;
$itson = 0;
}
 
}
 
if ($high > $biggest) {
$biggest = $high;
}
 
if ($rollcount > $mostrolls) {
$mostrolls = $rollcount;
}
 
$bigrollcount = $bigrollcount + $rollcount;
$bighigh = $bighigh + $high;
 
}
 
print "$iterations Iterations \n";
print "Ave Rollcounts: " . sprintf("%.3f", $bigrollcount/$iterations) . "\n";
print "Ave Rollcounts Hours: " . sprintf("%.3f", int($bigrollcount/$iterations)/180) . "\n";
print "Most Rollcounts: $mostrolls\n";
# Most Rollcounts Days assumes 3 rolls/minute.
print "Most Rollcounts Days: " . sprintf("%.3f", ($mostrolls/180)/24) ."\n";
print "Ave Most Won: " . ($bighigh/$iterations) . "\n";
print "Biggest Win: $biggest\n";
print "$wins Wins | $losses Losses";
 
 

[Rhodge09]

no one can help me with what im looking for? i want kind of like a form so when i click something 2 numbers come up and according to the rules if i get a certain number i win and if i dont i lose. Also something that will keep track of how much i win and if i get to $1000 game over and if i get to $5 dollars the game is over.

[numberwhun]

First, please be patient. I know you posted this on Saturday, but considering everyone here are volunteers, people tend to do other things on the weekend.

As far as your script goes, if you are wanting this to print to your browser, then you need to make sure that your web server is setup to execute Perl scripts as cgi. You should reference documentation for whatever web server you are using.

I don't know what extension you have on your script (whether it is .pl or .cgi), but if you don't tell your web server to execute it, it will just display the script as text.

There are probably some Perl CGI tutorials you can reference as well for learning Perl CGI.


Regards,

Jeff

[Rhodge09]

This is the site: http://ctech.smccme.edu/~rhodge/cw/c...i-bin/craps.pl

i want like some type of button or something so when i click it the two numbers come up resembling a dice and then it shows me if i win or lose and if i win i get money and if i lose i lose moeny thats as simple as it needs to be.

How do i tell it to execute it? Im like running my own web server so.

[numberwhun]

I hate to say this, but this sounds too much like a homework problem for me to just give you the code. You are going to have to do the legwork. If you do not know how to display information in the browser from Perl, I again suggest you go through a CGI tutorial.

As for displaying dice for the numbers, you will need pics of each side in order to do that and display the correct dice based on the numbers rolled.

Regards,

Jeff

[Rhodge09]

Well the script i have up top i now know is only for shell command line program. But for just wanting a button and when i click it the pictures change and by that number either i win or lose. Im just trying to figure out how to even start this. Thanks for replying jeff

[numberwhun]

What you are looking to do in order to produce the output you are looking for, is to write some CGI code. With the CGI module, you can produce HTML output to have displayed in a browser. Using that code, you can write Perl code to input the name of an image depending on the number rolled. (That's just an idea, btw, on how to do the dice pictures).

I would definitely go over to CPAN and learn the CGI module. You will then understand how to create a web page with Perl.

Regards,

Jeff

[Rhodge09]

Ya i'd have to save images of all sides of the dice and depending on what get's rolled it can tell me if i win or lose thats what im looking for your on the right topic but where would i input the "button" and images into this code

[numberwhun]

CGI outputs HTML. Do you know HTML? If not, I suggest a tutorial on that as well.

Regards,

Jeff

[Rhodge09]

If this helps i want something just like this..

http://ctech.smccme.edu/~zeke/cw/save/craps/craps.pl

if you want the code i have as of right now and you think you can help me a little at a time i'd appreciate it.