천년 대련스크립트

unit 대련노인;

interface

function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
procedure exit;

procedure OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount : Integer;
begin
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'gonpcroom' then begin
      Str := callfunc ('checksenderpowerwearitem');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
         print ('say 아이템은_공평하게_벗고하세');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 0');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 1');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 3');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 4');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 5');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('checksendercurusemagic 6');
      if Str = 'true' then begin
         print ('say 기본무공만_사용가능합니다');
         exit;
      end;
      Str := callfunc ('getsendercurpowerlevelname');
      if Str <> '' then begin
         print ('say 원기를_내려주세요');
         exit;
      end;
      Str := callfunc ('getsenderitemexistence 태극약수:1');
      if Str = 'false' then begin
         print ('say 태극약수가_없습니다');
         exit;
      end;
      Str := callfunc ('getusercount 55');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
         print ('say 누군가_대련중입니다');
         exit;
      end;
      Str := callfunc ('getusercount 56');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
         print ('say 누군가_대련중입니다');
         exit;
      end;
      Str := callfunc ('checkalivemopcount 55 npc 대련포도대장');
      iCount := StrToInt (Str);
      if iCount = 0 then begin
         print ('say 아직_준비가_안됬네..');
         exit;
      end;
      Str := callfunc ('checkalivemopcount 56 npc 대련매화부인');
      iCount := StrToInt (Str);
      if iCount = 0 then begin
         print ('say 아직_준비가_안됬네..');
         exit;
      end;
      Str := callfunc ('checkentermap 55');
      if Str = 'false' then begin
         print ('say 잠시만_기다리시게..');
         exit;
      end;

      print ('mapregen 55');

      print ('getsenderitem 태극약수:1');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 55 17 18';
      print (Str);

      print ('boMapEnter 55 false');
   end;
end;

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\대련노인.txt 1';
      print (Str);
      exit;
   end;
end;

end.