Chip 1998 February/CHIP_2_98.iso/software/testsoft/muzea/exemusei/shared.cst/00935_Script_Rnat

Text File | 1987-04-12 | 799b | 29 lines

on Rnat R
  cursore
  put 17 into A
  put 31*(R-23)+58 into vA
  put 18 into B
  put 31*(R-23)+50 into vB
  put R-20 into P
  put the name of cast the castNum of sprite P into cB
  put chars(cB, 1, (length(cB)-3)) & "txt" into cB
  set the castNum of sprite B to the number of cast cB
  set the locV of sprite A = vA
  set the locV of sprite B = vB
  updatestage
  repeat while rollover(R)
    if the mousedown then
      put the locH of sprite P into hP
      put the blend of sprite P into bP
      set the locH of sprite A = 1000+the locH of sprite A
      updatestage
      repeat with k = 1 to 30
        set the locH of sprite P = hP+k*20
        set the blend of sprite P = bP-k*3
        updatestage
      end repeat
      exit repeat
    end if
  end repeat
end