home *** CD-ROM | disk | FTP | other *** search
/ Mammals - A Multimedia Encyclopedia / Mammals.bin / mammals / games / primate.scr < prev    next >
Text File  |  1990-08-31  |  3KB  |  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(25),z7(25),z8(25),mamm(25);
  8.  set z1="Animal has:";
  9.  set z2="Eyes are:";
  10.  set z3="Ears are:";
  11.  set z4="Chest fur is:";
  12.  set z5="Coat is:";
  13.  set z6="Nostrils are:";
  14.  set z7="Adult male has:";
  15.  Set z8="Tail:";
  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. @loop1 if x=1
  20.  {set q1=z1;set a1="Tail";set b1="No tail";MOUSE;set x=2;}
  21. @loop2 if x=2
  22.  {If oname="a1"
  23.   {set b1="";set q2=z2;set a2="Huge";set b2="Not huge";MOUSE;set x=3;}
  24.  if oname="b1"
  25.   {set a1="";set q2=z3;set a2="Large";set b2="Small";Mouse;set x=4;}}
  26. @loop4 if x=4
  27.  {If oname="a2"
  28.   {set mamm="chimpanzee.";set b2="";do answer;}
  29.  If oname="b2"
  30.   {set a2="";set q3=z5;set a3="Red and shaggy";
  31.    set b3="Not red and shaggy";MOUSE;set x=5;}}
  32. @loop5 if x=5
  33.  {If oname="a3"
  34.   {set mamm="orangutan.";set b3="";do answer;}
  35.  If oname="b3"
  36.   {set mamm="gibbon.";set a3="";do answer;}}
  37. @loop3 if x=3
  38.  {If oname="a2"
  39.   {set b2="";set mamm="Philippine tarsier.";do answer;}
  40.  If oname="b2"
  41.   {set a2="";set q3=z4; set a3="White";set b3="Not white";MOUSE;set x=6;}}
  42. @loop6 if x=6
  43.  {If oname="b3"
  44.   {set a3="";set q4=z6;set a4="Close together";set b4="Far apart";MOUSE;set 
  45.    x=7;}
  46.  If oname="a3"
  47.   {set b3="";set mamm="ring-tailed lemur.";do answer;}}
  48. @loop7 if x=7
  49.  {If oname="a4"
  50.   {set b4="";set q5=z7;set a5="Mane";set b5="No mane";MOUSE;set x=8;}
  51.  If oname="b4"
  52.   {set a4="";set q5=z8;set a5="Can grasp";set b5="Cannot grasp";MOUSE;set x=9;}}
  53. @loop8 if x=8
  54.  {If oname="a5"
  55.   {set mamm="hamadryas baboon.";set b5="";do answer;}
  56.  If oname="b5"
  57.   {set mamm="rhesus monkey.";set a5="";do answer;}}
  58. @loop9 if x=9
  59.  {If oname="a5"
  60.   {set mamm="spider monkey.";set b5="";do answer;}
  61.  If oname="b5"
  62.   {set mamm="golden lion tamarin.";set a5="";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.