기타 천년3 서역마인허상 스크립트

procedure OnMenu(uSource, uDest:integer);
var
    CurQuestId : integer;
begin
    CurQuestId := GetQuestCurrentNo(uSource);
questrequest(uSource);
if GetVirtueLevel(uSource) < 4000 then
begin
say (uDest,'호연지기가 부족하여 퀘스트를 수행할 수 없습니다.');
exit;
end;

if CurQuestId < 1250 then
begin
say (uDest,'날마다 좋은 날입니다. 즐천하세요.');
exit;
end;

if CurQuestId = 1250 then
begin

if getitemcount(uSource,'협객지환') < 1 then
begin
setQuestCurrentNo(uSource, 1000);
questrequest(uSource);
end;
end;

if CurQuestId = 1250 then
begin

if getitemcount(uSource,'패왕') = 1 then
begin
say(uDest,'감히 내 앞에서 협객행세를 하려고 하느냐.덤빌테면 덤벼라.');
exit;
end;

Menusay(uSource, '서역마인 :^^'
+ '저를 어떻게 아시나요? 아...당신이 낀 그반지.^'
+ '그랬군요. 당신이 바로 세상을 어지럽히던 두 마두를^'
 + '처치하신 분이로군요. 많은 사람들을 대신하여 감사^'
 + '하다는 말씀을 드리고 싶어요.^^'
 + '그런데 알고 계신가요?동천왕과 북패왕에게는 남제왕^'
 + '이라는 또 하나의 대마두가 살아 있답니다. 남제왕이^'

 + '남아잇는 한 끓임없이 악행을 저지를 것이고 많은^'
 + '사람들에게 불행을 안겨다줄 거여요.^^'

 + '다시 한번 부탁드립니다. 남제왕을 죽여주세요.^'
 + '<[남제왕을 죽이겠다고 답변한다.]/@killok>');
exit;
end;

if (CurQuestId > 1250) or (CurQuestId < 1250) then
begin
say(uDest,'아직 못잡으셨나요? 힘내세요.');
exit;
end;

if CurQuestId = 1550 then
begin
if getitemcount(uSource,'패왕') < 1 then
begin
setQuestCurrentNo(uSource, 1250);
questrequest(uSource);
end;

if getitemcount(uSource,'협객지환') < 1 then
begin
setQuestCurrentNo(uSource, 1000);
questrequest(uSource);

end;

say(uDest,'감히 내 앞에서 협객행세를 하려고 하느냐.덤빌테면 덤벼라.');
exit;
end;

end;

procedure killok(uSource, uDest:integer);
begin

if getItemSpace(uSource) < 3 then
begin
say(uDest,'아이템 공간이 부족하네');
exit;
end;

setQuestCurrentNo(uSource, 1300);
questrequest(uSource);
additem(uSource,'서역패',1);

Menusay(uSource, '서역마인 :^^'
+ '정말 감사해요 자 이것은 저를 대신하는 서역패^'
+ '랍니다. 어려움을 만났을 때 이것을 보이면 누구도^'
 + '당신을 함부로 대하지 못할 거여요.^^');

end;