천년 상승무공 자동지급

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 OnDie (aStr : String);

procedure OnGetResult (aStr : String);

procedure OnLeftClick (aStr : String);

 

implementation

 

procedure OnDie (aStr : String);

begin

   print ('mapaddobjbytick monster 邱굉黛櫓와2 178 176 1 97 false 800'); 

end;

 

procedure OnLeftClick (aStr : String);

var

   Str : String;

begin

   Str := callfunc ('getsenderrace');

   if Str = '1' then begin

      print ('showwindow .\help\계열상승무공.txt 0');

      exit;

   end;

end;

 

procedure OnGetResult (aStr : String);

var

   Str, Name : String;

   n, iCount : Integer;

begin

   if aStr = 'close' then begin

      exit;

   end;

 

   if aStr = 'returntreasure1' then begin

      Str := callfunc ('checkenoughspace');

      if Str = 'false' then begin

         print ('say 아이템창을_5칸_비워주세요.');

         exit;

      end;

         print ('putsendermagicitem 무영질풍각 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 무영질풍각');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 무영질풍각');

      end;

         print ('putsendermagicitem 일광검법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 일광검법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 일광검법');

      end;

         print ('putsendermagicitem 천왕도결 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 천왕도결');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 천왕도결');

      end;

         print ('putsendermagicitem 와룡식 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 와룡식');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 와룡식');

      end;

         print ('putsendermagicitem 오륜퇴법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 오륜퇴법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 오륜퇴법');

      end;

         print ('putsendermagicitem 폭풍연환퇴 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 폭풍연환퇴');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 폭풍연환퇴');

      end;

         print ('putsendermagicitem 백제격검술 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 백제격검술');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 백제격검술');

      end;

         print ('putsendermagicitem 십자섬광도결 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 십자섬광도결');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 십자섬광도결');

      end;

         print ('putsendermagicitem 잠룡대비식 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 잠룡대비식');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 잠룡대비식');

      end;

         print ('putsendermagicitem 우준퇴법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 우준퇴법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 우준퇴법');

      end;

         print ('putsendermagicitem 태극팔각권 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 태극팔각권');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 태극팔각권');

      end;

         print ('putsendermagicitem 패왕검식 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 패왕검식');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 패왕검식');

      end;

         print ('putsendermagicitem 월광도법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 월광도법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 월광도법');

      end;

         print ('putsendermagicitem 뇌전창법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 뇌전창법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 뇌전창법');

      end;

         print ('putsendermagicitem 건곤무적퇴 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 건곤무적퇴');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 건곤무적퇴');

      end;

         print ('putsendermagicitem 두황권 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 두황권');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 두황권');

      end;

         print ('putsendermagicitem 성령22검 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 성령22검');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 성령22검');

      end;

         print ('putsendermagicitem 풍운식 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 풍운식');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 풍운식');

      end;

         print ('putsendermagicitem 오호풍마곤 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 오호풍마곤');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 오호풍마곤');

      end;

         print ('putsendermagicitem 풍림화산퇴법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 풍림화산퇴법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 풍림화산퇴법');

      end;

 

         print ('putsendermagicitem 백보신권 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 백보신권');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 백보신권');

      end;

         print ('putsendermagicitem 독고구검식 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 독고구검식');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 독고구검식');

      end;

         print ('putsendermagicitem 구룡도법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 구룡도법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 구룡도법');

      end;

         print ('putsendermagicitem 백제옥녀창법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 백제옥녀창법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 백제옥녀창법');

      end;

         print ('putsendermagicitem 북명퇴법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 북명퇴법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 북명퇴법');

      end;

         print ('putsendermagicitem 여래천왕권 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 여래천왕권');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 여래천왕권');

      end;

         print ('putsendermagicitem 비룡검법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 비룡검법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 비룡검법');

      end;

         print ('putsendermagicitem 신화랑도결 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 신화랑도결');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 신화랑도결');

      end;

         print ('putsendermagicitem 악가창법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 악가창법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 악가창법');

      end;

         print ('putsendermagicitem 제왕퇴법 @계열일반무공 3');

             Str := callfunc ('getsendermagicskilllevel 제왕퇴법');

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 제왕퇴법');

      end;

      print ('say 상승무공을_모두_지급했습니다. 50');

         exit;

      end;

      print ('say 상승무공을_모두_지급했습니다. 50');

         exit;

      end;

 

      exit;

   end;

end;

 

end.