천년 무공 자동지급

일반무공 자동 지급 npc

 

 

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 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 = 'returntreasure2' then begin

      Str := callfunc ('checkenoughspace');

      if Str = 'false' then begin

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

         exit;

      end;

         

         print ('putsendermagicitem 화염장 @계열상승무공 3');

         print ('putsendermagicitem 한빙장 @계열상승무공 3');

         print ('putsendermagicitem 철사장 @계열상승무공 3');

         print ('putsendermagicitem 벽력장 @계열상승무공 3');

         print ('putsendermagicitem 조기탄 @계열상승무공 3');

         print ('putsendermagicitem 반월장 @계열상승무공 3');

      print ('say 장풍_계열을_모두_지급했습니다. 50');

      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 성령21검 @계열일반무공 3');

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

      iCount := StrToInt (Str);

      if iCount > 1 then begin

            print ('getsenderallitem 성령21검');

      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;

 

      exit;

   end;

end;

 

end.