!*! Updated on 10-May-90 at 9:00 AM by Matt Badger; edit time: 0:01:34
!USES LINE DRAWING - WRITTEN FOR THE WYSE50 TERMINAL
       MAP1 DIE1,F
       MAP1 DIE2,F
       MAP1 DIE3,F
       MAP1 DIE4,F
       MAP1 DIE5,F
       MAP1 COUNT,F
       MAP1 ANSWR,F
       MAP1 GUESS,S,2
       MAP1 NIAGA,S,1
       MAP1 RIGHT'ONE,F
       MAP1 LAST'RIGHT,F
       MAP1 MESSAGE,S,35
       MAP1 END'MESSAGE,S,35,"                                  "
       MAP1 INXCTL,F
       MAP1 END'TIME,F,6,0

       MAP1 ALL'DICE
               MAP2 D1(9),S,1
               MAP2 D2(9),S,1
               MAP2 D3(9),S,1
               MAP2 D4(9),S,1
               MAP2 D5(9),S,1
       SIGNIFICANCE 11

BEGIN:
       RIGHT'ONE=0
       LAST'RIGHT=0
       ANSWR=0
       GOSUB DRAW'IT

MAIN'LINE:
       GOSUB RAND
       GOSUB FIGURE'IT
       GOSUB DISPLAY'IT
!       GOSUB PRINT'IT
       GOSUB ASK'IT
       GOTO MAIN'LINE
       END


RAND:
       RANDOMIZE
       DIE1=INT(6*RND(1)+1)
       DIE2=INT(6*RND(1)+1)
       DIE3=INT(6*RND(1)+1)
       DIE4=INT(6*RND(1)+1)
       DIE5=INT(6*RND(1)+1)
       RETURN

FIGURE'IT:
       ALL'DICE=SPACE(45)
       COUNT=0
       IF DIE1 = 1 THEN D1(5)="*"
       IF DIE1 = 2 THEN D1(1)="*":D1(9)="*"
       IF DIE1 = 3 THEN D1(1)="*":D1(5)="*":D1(9)="*":COUNT=COUNT+2
       IF DIE1 = 4 THEN D1(1)="*":D1(3)="*":D1(7)="*":D1(9)="*"
       IF DIE1 = 5 THEN D1(1)="*":D1(3)="*":D1(7)="*":D1(9)="*":D1(5)="*":COUNT=COUNT+4
       IF DIE1 = 6 THEN D1(1)="*":D1(2)="*":D1(3)="*":D1(7)="*":D1(8)="*":D1(9)="*"

       IF DIE2 = 1 THEN D2(5)="*"
       IF DIE2 = 2 THEN D2(1)="*":D2(9)="*"
       IF DIE2 = 3 THEN D2(1)="*":D2(5)="*":D2(9)="*":COUNT=COUNT+2
       IF DIE2 = 4 THEN D2(1)="*":D2(3)="*":D2(7)="*":D2(9)="*"
       IF DIE2 = 5 THEN D2(1)="*":D2(3)="*":D2(7)="*":D2(9)="*":D2(5)="*":COUNT=COUNT+4
       IF DIE2 = 6 THEN D2(1)="*":D2(2)="*":D2(3)="*":D2(7)="*":D2(8)="*":D2(9)="*"

       IF DIE3 = 1 THEN D3(5)="*"
       IF DIE3 = 2 THEN D3(1)="*":D3(9)="*"
       IF DIE3 = 3 THEN D3(1)="*":D3(5)="*":D3(9)="*":COUNT=COUNT+2
       IF DIE3 = 4 THEN D3(1)="*":D3(3)="*":D3(7)="*":D3(9)="*"
       IF DIE3 = 5 THEN D3(1)="*":D3(3)="*":D3(7)="*":D3(9)="*":D3(5)="*":COUNT=COUNT+4
       IF DIE3 = 6 THEN D3(1)="*":D3(2)="*":D3(3)="*":D3(7)="*":D3(8)="*":D3(9)="*"

       IF DIE4 = 1 THEN D4(5)="*"
       IF DIE4 = 2 THEN D4(1)="*":D4(9)="*"
       IF DIE4 = 3 THEN D4(1)="*":D4(5)="*":D4(9)="*":COUNT=COUNT+2
       IF DIE4 = 4 THEN D4(1)="*":D4(3)="*":D4(7)="*":D4(9)="*"
       IF DIE4 = 5 THEN D4(1)="*":D4(3)="*":D4(7)="*":D4(9)="*":D4(5)="*":COUNT=COUNT+4
       IF DIE4 = 6 THEN D4(1)="*":D4(2)="*":D4(3)="*":D4(7)="*":D4(8)="*":D4(9)="*"

       IF DIE5 = 1 THEN D5(5)="*"
       IF DIE5 = 2 THEN D5(1)="*":D5(9)="*"
       IF DIE5 = 3 THEN D5(1)="*":D5(5)="*":D5(9)="*":COUNT=COUNT+2
       IF DIE5 = 4 THEN D5(1)="*":D5(3)="*":D5(7)="*":D5(9)="*"
       IF DIE5 = 5 THEN D5(1)="*":D5(3)="*":D5(7)="*":D5(9)="*":D5(5)="*":COUNT=COUNT+4
       IF DIE5 = 6 THEN D5(1)="*":D5(2)="*":D5(3)="*":D5(7)="*":D5(8)="*":D5(9)="*"

       RETURN


DISPLAY'IT:
       PRINT TAB(4,5);D1(1);TAB(4,9);D1(2);TAB(4,13);D1(3);
       PRINT TAB(6,5);D1(4);TAB(6,9);D1(5);TAB(6,13);D1(6);
       PRINT TAB(8,5);D1(7);TAB(8,9);D1(8);TAB(8,13);D1(9);

       PRINT TAB(4,18);D2(1);TAB(4,22);D2(2);TAB(4,26);D2(3);
       PRINT TAB(6,18);D2(4);TAB(6,22);D2(5);TAB(6,26);D2(6);
       PRINT TAB(8,18);D2(7);TAB(8,22);D2(8);TAB(8,26);D2(9);

       PRINT TAB(4,31);D3(1);TAB(4,35);D3(2);TAB(4,39);D3(3);
       PRINT TAB(6,31);D3(4);TAB(6,35);D3(5);TAB(6,39);D3(6);
       PRINT TAB(8,31);D3(7);TAB(8,35);D3(8);TAB(8,39);D3(9);

       PRINT TAB(4,44);D4(1);TAB(4,48);D4(2);TAB(4,52);D4(3);
       PRINT TAB(6,44);D4(4);TAB(6,48);D4(5);TAB(6,52);D4(6);
       PRINT TAB(8,44);D4(7);TAB(8,48);D4(8);TAB(8,52);D4(9);

       PRINT TAB(4,57);D5(1);TAB(4,61);D5(2);TAB(4,65);D5(3);
       PRINT TAB(6,57);D5(4);TAB(6,61);D5(5);TAB(6,65);D5(6);
       PRINT TAB(8,57);D5(7);TAB(8,61);D5(8);TAB(8,65);D5(9);

       PRINT TAB(10,1);TAB(-1,9);
       PRINT TAB(11,1);TAB(-1,9);
       PRINT TAB(12,1);TAB(-1,9);
       PRINT TAB(13,1);TAB(-1,9);
       PRINT TAB(14,1);TAB(-1,9);
       PRINT TAB(15,1);TAB(-1,9);
       PRINT TAB(16,1);TAB(-1,9);
       PRINT TAB(17,1);TAB(-1,9);
       RETURN



DRAW'IT:
       PRINT TAB(-1,0);
       PRINT TAB(-1,23);
       PRINT TAB(3,3);TAB(-1,38);
       FOR I = 4 TO 14
               PRINT TAB(3,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,39);
       FOR I = 4 TO 8
               PRINT TAB(I,3);TAB(-1,47);TAB(I,15);TAB(-1,47);
       NEXT I
       PRINT TAB(9,3);TAB(-1,40);
       FOR I = 4 TO 14
               PRINT TAB(9,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,41);

       PRINT TAB(3,16);TAB(-1,38);
       FOR I = 17 TO 27
               PRINT TAB(3,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,39);
       FOR I = 4 TO 8
               PRINT TAB(I,16);TAB(-1,47);TAB(I,28);TAB(-1,47);
       NEXT I
       PRINT TAB(9,16);TAB(-1,40);
       FOR I = 17 TO 27
               PRINT TAB(9,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,41);

       PRINT TAB(3,29);TAB(-1,38);
       FOR I = 30 TO 40
               PRINT TAB(3,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,39);
       FOR I = 4 TO 8
               PRINT TAB(I,29);TAB(-1,47);TAB(I,41);TAB(-1,47);
       NEXT I
       PRINT TAB(9,29);TAB(-1,40);
       FOR I = 30 TO 40
               PRINT TAB(9,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,41);

       PRINT TAB(3,42);TAB(-1,38);
       FOR I = 43 TO 53
               PRINT TAB(3,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,39);
       FOR I = 4 TO 8
               PRINT TAB(I,42);TAB(-1,47);TAB(I,54);TAB(-1,47);
       NEXT I
       PRINT TAB(9,42);TAB(-1,40);
       FOR I = 43 TO 53
               PRINT TAB(9,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,41);

       PRINT TAB(3,55);TAB(-1,38);
       FOR I = 56 TO 66
               PRINT TAB(3,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,39);
       FOR I = 4 TO 8
               PRINT TAB(I,55);TAB(-1,47);TAB(I,67);TAB(-1,47);
       NEXT I
       PRINT TAB(9,55);TAB(-1,40);
       FOR I = 56 TO 66
               PRINT TAB(9,I);TAB(-1,46);
       NEXT I
       PRINT TAB(-1,41);

       PRINT TAB(-1,24);

       PRINT TAB(18,10);"At each roll of the dice there will be a number associated";
       PRINT TAB(19,10);"with that roll. Can you guess the number ? If you can get it";
       PRINT TAB(20,10);"right three times in a row, you win ! Your only clue is the";
       PRINT TAB(21,10);"name of the game, 'Petals Around The Rose'.";

       RETURN
ASK'IT:
       PRINT TAB(12,20);"Do you have an answer ?";
       XCALL INPUT,12,44,2,1,"#E",GUESS,INXCTL,1
       IF GUESS="EN" GOTO ENDIT
       IF ABS(GUESS)=ABS(COUNT) GOTO GOT'ONE
       LAST'RIGHT=0
       PRINT TAB(14,20);"Sorry, that is incorrect. The answer is ";COUNT;
       PRINT TAB(15,20);"Try again ?";
       XCALL INPUT,15,32,1,1,"NY",NIAGA,INXCTL,1
       IF NIAGA = "N" OR UCS(NIAGA) = "N" GOTO ENDIT
       RETURN


GOT'ONE:
       PRINT CHR$(7);
       IF LAST'RIGHT=1 THEN RIGHT'ONE=RIGHT'ONE+1
       IF LAST'RIGHT=0 THEN LAST'RIGHT=1:RIGHT'ONE=1
       MESSAGE=SPACE
       IF RIGHT'ONE = "1" THEN MESSAGE="Was it luck or skill ?"
       IF RIGHT'ONE = "2" THEN MESSAGE="Two right - one more and you win !"
       IF RIGHT'ONE = "3" GOTO WON'GAME
       PRINT TAB(14,20);"You got it right ! ";MESSAGE;
       PRINT TAB(16,20);"Try again ?";
       XCALL INPUT,16,32,1,1,"NY",NIAGA,INXCTL,1
       IF NIAGA = "N" OR UCS(NIAGA) = "N" GOTO ENDIT
       RETURN





PRINT'IT:
       PRINT TAB(10,10);DIE1;" ";DIE2;" ";DIE3;" ";DIE4;" ";DIE5;
       PRINT TAB(11,10);COUNT;
       PRINT TAB(22,1);
       RETURN

WON'GAME:
       END'MESSAGE = "YOU WON - NOW TRY SOMETHING ELSE...."
       END'TIME=75

ENDIT:
       PRINT TAB(-1,0);
       PRINT TAB(12,10);END'MESSAGE;
       FOR I = 1 TO END'TIME
               PRINT TAB(23,1);"                                        ";
       NEXT I
       PRINT TAB(23,1);
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.