src/sign.pas

   1 unit sign;
   2
   3 interface
   4  var
   5   b_sign:array [0..31] of boolean;
   6   none0:boolean;
   7   t_sign:array [0..31] of string;
   8   none1:boolean;
   9
  10   function createsign(ii,ij:integer):integer;
  11   procedure destsign(id:integer);
  12
  13 implementation
  14 uses maps;
  15
  16 function createsign(ii,ij:integer):integer;
  17  var
  18   ix,ymp:integer;
  19   tx:array [0..3] of integer;
  20   exitCmd,cli:command;
  21  begin
  22   for ix:=0 to 31 do
  23    if b_sign[ix]=false then
  24     begin
  25      b_sign[ix]:=true;
  26      t_sign[ix]:='';
  27      setmapinfo(ix,ii,ij);
  28      debug('Sg'+ix);
  29
  30      clearForm;
  31      exitCmd:=createCommand('Ok',CM_OK,1);
  32      showForm;
  33      addCommand(exitCmd);
  34      ymp:=formAddString('Text:');
  35      tx[0]:=formAddTextField('','',15,TF_ANY);
  36      tx[1]:=formAddTextField('','',15,TF_ANY);
  37      tx[2]:=formAddTextField('','',15,TF_ANY);
  38      tx[3]:=formAddTextField('','',15,TF_ANY);
  39      repaint;
  40      delay(100);
  41      repeat
  42       cli:=getClickedCommand;
  43      until cli=exitCmd;
  44      t_sign[ix]:=formGetText(tx[0])+#13+formGetText(tx[1])+#13+formGetText(tx[2])+#13+formGetText(tx[3])+#13;
  45      showCanvas;
  46
  47      createsign:=0;
  48      exit;
  49     end; else
  50    createsign:=-1;
  51  end;
  52
  53 procedure destsign(id:integer);
  54  var
  55   ix:integer;
  56  begin
  57   b_sign[id]:=false;
  58   t_sign[id]:='';
  59  end;
  60
  61 initialization
  62
  63 end.