GQ - Louise, World Cup, …remy Clarkson, Armageddon/GQCD.iso/files/motomain.dxr/00061_rollScript.ls

Text File | 1998-05-21 | 737 b | 30 lines

property spriteNum, rolledOn, myIndexNum, myTextIndexNum, myCounter

on new me, mySpriteNum, indexNum, textIndexNum
  set rolledOn to 0
  set myCounter to 0
  set spriteNum to mySpriteNum
  set myIndexNum to indexNum
  set myTextIndexNum to textIndexNum
  return me
end

on setState me, state
  set rolledOn to state
end

on stepFrame me
  if rolledOn then
    if myCounter < 5 then
      set myCounter to myCounter + 1
      set the memberNum of sprite spriteNum to myIndexNum + myCounter
      set the memberNum of sprite 8 to myTextIndexNum + (spriteNum - 1)
    end if
  else
    if myCounter > 0 then
      set myCounter to myCounter - 1
      set the memberNum of sprite spriteNum to myIndexNum + myCounter
    end if
  end if
end