/*-- Nur Schriftrollen --*/

#strict

protected func Activate(iPlr) {
  MessageWindow(GetDesc(),iPlr);
}

func Initialize()
{
SetGamma(RGB(5,5,10),RGB(80,80,150),RGB(200,200,255));
 var pObj;
 if (!FindObject(SPNP)) SPWN->Initialize();
 while (pObj = FindObject(SPNP,0,0,0,0,0,0,0,0,pObj))
 {
  pObj->Initialize();
  RemoveObject(FindContents(0,pObj));
  CreateContents(SCRL,pObj);
 } 
return(10);
}