Spawn Figure Collection/spawn collection cd.iso/setup/data1.cab/Program_Executable_Files/Collection.dir/00026.ls

Text File | 1998-01-19 | 1.2 KB | 26 lines

on exitFrame
  global gseriestext, gtitletext, ggrouptext, gnowseries, gnowtitle, gnowgroup, lseries, geditstack, gcdpath
  set geditstack to 0
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set lg to getAt(the lgroup of lt, gnowgroup)
  set geprotect to the pprotect of lg
  set gegroup to the pgroup of lg
  set gecheckbox to the pcheckbox of lg
  set gecheck to the pcheck of lg
  set gebitmap to the pbitmap of lg
  if the pprotect of lg = "1" then
    newBitmap(gcdpath & "Graphics\" & gebitmap, 3)
  else
    newBitmap(the pathName & "Graphics\" & gebitmap, 3)
  end if
  set the text of member "Series" to gseriestext
  set the text of member "Title" to gtitletext
  set the text of member "Comment2" to ggrouptext
  repeat with t = 1 to 48
    set the puppet of sprite t to 0
  end repeat
  set the text of member "HelpWindow" to "ÉGÉfÉBÉbÉgÉÇÅ[ÉhǼÇÝÅBâÊëúǝìoò^ÇÝÇÈÇÐÇ´ÇÕëOLJǡǃGraphicÉfÉBÉåÉNÉgÉäÇ…îzíuǵǃǮǢǃâŠÇŽÇ¢ÅB" & RETURN & "ÉGÉfÉBÉbÉgǵÇýÇ¢ÉeÉLÉXÉgÉEÉCÉìÉhÉEǝÉNÉäÉbÉNǵǃǍÇæÇŽÇ¢" & RETURN & "çÌèúǝâüÇÝÇÐDZÇÃÉfÅ[É^ǝçÌèúǵNjÇÝÅB"
  dispselectedgroup()
end