home *** CD-ROM | disk | FTP | other *** search
/ Cani & Cani / CANI.ISO / pc / program / bd.dxr / Internal_8.ls < prev    next >
Encoding:
Text File  |  1997-11-11  |  1.6 KB  |  67 lines
  1. on clearName
  2.   repeat with i = 1 to 2541
  3.     if (i mod 11) = 1 then
  4.       set the name of member i of castLib "BD" to EMPTY
  5.     end if
  6.   end repeat
  7. end
  8.  
  9. on SommPurge
  10.   unloadMember(member 7)
  11.   unloadMember(member 1, 6)
  12.   unloadMember(member 9, 13)
  13. end
  14.  
  15. on BDDSomPurge
  16.   unloadMember(member 48)
  17.   unloadMember(member 63)
  18.   unloadMember(member 136)
  19.   unloadMember(member 138)
  20.   unloadMember(member 181)
  21.   unloadMember(member 254)
  22.   PVDogPurge()
  23.   PVArthusPurge()
  24.   ArthusPurge()
  25.   DogNOmPurge()
  26.   DogSilhPurge()
  27. end
  28.  
  29. on FichePurge
  30.   unloadMember(member 138)
  31.   PVDogPurge()
  32.   PVArthusPurge()
  33.   ArthusPurge()
  34.   DogNOmPurge()
  35.   DogSilhPurge()
  36. end
  37.  
  38. on PVDogPurge
  39.   set dog1 to the number of member 1 of castLib "BD_SILH_PREVISU"
  40.   set dog231 to the number of member 231 of castLib "BD_SILH_PREVISU"
  41.   unloadMember(member dog1, dog231)
  42. end
  43.  
  44. on PVArthusPurge
  45.   set Arth1 to the number of member 1 of castLib "BD_ARTHUS_PREVISU"
  46.   set Arth231 to the number of member 231 of castLib "BD_ARTHUS_PREVISU"
  47.   unloadMember(member Arth1, Arth231)
  48. end
  49.  
  50. on ArthusPurge
  51.   set Arth1 to the number of member 1 of castLib "BD_ARTHUS"
  52.   set Arth231 to the number of member 231 of castLib "BD_ARTHUS"
  53.   unloadMember(member Arth1, Arth231)
  54. end
  55.  
  56. on DogNOmPurge
  57.   set nom1 to the number of member 1 of castLib "BD_RACES"
  58.   set Nom231 to the number of member 231 of castLib "BD_RACES"
  59.   unloadMember(member nom1, Nom231)
  60. end
  61.  
  62. on DogSilhPurge
  63.   set Silh1 to the number of member 1 of castLib "BD_SILHOUETTES"
  64.   set Silh231 to the number of member 231 of castLib "BD_SILHOUETTES"
  65.   unloadMember(member Silh1, Silh231)
  66. end
  67.