has anyone made a craps game just using PERL scripting?

Recommended Answers

All 26 Replies

#!/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";

now do i have to make any other directories to go along with this or no?

i get an error this is what it says

Can't modify concatenation (.) or string in scalar assignment at line 23, near "200;"

Wow this is what comes up when i open my webpage..can anyone help me so that this game can actually work?

1000 999 998 997 996 995 994 993 992 991 990 989 988 987 986 985 984 983 982 981 980 979 978 977 976 975 974 973 972 971 970 969 968 967 966 965 964 963 962 961 960 959 958 957 956 955 954 953 952 951 950 949 948 947 946 945 944 943 942 941 940 939 938 937 936 935 934 933 932 931 930 929 928 927 926 925 924 923 922 921 920 919 918 917 916 915 914 913 912 911 910 909 908 907 906 905 904 903 902 901 900 899 898 897 896 895 894 893 892 891 890 889 888 887 886 885 884 883 882 881 880 879 878 877 876 875 874 873 872 871 870 869 868 867 866 865 864 863 862 861 860 859 858 857 856 855 854 853 852 851 850 849 848 847 846 845 844 843 842 841 840 839 838 837 836 835 834 833 832 831 830 829 828 827 826 825 824 823 822 821 820 819 818 817 816 815 814 813 812 811 810 809 808 807 806 805 804 803 802 801 800 799 798 797 796 795 794 793 792 791 790 789 788 787 786 785 784 783 782 781 780 779 778 777 776 775 774 773 772 771 770 769 768 767 766 765 764 763 762 761 760 759 758 757 756 755 754 753 752 751 750 749 748 747 746 745 744 743 742 741 740 739 738 737 736 735 734 733 732 731 730 729 728 727 726 725 724 723 722 721 720 719 718 717 716 715 714 713 712 711 710 709 708 707 706 705 704 703 702 701 700 699 698 697 696 695 694 693 692 691 690 689 688 687 686 685 684 683 682 681 680 679 678 677 676 675 674 673 672 671 670 669 668 667 666 665 664 663 662 661 660 659 658 657 656 655 654 653 652 651 650 649 648 647 646 645 644 643 642 641 640 639 638 637 636 635 634 633 632 631 630 629 628 627 626 625 624 623 622 621 620 619 618 617 616 615 614 613 612 611 610 609 608 607 606 605 604 603 602 601 600 599 598 597 596 595 594 593 592 591 590 589 588 587 586 585 584 583 582 581 580 579 578 577 576 575 574 573 572 571 570 569 568 567 566 565 564 563 562 561 560 559 558 557 556 555 554 553 552 551 550 549 548 547 546 545 544 543 542 541 540 539 538 537 536 535 534 533 532 531 530 529 528 527 526 525 524 523 522 521 520 519 518 517 516 515 514 513 512 511 510 509 508 507 506 505 504 503 502 501 500 499 498 497 496 495 494 493 492 491 490 489 488 487 486 485 484 483 482 481 480 479 478 477 476 475 474 473 472 471 470 469 468 467 466 465 464 463 462 461 460 459 458 457 456 455 454 453 452 451 450 449 448 447 446 445 444 443 442 441 440 439 438 437 436 435 434 433 432 431 430 429 428 427 426 425 424 423 422 421 420 419 418 417 416 415 414 413 412 411 410 409 408 407 406 405 404 403 402 401 400 399 398 397 396 395 394 393 392 391 390 389 388 387 386 385 384 383 382 381 380 379 378 377 376 375 374 373 372 371 370 369 368 367 366 365 364 363 362 361 360 359 358 357 356 355 354 353 352 351 350 349 348 347 346 345 344 343 342 341 340 339 338 337 336 335 334 333 332 331 330 329 328 327 326 325 324 323 322 321 320 319 318 317 316 315 314 313 312 311 310 309 308 307 306 305 304 303 302 301 300 299 298 297 296 295 294 293 292 291 290 289 288 287 286 285 284 283 282 281 280 279 278 277 276 275 274 273 272 271 270 269 268 267 266 265 264 263 262 261 260 259 258 257 256 255 254 253 252 251 250 249 248 247 246 245 244 243 242 241 240 239 238 237 236 235 234 233 232 231 230 229 228 227 226 225 224 223 222 221 220 219 218 217 216 215 214 213 212 211 210 209 208 207 206 205 204 203 202 201 200 199 198 197 196 195 194 193 192 191 190 189 188 187 186 185 184 183 182 181 180 179 178 177 176 175 174 173 172 171 170 169 168 167 166 165 164 163 162 161 160 159 158 157 156 155 154 153 152 151 150 149 148 147 146 145 144 143 142 141 140 139 138 137 136 135 134 133 132 131 130 129 128 127 126 125 124 123 122 121 120 119 118 117 116 115 114 113 112 111 110 109 108 107 106 105 104 103 102 101 100 99 98 97 96 95 94 93 92 91 90 89 88 87 86 85 84 83 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 45 44 43 42 41 40 39 38 37 36 35 34 33 32 31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 1000 Iterations Ave Rollcounts: 0.000 Ave Rollcounts Hours: 0.000 Most Rollcounts: Most Rollcounts Days: 0.000 Ave Most Won: 0 Biggest Win: Wins | Losses

Actually, I think zortec's post was exactly what you asked for. It is a PERL script that rolls craps. It actually does 1000 iterations of craps and then gives you the statistics of how you did. You didn't specify you were looking for an interactive version of craps. :)

You also didn't specify you were looking for a version of craps that could be run from a web browser. All of that can be done, it just takes a bit more coding. The output that you got on the webpage was actually all 1000 iterations and the final statistics, but it looks like there may have been something wrong with the execution because the final statistics were all zero.

Well i just want like a button on so when you click it 2 numbers come out resembling a dice and something that keeps track of how much i win and lose. If i get to 5 dollars game over and if i get to 1000 dollars game over. How can i do this i still havent got an answer and i've made this same post in like 5 other threads. Can anyone help me?

I think the reason why you haven't gotten an answer is because this isn't really a question, it's a request. You're asking someone to write a craps game for you to put on the web. While there may be someone out there interested in doing this as a challenge for themselves, I don't know many people who want to write code for someone else for free.

Have you tried to write this code yourself? Is there something specific we can help you with?

I think the reason why you haven't gotten an answer is because this isn't really a question, it's a request. You're asking someone to write a craps game for you to put on the web. While there may be someone out there interested in doing this as a challenge for themselves, I don't know many people who want to write code for someone else for free.

Have you tried to write this code yourself? Is there something specific we can help you with?

The code is written...all's i need is to figure out how to make it work like make a form with some sort of button so when i click it the two numbers come up and tell me if i win or lose and if i do the money goes up or down

Web forms driven by Perl have a lot more to them than a simple shell script, and to make it interactive (with a running balance of money) you will need a way to store the data between the times when a user clicks the button to roll the dice. Post the code you have so far, and we can tell you what you are missing.

Heres the link: [url]http://ctech.smccme.edu/~rhodge/cw/craps/cgi-bin/craps.pl[/url]

#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp "fatalsToBrowser"; 

#  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";

This must have all the basics of the game completed and functioning. This means that the game must generate the two dice values and display an image for each individual dice. Set the correct conditions for the first throw to determine a win or a loss or the setting of a point. If the point is set the play must continue with consecutive throws until the point is matched or a 7 is thrown and a win or a loss is determined.

This must have all the basics of the game completed and functioning. This means that the game must generate the two dice values and display an image for each individual dice. Set the correct conditions for the first throw to determine a win or a loss or the setting of a point. If the point is set the play must continue with consecutive throws until the point is matched or a 7 is thrown and a win or a loss is determined.

These look like instructions for homework. Sorry, but I don't want to do someone's homework for them. Additionally, from what you pasted in here, you just copied zortec's code and added the second and third line. I don't see anything that you wrote yourself.

I'll give you the following steps to a CGI program, though:

1. The program should give the user an initial page with an HTML form and "Submit" button to indicate a roll

2. The program should then perform the action of the roll, and then provide a secondary results page, and so-on.

3. You'll have to pass the value of the player's account, the roll number, and the first number rolled to each page. You might look at using hidden tags for that.

4. On the final page, you should give the player an option to play again.

Good luck!

I just need a page that has two images of dice and when i hit the submit button or whatever the images change and it tells me if i win or lose whats the easiest way to do that. I wont even worry about the bank, can i still use this script?

I am going to echo what roswell1329 has already said. It is not very clear what you are asking help on. From what I can see, you are looking for someone to do your homework and that is not the purpose of this forum. Sorry, but you have to do some of the work yourself and not just copy other code and call it your own.

Its not even about the code right now. Just wanted to know how to make images change when i hit a button and tell me if i win or lose. Thats all

Actually, it is about the code. Adding images to an online application adds another layer of complexity. You would then have to keep track of which image you're displaying based on the current state and you would have to change the images based on the result. It's a whole separate process, and just asking the question gives me the impression that you really don't understand what you're asking.

Thats exactly right what you just said finally someone understands what im looking for but how would i go about this in this script?

Do you really understand what you're asking or are you just saying that we have it right so that we can give you the solution to your class problem? I think it would help you out considerably if you thought about what you wanted to ask. You are just all over the place now.

i want some type of form and when i click this "lets call it roll botton" two images on the screen change and depending on what numbers come up i win or lose.

I think we're talking in circles here. I'm afraid what you are asking for is beyond the scope of this discussion forum. You are obviously a newcomer to programming which is great, but you are asking us to explain several concepts of web programming that I doubt anyone here wants to take the time to explain. Good luck to you.

I think we're talking in circles here. I'm afraid what you are asking for is beyond the scope of this discussion forum. You are obviously a newcomer to programming which is great, but you are asking us to explain several concepts of web programming that I doubt anyone here wants to take the time to explain. Good luck to you.

Just tells me you dont know how to do it thats all.

commented: Sure. That's got to be it. -2

Keep thinking that if it makes you feel better, but I'm not going to do the work for you. If you have a specific question about a specific piece of code that you have written, my offer to help still stands.

I just dont know where to start on this project. I know if i want images to appear and when i hit a button and change i have to save all the images in my directory, preferably a picture of all sides of the dice. Then say if i roll a 7 when those two dice add up to 7 or 11 i win and something comes up telling me that i win. When i roll say a 2,3 or 12 i lose and say text tells me that i lose.

How would you make images appear on a normal web page using HTML? Probably something like this:

<img src="die1.jpg" />

So, if you wanted your script to make an image visible in the browser, you'd have to make your script create an HTML tag like the one above to indicate what image to show like this:

print "<img src=\"dice1.jpg\" \/>\n";

If you don't know what image you are going to display at any given time, you may have to use a variable in the filename like this:

print "<img src=\"dice" . $dice_side . "\.jpg\" \/>\n";

The "button" you keep mentioning is going to be a "submit" button that is connected to an HTML form that references your script as the action. The function of that button is to submit any values provided in the form to the script referenced as the action. Google "html form tag" for more details.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.