천년 무공 자동지급
일반무공 자동 지급 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.
애꾸형님 님의 최근 댓글
감사합니다 2023 05.10