/* Score Editor - DMS - feb 98 - by Sylvain HUET */

typeof high=ObjText;;

fun save (s,n)=
  ("high"::(_GETtext high)::nil)::
  ("action"::"start"::"start"::nil)::
  ("action"::"destroy"::"destroy"::nil)::
  ("action"::"finalScore"::"finalScore"::nil)::
  ("action"::"currentScore"::"currentScore"::nil)::
  ("action"::"admin"::nil)::
  ("event"::"entering"::"entering"::nil)::
  ("event"::"destroyed"::"destroyed"::nil)::
  ("event"::"reset"::"reset"::nil)::
  ("zoneC"::"Score"::nil)::
  ("rule"::"2"::"Game"::"1"::"finalScore"::"1"::"Score"::"0"::"finalScore"::nil)::
  ("rule"::"2"::"Game"::"1"::"currentScore"::"1"::"Score"::"0"::"currentScore"::nil)::
  ("rule"::"1"::"Score"::"0"::"reset"::"2"::"Game"::"1"::"reset"::nil)::
  nil;;

fun load (l)=
  _SETtext high getInfo l "high";
  0;;

fun rflSizeEditWin (win, blurp, w, h)=
  _SIZEtext high w h 0 0;;

fun IniEditor(s)=
  let startEditor 
    _channel nil 0 0 315 150 WN_NORMAL EDITOR_NORMAL
    s "dms/games/score/score.dmc" nil nil
    @load @save nil
  -> ed in
  let getEditWin ed -> editWin in
  let _GETwindowSizePosition editWin -> [w h _ _] in
  ( 
    _CBwinSize editWin @rflSizeEditWin 0;
    set high=_CReditText _channel editWin 0 0 w h ET_DOWN+ET_HSCROLL+ET_VSCROLL "";
    if s==nil then nil else openDMI ed
  );
0;;