Blaze/Blaze.iso/mac/QUEENMC.Dxr/00008_T_init3.ls

Text File | 1997-05-12 | 1.5 KB | 53 lines

on exitFrame
  global X0, Y0, X1, Y1, X2, Y2, XA1, YA1, XA2, YA2, XB1, YB1, XB2, YB2, XC1, YC1, XC2, YC2, XD1, YD1, XD2, YD2, XZ1, YZ1, XZ2, YZ2, FirstPlaySW, ThrowBallSW, ThrowOk, ThrowArrow, PlayBack, Area, gTimeOut, gHelp, gMove1, MaxgT, gB
  set MaxgT to 80
  set gB to 3.0
  set gHelp to 0
  set gTimeOut to "yy3"
  set XA1 to 288 - ((Area - 1) * 65 / 2)
  set YA1 to 158 - ((Area - 1) * 42 / 2)
  set XA2 to XA1 + (65 * Area)
  set YA2 to YA1 + (42 * Area)
  set XC1 to 287
  set YC1 to 192
  set XC2 to 292 + 54
  set YC2 to 192 + 16
  set XB1 to 256
  set YB1 to 154
  set XB2 to 256 + 34
  set YB2 to 154 + 36
  set XZ1 to 220
  set YZ1 to 95
  set XZ2 to 220 + 136
  set YZ2 to 95 + 108
  set XD1 to 300
  set YD1 to 210
  set XD2 to 300 + 36
  set YD2 to 210 + 34
  if gMove1 <> 1 then
    set the visible of sprite 14 to 0
    set the visible of sprite 15 to 0
    set the visible of sprite 16 to 0
    set the visible of sprite 17 to 0
    set the visible of sprite 18 to 0
    set the visible of sprite 19 to 0
    set the visible of sprite 20 to 0
    set the visible of sprite 21 to 0
    set the visible of sprite 22 to 0
    set the visible of sprite 23 to 0
    set ThrowOk to 0
    set FirstPlaySW to 0
    set ThrowBallSW to 0
    set ThrowArrow to 1
    puppetSprite(10, 1)
    puppetSprite(11, 1)
    set PlayBack to 1
  else
    set the visible of sprite 21 to 0
    puppetSprite(10, 1)
    puppetSprite(11, 1)
    set gMove1 to 0
    go(the frame + 1)
  end if
end