constant false := nil;

constant spaceStr := " ";

constant newlineStr := "\n";



constant printOn := true;

constant notifyOn := true;







DefConst('kExtrasName,"I'm Melting");

DefConst('kSignature,"FlaSheridn");

DefConst('kSignatureFlash,"FlaSheridn");

		 

	DefConst('kAppString,kExtrasName & $: & kSignature);

	DefConst('kPackageName,kAppString);

	DefConst('kAppSymbol,Intern(kPackageName));



constant kVersNumbStr := "0.0d0";

defconst( 'kCompileTime, time());

write(newlineStr & kExtrasName  && kVersNumbStr && dateNTime(kCompileTime) );  

write(newlineStr);

DefConst('kAppStrFla,        //kExtrasName && kVersNumbStr);

if debugOn then kExtrasName && kVersNumbStr && dateNTime(kCompileTime) else kExtrasName && kVersNumbStr);







defconst('kMyNotifyInternal , func(mess )

begin

      GetRoot():Notify(kNotifyQAlert, 

         ensureInternal(kAppStrFla), 

         ensureInternal(mess) );

end);







RemoveScript := func(partFrame)

BEGIN

print ("Oh no, I'm Melting");

addDeferredAction(func() playSoundSync(ROM_crumple) , []); 

END;