PC & Mediji 1995 November/PCM_9511.iso/igre/totaldis/shared.dir/02055_Script_2055

Text File | 1994-08-31 | 2KB | 112 lines

on IJ x
  go x
  resetC
end

on GoMenu
  global MenuMan
  if MenuMan starts "go" then
    do MenuMan
  else
    go "menu" of movie "aa02"
  end if
end

on BTog
  global TOG
  set x = the locH of sprite 21
  puppetsprite 21, 1
  puppetsprite 22, 1
  puppetsprite 23, 1
  puppetsprite 24, 1

  if TOG = 0 then
    set TOG = 1
    set the LocV of sprite 21 = 342
    set the LocV of sprite 22 = 342
    set the LocV of sprite 23 = 342
    set the LocV of sprite 24 = 342
  else
    set TOG = 0
    set the LocV of sprite 21 = 422
    set the LocV of sprite 22 = 422
    set the LocV of sprite 23 = 422
    set the LocV of sprite 24 = 422
  end if
end

on FeedJump b, bm, f, fm
  global JBack, JFore, MBack, MFore
  set JBack = b
  set MBack = bm
  set JFore = f
  set MFore = fm
end

on GoBack
  global JBack, JFore, MBack, MFore, TOG
  set TOG = 0
  if JBack = "MainMenu" then
    go "Menu" of movie "aa02"
    exit
  else if stringp(MBack) then
    go Jback of movie Mback
  else if MBack = 1 then
    go movie Jback
  else if MBack = 0 then
    go JBack
  else
    go JBack of movie MBack
  end if
end

on GoFore
  global JBack, JFore, MBack, MFore, TOG
  set TOG = 0
  if JFore = "MainMenu" then
    go "Menu" of movie "aa02"
    exit
  else if JFore = "EndGAME" then
    go "End" of movie "aa02"
    exit
  else if stringp(MFore) then
    go JFore of movie MFore
  else if MFore = 1 then
    go movie JFore
  else if MFore = 0 then
    go JFore
  else
    go JFore of movie MFore
  end if
end

on AJ x
  global MJumpCounter
  set MJumpCounter = MJumpCounter+1
  if x = 1 then
    if MJumpCounter > 12 then
      set MJumpCounter = 0
      go marker(1)
      exit
    end if
  end if
  if integerp(x) = 0 then
    if MJumpCounter > 10 then
      set MJumpCounter = 0
      go x
      exit
    end if
  end if
  if x = 6 then
    go marker(1)
    resetC
    exit
  end if
  go marker(0)
end

on resetC
  global MJumpCounter
  set countr = 0
end