사이트 로그인
2023.05.10 08:04
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.