close_btn
로그인, 회원가입후 더 많은 혜택을 누리세요 로그인 회원가입 닫기
맨위로 컨텐츠 아래로

기타 천년 환전상인 스크립트(고급)

2017.06.08 13:26

Hacker 조회 수:166

require ("NewScript\\function");

local menu =
[[
<trade>
<head>
<title>환전상인</title>
<image name=z94 value=160>
<text>
환전을 도와드리겠습니다!
</text>
</head>
<command send='close'>닫기</command>
<body>

[사용법]

금화 1개 판다
금화 1개 산다

은화 1개 판다
은화 1개 산다

금전 1개 판다
금전 1개 산다

최대 판매,구입은 10000개 입니다.
(주의 엽전개수가 8천만이넘어가면
아이템이 사라지니판매할때 개수를
 잘보고 판매하세요.)
★절대로 복구해드리지 않습니다★


</body>
</trade>


]]


function OnLeftClick(NpcP, PlayP, aStr)
  Player.ShowWindowByStr(PlayP, NpcP, menu, 0);
end;


function OnGetResult(NpcP, PlayP, aStr)
  if aStr == "close" then
    return;
  end;

end;

function OnHear(SelfP, SayP, aStr)
 

local say_list = SplitString(aStr,' ');

--판매리스트
local SellList = {'은화:100','금화:10000','금전:10000000'};

--구입리스트
local BuyList = {'은화:100','금화:10000','금전:10000000'};

--최대구입가능리스트
local MaxCount = 10000;

--구입또는판매 개수
local Count = tonumber(string.sub(say_list[2],0,string.len(say_list[2])-2));

if say_list[1] == '금전' then MaxCount = 10; end;

if (say_list[3] == '판다') and (MaxCount == 10) and (Player.GetItemExistence(SayP,'엽전:100000000')) then

Npc.Say(SelfP,'엽전의 개수가 너무많아서 판매가 불가능합니다.',0);
return;
end;

if Player.GetItemExistence(SayP,'엽전:100000000') then

Npc.Say(SelfP,'엽전의 개수가 너무많아서 판매가 불가능합니다.',0);
return;
end;

if say_list[3] == '판다' then

local check = false;
local money = 0;

--판매리스트에 있는것인지확인.
for i = 1,table.getn(SellList) do
if SplitString(SellList[i],':')[1] == say_list[1] then check = true; money = tonumber(SplitString(SellList[i],':')[2]) end;
end;

if Count > MaxCount then
Npc.Say(SelfP,'최대개수는 '..tostring(MaxCount)..'개 입니다.',0);
return;
end;

if check == false then
Npc.Say(SelfP,'판매목록에 없으므로 판매할수 없습니다.',0);
return;
end;

if not Player.GetItemExistence(SayP,say_list[1]..':'..tostring(Count)) then
Npc.Say(SelfP,say_list[1]..' '..tostring(Count)..'개가 필요합니다.',0);
return;
end;

money = money * Count;

print(SayP,SayP,'getsenderitem '..say_list[1]..':'..tostring(Count));   
Player.Putmagicitem(SayP, '엽전:'..tostring(money), '자동보상노인', 3);

  Npc.Say(SelfP, say_list[1]..' '..tostring(Count)..'개를 판매하셨습니다.', 0);
return;
end;

 


if say_list[3] == '산다' then

local check = false;
local money = 0;

--판매리스트에 있는것인지확인.
for i = 1,table.getn(BuyList) do
if SplitString(BuyList[i],':')[1] == say_list[1] then check = true; money = tonumber(SplitString(BuyList[i],':')[2]) end;
end;

if Count > MaxCount then
Npc.Say(SelfP,'최대개수는 '..tostring(MaxCount)..'개 입니다.',0);
return;
end;

if check == false then
Npc.Say(SelfP,'구입목록에 없으므로 구입할수 없습니다.',0);
return;
end;

money = money * Count;

if not Player.GetItemExistence(SayP,'엽전:'..tostring(money)) then
Npc.Say(SelfP,'엽전 '..tostring(Count)..'개가 필요합니다.',0);
return;
end;
 

print(SayP,SayP,'getsenderitem '..'엽전:'..tostring(money));    
Player.Putmagicitem(SayP, say_list[1]..':'..tostring(Count), '자동보상노인', 3);

  Npc.Say(SelfP, say_list[1]..' '..tostring(Count)..'개를 구입하셨습니다.', 0);
return;
end;

 

 

end;

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 소스자료는 직접 올려주세요 게임존 2017.06.06 582
176 건즈 클랜마크 SQL file 로린그 2018.05.05 18
175 [건즈] 1.5 네임태그 file 로린그 2018.05.04 20
174 [건즈] 3초리스폰 file 로린그 2018.05.04 29
173 [건즈] 이로건즈 DB file 로린그 2018.05.04 35
172 [건즈] 웹페이지(채금) file 로린그 2018.05.04 30
171 [건즈] 웹페 별 소스 file 로린그 2018.05.04 30
170 크로노스 구축 매무리 난뭘까 2018.05.04 302
169 크로노스 구축2 난뭘까 2018.05.04 265
168 크로노스 구축1 난뭘까 2018.05.04 342
167 검은사막 커스터 마이징 비주류 남 캐릭터 file 군곤격노 2018.04.26 117
166 스카이림 남자 cme 공유 file 군곤격노 2018.04.26 1581
165 하이파이브 팩 DB 보는싸이트 계란탁 2018.04.24 246
164 몹 베노미 스크립트 [2] 제이로드 2018.03.30 178
163 WOW 기본 명령어 진정 즐기는자 2018.03.18 117
162 WOW Phase Mask 진정 즐기는자 2018.03.17 32
161 그룹원 이모탈 소스 및 스크립 [1] file 영주의서 2018.02.22 306
160 [어둠의전설] 8.240 염색 번호 file as7877 2018.02.03 287
159 [어둠의전설 8.240] 아이템 우클릭해서 옵션보이는방법 file as7877 2018.02.03 503
158 [어둠의전설] 저같은 뉴비들을위한.. @귀환 스크립트 팁. [1] as7877 2018.02.02 316
157 [어둠의전설] 8.240 크래셔/데빌크래셔 입니다. [2] as7877 2018.02.02 286
156 [어둠의전설] 8.240 캐쉬옷 본섭화입니다. as7877 2018.02.02 360
155 8.240 날개 본섭화 입니다. as7877 2018.02.02 209
154 테런 DB 아이피 한번에 수정하는 sql AR 2018.01.25 106
153 검은사막 위치 커마 file 경찰 2018.01.25 252
152 [검은사막] 마을코드입니다 종니스트 2018.01.24 349
151 검은사막 금수량 커마 file 경찰 2018.01.24 153
150 장식아이템 Undine 2018.01.22 171
149 fbs 간단 반동제어 file 서러운환경 2018.01.22 134
148 검은사막 커마 소스 모음 [6] file 아비 2018.01.14 605
147 커마 닥나 소스 [2] file 아비 2018.01.10 92
146 [어둠의전설] 메카닉 무기 및 장비 [1] as7877 2018.01.09 291
145 [어둠의전설] 흑갑 스크립트입니다. [3] as7877 2018.01.08 360
144 프메 아이템소스코드집 file 보스이루 2017.12.30 590
143 성능 및 스타일 향상에 도움이 되는 28가지 ASP 팁 처벌 2017.12.01 205
142 Windows 2012 RDS 구축(Session 호스트 시나리오) 구성도 출처: http://yongdalc.tistory.com/entry/WIndows-2012-RDS-Session-시나리오-구성-방법 [IT 정보 공유 룰루~] file 처벌 2017.12.01 91
141 튜토리얼 소스 file 2MB 2017.11.02 289
140 테런 계정생성부분 [1] 파도풀 2017.09.11 269
139 뮤오리진 프리서버 구축설명서 [13] file 프리스타일001 2017.06.19 5185
138 천년3 호위무사 Hacker 2017.06.11 257
137 천년3 호연한방 [1] Hacker 2017.06.11 162
136 천3 새해이벤트 Hacker 2017.06.11 147
135 천년3 서역마인허상 스크립트 Hacker 2017.06.11 131
» 천년 환전상인 스크립트(고급) Hacker 2017.06.08 166
133 천년 판매스크립트 Hacker 2017.06.08 158
132 천년 돌피하기 스크립트 Hacker 2017.06.08 93
131 천년 대련스크립트 Hacker 2017.06.08 90
130 천년 추석스크립트 Hacker 2017.06.08 139
129 천년 이벤트자동스크립트 Hacker 2017.06.08 121
128 천년 선물상자 스크립트 Hacker 2017.06.08 142
127 뮤..한글 에디터 [2] file 공신 2017.06.08 575
쓰기
태그
site_map전체메뉴