home *** CD-ROM | disk | FTP | other *** search
/ Mammals - A Multimedia Encyclopedia / Mammals.bin / mammals / games / carnivor.scr next >
Text File  |  1990-08-31  |  2KB  |  71 lines
  1. show;if x=0 jump loop
  2. @loop10
  3. if x=1 {jump loop1;mouse;} if x=2 {jump loop2;mouse;} if x=3 {jump loop3;mouse;}
  4. if x=4 {jump loop4;mouse;} if x=5 {jump loop5;mouse;} if x=6 {jump loop6;mouse;}
  5. if x=7 {jump loop7;mouse;} if x=8 {jump loop8;mouse;} if x=9 {jump loop9;mouse;}
  6. @loop   
  7.  var z1(25),z2(25),z3(25),z4(25),z5(25),z6(27),z7(25),z8(25),mamm(25);
  8.  set z1="Limbs are:";
  9.  set z2="Animal has:";
  10.  set z3="Tail is:";
  11.  set z4="Legs are:";
  12.  set z5="Face has:";
  13.  set z7="Face has:";
  14.  set z8="Feet are:";
  15.  Set z6="Adult male has:";
  16.  set q1="";set a1="";set b1="";set q2="";set a2="";set b2="";
  17.  set q3="";set a3="";set b3="";set q4="";set a4="";set b4="";
  18.  set q5="";set a5="";set b5=""; set letter="";set fielda="";set x=1;
  19.                    
  20. @loop1 if x=1
  21.  {set q1=z1;set a1="Flippers";set b1="Legs";MOUSE;set x=2;}
  22. @loop2 if x=2
  23.  {If oname="a1"
  24.   {set b1="";set q2=z2;set a2="Tusks";set b2="No tusks";MOUSE;set x=3;}
  25.  if oname="b1"
  26.   {set a1="";set q2=z3;set a2="Long";set b2="Short";MOUSE;set x=4;}}
  27. @loop3 if x=3
  28.  {If oname="a2"
  29.   {set b2="";set mamm="walrus.";do answer;}
  30.  If oname="b2"
  31.   {set a2="";set mamm="harbor seal.";do answer;}}
  32. @loop4 if x=4
  33.  {If oname="a2"
  34.   {set b2="";set q3=z4;set a3="Short";set b3="Long";MOUSE;set x=5;}
  35.  If oname="b2"
  36.   {set a2="";set mamm="brown bear.";do answer;}}
  37. @loop5 if x=5
  38.  {If oname="a3"
  39.    {set b3="";set q4=z5;set a4="Mask or stripes";
  40.     set b4="No mask or stripes";MOUSE;set x=6;}
  41.  If oname="b3"
  42.   {set a3="";set q4=z6;set a4="Mane";set b4="No mane";MOUSE;set x=7;}}
  43. @loop6 if x=6
  44.  {If oname="a4"
  45.   {set b4="";set q5=z7;set a5="Mask";set b5="Stripes";MOUSE;set x=8;}
  46.  If oname="b4"
  47.   {set a4="";set q5=z8;set a5="Webbed";set b5="Not webbed";MOUSE;set x=9;}}
  48. @loop8 if x=8
  49.  {If oname="a5"
  50.   {set mamm="raccoon.";set b5="";do answer;}
  51.  If oname="b5"
  52.   {set mamm="red panda.";set a5="";do answer;}}
  53. @loop9 if x=9
  54.  {If oname="a5"
  55.   {set mamm="otter.";set b6="";do answer;}
  56.  If oname="b5"
  57.   {set mamm="mongoose.";set a6="";do answer;}}
  58. @loop7 if x=7
  59.  {If oname="a4"
  60.   {set mamm="lion.";set b4="";do answer;}
  61.  If oname="b4"
  62.   {set mamm="gray wolf.";set a4="";do answer;}}
  63. if oname="Escape" do escape;
  64. if oname="start1"  do start1; 
  65. if oname="new" do new;
  66. if oname="reread" do reread;
  67. if oname="research" do research;
  68. if otype="P" {mouse;jump loop10;}
  69. if oname=(""|"q1"|"q2"|"q3"|"q4"|"q5"|"fieldh"|"fielda"|"letter"|"info")
  70.  {mouse;jump loop10;}
  71.