home *** CD-ROM | disk | FTP | other *** search
/ תקליטור אוסף נבחרי 95 / Top_95.iso / TOP95 / KIDS / FROGHOP / FROGHOP.EXE / FROGHOP.dxr / 00021_changedir.ls < prev    next >
Encoding:
Text File  |  1996-11-01  |  1.4 KB  |  72 lines
  1. on changedir
  2.   global GRIDNUM, grid, TM, DD, dr, aga, bonuspoints, fast
  3.   set aga to 1
  4.   set DD to random(2)
  5.   set TM to getAt(GRIDNUM, grid)
  6.   if dr = 1 then
  7.     if (TM = 93) and (DD = 1) then
  8.       set dr to 4
  9.     end if
  10.     if (TM = 93) and (DD = 2) then
  11.       set dr to 2
  12.     end if
  13.     if (TM = 94) and (DD = 1) then
  14.       set dr to 4
  15.     end if
  16.     if (TM = 96) and (DD = 2) then
  17.       set dr to 2
  18.     end if
  19.     exit
  20.   end if
  21.   if dr = 2 then
  22.     if (TM = 93) and (DD = 1) then
  23.       set dr to 3
  24.     end if
  25.     if (TM = 94) and (DD = 1) then
  26.       set dr to 1
  27.     end if
  28.     if (TM = 94) and (DD = 2) then
  29.       set dr to 3
  30.     end if
  31.     if (TM = 95) and (DD = 2) then
  32.       set dr to 1
  33.     end if
  34.     exit
  35.   end if
  36.   if dr = 3 then
  37.     if (TM = 94) and (DD = 1) then
  38.       set dr to 4
  39.     end if
  40.     if (TM = 95) and (DD = 1) then
  41.       set dr to 2
  42.     end if
  43.     if (TM = 95) and (DD = 2) then
  44.       set dr to 4
  45.     end if
  46.     if (TM = 96) and (DD = 1) then
  47.       set dr to 2
  48.     end if
  49.     exit
  50.   end if
  51.   if dr = 4 then
  52.     if (TM = 93) and (DD = 1) then
  53.       set dr to 3
  54.     end if
  55.     if (TM = 95) and (DD = 1) then
  56.       set dr to 1
  57.     end if
  58.     if (TM = 96) and (DD = 1) then
  59.       set dr to 3
  60.     end if
  61.     if (TM = 96) and (DD = 2) then
  62.       set dr to 1
  63.     end if
  64.     exit
  65.   end if
  66.   set bonuspoints to bonuspoints + 15
  67.   if fast = 1 then
  68.     set bonuspoints to bonuspoints + 15
  69.   end if
  70.   showscore()
  71. end
  72.