Obrázků EXE Hry-Hazardni a Eroticke/EXE_Hry-hazardni-a-eroticke.bin/erotyka/spoon/spoondd1.dxr/00155_CatSkripts.ls

Text File | 1997-02-02 | 3.3 KB | 119 lines

on CatAnimation1
  global gPhasenNr, gAniCode, gListDDW
  set gPhasenNr to 9
  set gAniCode to "DDC"
  DoriPhasenWechsel()
end

on CatAniRennen
  global gCat2Ticks, gHundCatTicks
  if the ticks >= gCat2Ticks then
    set gCat2Ticks to the ticks + (60 / 3)
    Rockwehen()
  end if
  if the ticks >= gHundCatTicks then
    set gHundCatTicks to the ticks + (60 / 24)
    KatzenJagen()
  end if
  if the timer >= (3 * 60) then
    repeat with i = 9 to 16
      set the puppet of sprite i to 0
    end repeat
    go("Cat2")
  end if
  if soundBusy(1) = 0 then
    puppetSound("DogCat.AIF")
  end if
end

on Rockwehen
  global gKleidZahl
  set gKleidZahl to (gKleidZahl + 1) mod 2
  set KleidName to "14DDC" & string(gKleidZahl)
  set the castNum of sprite 14 to GetCast(string(KleidName))
end

on KatzenJagen
  global gKatJagZahl
  set gKatJagZahl to (gKatJagZahl + 1) mod 5
  set PhasenName to "16DDC" & string(gKatJagZahl)
  set PhasenName2 to "9DDC" & string(gKatJagZahl)
  set the castNum of sprite 16 to GetCast(string(PhasenName))
  set the castNum of sprite 9 to GetCast(string(PhasenName2))
  updateStage()
end

on HundKopfueberWahl
  set Zahl to random(2)
  if Zahl = 1 then
    set the castNum of sprite 16 to GetCast("16DDD0")
    set the castNum of sprite 19 to GetCast("19DDD0")
  else
    set the castNum of sprite 16 to GetCast("16DDD1")
    set the castNum of sprite 19 to GetCast("19DDD1")
  end if
end

on Cat2BrustÖffnenAni
  global gKatzNackt, gWechselTicks, gKleidoderBHStatus
  set Cat2FaceNr to -1
  if the visible of sprite 14 = 0 then
    set gKleidoderBHStatus to 1
  end if
  puppetSound("Boom")
  updateStage()
  repeat with i = 1 to 3
    set Cat2FaceNr to Cat2FaceNr + 1
    set PhasenName to "17C2" & string(gKatzNackt) & Cat2FaceNr
    set HaarPhase to "15C2hair" & Cat2FaceNr
    set the castNum of sprite 18 to GetCast(string(HaarPhase))
    set the castNum of sprite 15 to GetCast(string(HaarPhase))
    set the castNum of sprite 17 to GetCast(string(PhasenName))
    updateStage()
    set gWechselTicks to the ticks + (60 / 7)
    repeat while the ticks < gWechselTicks
      KleidoderBH()
    end repeat
  end repeat
  puppetSound("Huch.AIF")
end

on KleidoderBH
  global gKleidoderBHStatus, gPhasenZahl
  if gKleidoderBHStatus = 0 then
    set the visible of sprite 14 to 0
  end if
  if gKleidoderBHStatus = 1 then
    set the visible of sprite 13 to 1
    set gKleidoderBHStatus to 0
    set gPhasenZahl to 3
    set the timeoutLength to 4 * 60
    set the timeoutScript to "ZuerueckZuA"
  end if
end

on KatzenLoop
  global gWechselTicks, gKatLoopNr, gKatzNackt, gPhasenZahl
  if the ticks >= gWechselTicks then
    set gKatLoopNr to (gKatLoopNr + 1) mod gPhasenZahl
    set PhasenName to "17C2" & string(gKatzNackt) & gKatLoopNr
    set HaarPhase to "15C2hair" & gKatLoopNr
    set the castNum of sprite 17 to GetCast(string(PhasenName))
    set the castNum of sprite 18 to GetCast(string(HaarPhase))
    set the castNum of sprite 15 to GetCast(string(HaarPhase))
    updateStage()
    set gWechselTicks to the ticks + (60 / 7)
  end if
end

on BruestePulsieren
  global gBrustWechselTicks, gBrustLoop
  if the ticks >= gBrustWechselTicks then
    set gBrustLoop to (gBrustLoop + 1) mod 3
    set PhasenName to "13C2tit" & gBrustLoop
    set the castNum of sprite 13 to GetCast(string(PhasenName))
    updateStage()
    set gBrustWechselTicks to the ticks + (60 / 7)
  end if
end