home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / ue.dir / 00288_Script_288 < prev    next >
Text File  |  1996-03-13  |  3KB  |  53 lines
  1. ----------------
  2. -- yael script
  3. ----------------
  4.  
  5. on Mycheck2
  6.   global FramesMap,MensFrames
  7.   
  8.   put line (((the frame) + 2) / 3)  of FramesMap into temp
  9.   
  10.   if inside(point(the mouseH,the mouseV), rect(23, 183, 222, 429)) and string(item 2 of temp) <> "000" then          --left
  11.     MyCursor 254,255
  12.   else if inside(point(the mouseH,the mouseV), rect(372, 186, 614, 430)) and string(item 1 of temp) <> "000" then   --right
  13.     MyCursor 252,253
  14.   else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and string(item 3 of temp) <> "000" then   --forward
  15.     MyCursor 258,259
  16.   else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and MensFrames contains string(((the frame) + 2) / 3) and string(((the frame) + 2) / 3) <> 9 then   --DataBase
  17.     SetCursor
  18.   else  if inside(point(the mouseH,the mouseV), rect(122, 189, 512, 229)) and string(item 5 of temp) <> "000" then   --up
  19.     MyCursor 250,251
  20.   else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 4 of temp) <> "000" then   --back
  21.     MyCursor 256,257
  22.   else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 6 of temp) <> "000" then   --down
  23.     MyCursor 248,249
  24.   else
  25.     ReleasCursor
  26.     cursor 0
  27.   end if
  28. end 
  29.  
  30. on Mycheck
  31.   global FramesMap,MensFrames
  32.   
  33.   put line (((the frame) + 2) / 3)  of FramesMap into temp
  34.   
  35.   if inside(point(the mouseH,the mouseV), rect(23, 183, 222, 429)) and string(item 2 of temp) <> "000" then          --left
  36.     MyCursor 254,255
  37.   else if inside(point(the mouseH,the mouseV), rect(512, 189, 612, 429)) and string(item 1 of temp) <> "000" then   --right
  38.     MyCursor 252,253
  39.   else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and string(item 3 of temp) <> "000" then   --forward
  40.     MyCursor 258,259
  41.   else  if inside(point(the mouseH,the mouseV), rect(122, 229, 512, 379)) and MensFrames contains string(((the frame) + 2) / 3) and string(((the frame) + 2) / 3) <> 9 then   --DataBase
  42.     SetCursor
  43.   else  if inside(point(the mouseH,the mouseV), rect(122, 189, 512, 229)) and string(item 5 of temp) <> "000" then   --up
  44.     MyCursor 250,251
  45.   else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 4 of temp) <> "000" then   --back
  46.     MyCursor 256,257
  47.   else  if inside(point(the mouseH,the mouseV), rect(122, 379, 512, 429)) and string(item 6 of temp) <> "000" then   --down
  48.     MyCursor 248,249
  49.   else
  50.     ReleasCursor
  51.     cursor 0
  52.   end if
  53. end