home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / pascal / 7517 < prev    next >
Encoding:
Internet Message Format  |  1992-12-16  |  1.8 KB
  1. Path: sparky!uunet!cis.ohio-state.edu!pacific.mps.ohio-state.edu!linac!uwm.edu!ogicse!mimbres.cs.unm.edu!constellation!osuunx.ucc.okstate.edu!vms.ocom.okstate.edu!adams
  2. From: adams@vms.ocom.okstate.edu
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: help with die rolls...
  5. Message-ID: <1992Dec16.100336.1@vms.ocom.okstate.edu>
  6. Date: 16 Dec 92 16:03:36 GMT
  7. Article-I.D.: vms.1992Dec16.100336.1
  8. References: <1992Dec16.170959.3637@csdvax.csd.unsw.edu.au>
  9. Sender: news@osuunx.ucc.okstate.edu (USENET News System)
  10. Organization: OSU College of Osteopathic Medicine
  11. Lines: 38
  12. Nntp-Posting-Host: vms.ocom.okstate.edu
  13.  
  14. In article <1992Dec16.170959.3637@csdvax.csd.unsw.edu.au>, p2112899@csdvax.csd.unsw.edu.au writes:
  15. > Could someone please show me how to get random die rolls going.
  16. > 
  17. > I am writing an attribute program for a roll playing game and need to roll die
  18. > for it.
  19. > 
  20. > The code I have done is:
  21. > 
  22. > for i := 0 to 3 do  pe := pe + random(6);
  23. >
  24. > to roll a 6 sided die 3 times, but it doesn't work as it should. Some values
  25. > produced are actually lower than possible.
  26. > 
  27. > The minimum roll from 3 six sided die is 3, sometimes I get 2???
  28. > 
  29. > Any help will be appreciated.
  30. > 
  31. > Richard.
  32. > P2112899@csdvax.csd.unsw.edu.au
  33.  
  34.  
  35. All the RANDOM functions which accept arguments return values from ZERO to N-1,
  36. inclusive, where N is the argument supplied (in this case, 6).  If you want a
  37. number from 1 to 6, then use the following:
  38.  
  39. for i := 0 to 3 do  pe := pe + ( random(6) + 1 );
  40.  
  41. (parenthesis added for emphasis, not necessary.)
  42.  
  43. If the random function you are using does return the value of 6, then use this
  44. instead:
  45.  
  46. for i := 0 to 3 do  pe := pe + ( random(5) + 1 );
  47.  
  48.  
  49. I have had this same problem myself a few times before I figured it out :)
  50.  
  51. Steven Adams (INTERNET:  adams@vms.ocom.okstate.edu)
  52.