home *** CD-ROM | disk | FTP | other *** search
/ Cani & Cani / CANI.ISO / pc / program / veto.dxr / Internal_224.ls < prev    next >
Encoding:
Text File  |  1997-11-11  |  648 b   |  30 lines
  1. on DogFieldRollOver NoSprite1, NoSprite2
  2.   if rollOver(NoSprite1) then
  3.     DogNumber(1)
  4.   else
  5.     if rollOver(NoSprite2) then
  6.       DogNumber(2)
  7.     end if
  8.   end if
  9. end
  10.  
  11. on DogFieldMouseUp NoField
  12.   global gNoChien
  13.   DogNumber(NoField)
  14.   set gNoChien to DogNumber(NoField)
  15.   EndAllPuppet()
  16.   cursor(4)
  17.   go("Fiche")
  18.   cursor(0)
  19. end
  20.  
  21. on DogNumber NoField
  22.   global Modulo, NoResField, fResPlusIndex
  23.   set NoLine to 1
  24.   if line 1 of field ("RESULTAT" & NoField) >= "A" then
  25.     set NoChienRes to (Modulo * (getAt(NoResField, NoField) - 1)) + NoLine
  26.     set NoChien to the last word in line NoChienRes of fResPlusIndex
  27.     return NoChien
  28.   end if
  29. end
  30.