Cani & Cani/CANI.ISO/pc/program/bd.dxr/Scripts_41.ls

Text File | 1997-11-11 | 4.6 KB | 168 lines

on exitFrame
  global NoResField, NResField, gFlagFiche
  set V1 to getAt(NoResField, 1)
  set V2 to getAt(NoResField, 2)
  if V2 < NResField then
    set the visible of sprite 28 to 1
    set the visible of sprite 30 to 1
    ControlRollOver(1, 30, 121, 0)
  else
    set the visible of sprite 28 to 0
    set the visible of sprite 30 to 0
  end if
  if V1 > 1 then
    set the visible of sprite 27 to 1
    set the visible of sprite 29 to 1
    ControlRollOver(1, 29, 121, 0)
  else
    set the visible of sprite 27 to 0
    set the visible of sprite 29 to 0
  end if
  if gFlagFiche = 1 then
    MiseAjour()
  end if
  DogFieldRollOver(20, 21)
  NavigNoDog()
  go(the frame)
end

on mouseDown
  set the constraint of sprite 12 to 4
  set the constraint of sprite 13 to 5
  set the constraint of sprite 14 to 6
  set the constraint of sprite 15 to 7
end

on mouseUp
  global listeSearch
  set NoCrit to 0
  set NoSprite to the clickOn
  case NoSprite of
    12:
      DragCursor(12, 2)
    13:
      DragCursor(13, 3)
    14:
      DragCursor(14, 1)
    15:
      DragCursor(15, 4)
    8:
      ClickCursor(12, 2)
    9:
      ClickCursor(13, 3)
    10:
      ClickCursor(14, 1)
    11:
      ClickCursor(15, 4)
  end case
end

on DragCursor NoSprite, NoCrit
  set ZoneH to the locH of sprite NoSprite
  ZoneCursor(ZoneH, NoSprite, NoCrit)
end

on ClickCursor NoSprite, NoCrit
  set ZoneH to the mouseH
  set the locH of sprite NoSprite to ZoneH
  updateStage()
  ZoneCursor(ZoneH, NoSprite, NoCrit)
end

on ZoneCursor ZoneH, NoSprite, NoCrit
  if NoCrit <> 0 then
    set NoTrait to 16 + NoCrit - 1
    set NoTrait0 to 23 + NoCrit - 1
    if ZoneH < 133 then
      set the locH of sprite NoSprite to 82
      set the visible of sprite NoTrait0 to 1
      set the visible of sprite NoTrait to 0
      setaProp(listeSearch, NoCrit, 0)
    else
      if (ZoneH >= 133) and (ZoneH < 219) then
        set the locH of sprite NoSprite to 173
        set the locH of sprite NoTrait to 133
        setaProp(listeSearch, NoCrit, 1)
        set the visible of sprite NoTrait0 to 0
        set the visible of sprite NoTrait to 1
      else
        if (ZoneH >= 219) and (ZoneH < 305) then
          set the locH of sprite NoSprite to 259
          set the locH of sprite NoTrait to 219
          setaProp(listeSearch, NoCrit, 2)
          set the visible of sprite NoTrait0 to 0
          set the visible of sprite NoTrait to 1
        else
          if (ZoneH >= 305) and (ZoneH < 391) then
            set the locH of sprite NoSprite to 346
            set the locH of sprite NoTrait to 305
            setaProp(listeSearch, NoCrit, 3)
            set the visible of sprite NoTrait0 to 0
            set the visible of sprite NoTrait to 1
          else
            if ZoneH >= 391 then
              set the locH of sprite NoSprite to 431
              set the locH of sprite NoTrait to 391
              setaProp(listeSearch, NoCrit, 4)
              set the visible of sprite NoTrait0 to 0
              set the visible of sprite NoTrait to 1
            end if
          end if
        end if
      end if
    end if
    updateStage()
    Multicritere()
    if the text of field "RESULTAT1" < "A" then
      put " " into field "RESULTAT1"
      put "Aucun chien ne répond à votre recherche" into field "RESULTAT3"
    end if
  end if
end

on MiseAjour
  global listeSearch
  set Sprite_Critere to [2, 3, 1, 4]
  repeat with i = 1 to 4
    set NoSprite to 12 + i - 1
    set J to getaProp(Sprite_Critere, i)
    set ZoneH to getaProp(listeSearch, J)
    set NoTrait to 16 + J - 1
    set NoTrait0 to 23 + J - 1
    if ZoneH = 0 then
      set the locH of sprite NoSprite to 82
      set the visible of sprite NoTrait0 to 1
      set the visible of sprite NoTrait to 0
      next repeat
    end if
    if ZoneH = 1 then
      set the locH of sprite NoSprite to 173
      set the locH of sprite NoTrait to 133
      set the visible of sprite NoTrait0 to 0
      set the visible of sprite NoTrait to 1
      next repeat
    end if
    if ZoneH = 2 then
      set the locH of sprite NoSprite to 259
      set the locH of sprite NoTrait to 219
      set the visible of sprite NoTrait0 to 0
      set the visible of sprite NoTrait to 1
      next repeat
    end if
    if ZoneH = 3 then
      set the locH of sprite NoSprite to 346
      set the locH of sprite NoTrait to 305
      set the visible of sprite NoTrait0 to 0
      set the visible of sprite NoTrait to 1
      next repeat
    end if
    if ZoneH = 4 then
      set the locH of sprite NoSprite to 431
      set the locH of sprite NoTrait to 391
      set the visible of sprite NoTrait0 to 0
      set the visible of sprite NoTrait to 1
    end if
  end repeat
  updateStage()
end