View Full Version : [JX] Điểm tích lũy TK đổi XU ???
trungkhuyen
30-01-13, 05:17 PM
Thay vì 1000 điểm tích lũy TK đổi dc 1tr kinh nghiệm thì giờ mình muốn đổi thành XU thì làm sao các bạn ?
nhocken2030
30-01-13, 05:37 PM
Thay vì 1000 điểm tích lũy TK đổi dc 1tr kinh nghiệm thì giờ mình muốn đổi thành XU thì làm sao các bạn ?
Đây là code của bạn
Add vào NPC TK nhé
Include("\\script\\source\\hamchuot.lua");
--Include("\\dulieu\\list_tk.lua")
Include("\\script\\tongkim\\baodanhtongkim.lua")
kinhnghiem={{80,2846/3*10},{90,4272/3*10},{100,6408/3*10},{110,7842/3*10},{120,9610/3*10},{130,11052/3*10},{140,12248/3*10},{150,14416/3*10},{160,16454/3*10},{170,18516/3*10},{180,21624/3*10},{190,23456/3*10},{999,23456/3*10}}
function main()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if ((gio == 11) or (gio == 13) or (gio == 15) or (gio == 17) or (gio == 19) or (gio == 21) or (gio == 23)) and (phut < 30) then
SayNew("<color=green>Qu©n L¬ng:<color> ChiÕn trêng ®ang rÊt ¸c liÖt, ng¬i ë ®©y lµm g× ?",2,"Ta muèn vÒ Ba L¨ng HuyÖn/tmvblh","Tho¸t/no")
else
SayNew("<color=blue>Qu©n L¬ng:<color> Tèng kim ®ang t¹m dõng chiÕn",3,"Ta muèn vÒ Ba L¨ng HuyÖn/tmvblh","Dïng ®iÓm tÝch lòy ®æi KN/dlkn","Tho¸t/no")
end
end;
function dlkn()
SayNew("<color=blue>Qu©n L¬ng:<color> HiÖn t¹i ng¬i ®ang cã <color=fire>"..GetTask(21).."<color> ®iÓm tÝch lòy",5,"4000 ®iÓm = 20 xu/d20xu","8000 ®iÓm = 40 xu/d45xu","15.000 ®iÓm = 90 xu/d90xu","Tho¸t/no")
end;
function d90xu()
tl = GetTask(21)
if (tl >= 15000) then
SetTask(21,tl-15000)
if (GetTask(21) == (tl-15000)) then
SetTask(92,GetTask(92) + 90)
Msg2Player("B¹n ®· dïng 15.000 tÝch lòy ®æi 90 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 15.000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function d20xu()
tl = GetTask(21)
if (tl >= 4000) then
SetTask(21,tl-4000)
if (GetTask(21) == (tl-4000)) then
SetTask(92,GetTask(92) + 20)
Msg2Player("B¹n ®· dïng 4000 tÝch lòy ®æi 20 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 4000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function d45xu()
tl = GetTask(21)
if (tl >= 8000) then
SetTask(21,tl-8000)
if (GetTask(21) == (tl-8000)) then
SetTask(92,GetTask(92) + 40)
Msg2Player("B¹n ®· dïng 8000 tÝch lòy ®æi 40 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 8000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function tmvblh()
SubWorld = SubWorldID2Idx(53)
if (GetTask(23) == 1) then
SetGlbMissionV(83,GetGlbMissionV(83)-1)
elseif (GetTask(23) == 2) then
SetGlbMissionV(84,GetGlbMissionV(84)-1)
end
--if ((gio == 11) or (gio == 13) or (gio == 15) or (gio == 17) or (gio == 19) or (gio == 21) or (gio == 23)) and (phut < 30) then
--else
--SetTask(23,0)
--end
SetTask(23,0)
SetTask(24,0)
SetTask(25,0)
SetTask(26,0)
SetPunish(1)
SetFightState(0)
SetDeathScript("");
SetCamp(GetTask(27))
SetCurCamp(GetTask(27))
SetTask(27,0)
SetPK(GetTask(28))
SetTask(28,0)
--SetRank(GetTask(29))
SetTask(29,0)
SetTask(30,0)
DelMagic(413)
NewWorld(53, 1603, 3210);
SetRevPos(19);
Msg2Player("B¹n ®· trë vÒ Ba L¨ng HuyÖn")
end;
function no()
end
Edward_Newgate
30-01-13, 05:45 PM
Đây là code của bạn
Add vào NPC TK nhé
Include("\\script\\source\\hamchuot.lua");
--Include("\\dulieu\\list_tk.lua")
Include("\\script\\tongkim\\baodanhtongkim.lua")
kinhnghiem={{80,2846/3*10},{90,4272/3*10},{100,6408/3*10},{110,7842/3*10},{120,9610/3*10},{130,11052/3*10},{140,12248/3*10},{150,14416/3*10},{160,16454/3*10},{170,18516/3*10},{180,21624/3*10},{190,23456/3*10},{999,23456/3*10}}
function main()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
if ((gio == 11) or (gio == 13) or (gio == 15) or (gio == 17) or (gio == 19) or (gio == 21) or (gio == 23)) and (phut < 30) then
SayNew("<color=green>Qu©n L¬ng:<color> ChiÕn trêng ®ang rÊt ¸c liÖt, ng¬i ë ®©y lµm g× ?",2,"Ta muèn vÒ Ba L¨ng HuyÖn/tmvblh","Tho¸t/no")
else
SayNew("<color=blue>Qu©n L¬ng:<color> Tèng kim ®ang t¹m dõng chiÕn",3,"Ta muèn vÒ Ba L¨ng HuyÖn/tmvblh","Dïng ®iÓm tÝch lòy ®æi KN/dlkn","Tho¸t/no")
end
end;
function dlkn()
SayNew("<color=blue>Qu©n L¬ng:<color> HiÖn t¹i ng¬i ®ang cã <color=fire>"..GetTask(21).."<color> ®iÓm tÝch lòy",5,"4000 ®iÓm = 20 xu/d20xu","8000 ®iÓm = 40 xu/d45xu","15.000 ®iÓm = 90 xu/d90xu","Tho¸t/no")
end;
function d90xu()
tl = GetTask(21)
if (tl >= 15000) then
SetTask(21,tl-15000)
if (GetTask(21) == (tl-15000)) then
SetTask(92,GetTask(92) + 90)
Msg2Player("B¹n ®· dïng 15.000 tÝch lòy ®æi 90 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 15.000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function d20xu()
tl = GetTask(21)
if (tl >= 4000) then
SetTask(21,tl-4000)
if (GetTask(21) == (tl-4000)) then
SetTask(92,GetTask(92) + 20)
Msg2Player("B¹n ®· dïng 4000 tÝch lòy ®æi 20 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 4000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function d45xu()
tl = GetTask(21)
if (tl >= 8000) then
SetTask(21,tl-8000)
if (GetTask(21) == (tl-8000)) then
SetTask(92,GetTask(92) + 40)
Msg2Player("B¹n ®· dïng 8000 tÝch lòy ®æi 40 xu")
else
Msg2Player("Hack a cung yeu !")
end
else
Talk(1,"","Ng¬i kh«ng ®ñ <color=red> 8000 tÝch lòy<color>, bao giê ®ñ h·y ®Õn ®©y")
end
end;
function tmvblh()
SubWorld = SubWorldID2Idx(53)
if (GetTask(23) == 1) then
SetGlbMissionV(83,GetGlbMissionV(83)-1)
elseif (GetTask(23) == 2) then
SetGlbMissionV(84,GetGlbMissionV(84)-1)
end
--if ((gio == 11) or (gio == 13) or (gio == 15) or (gio == 17) or (gio == 19) or (gio == 21) or (gio == 23)) and (phut < 30) then
--else
--SetTask(23,0)
--end
SetTask(23,0)
SetTask(24,0)
SetTask(25,0)
SetTask(26,0)
SetPunish(1)
SetFightState(0)
SetDeathScript("");
SetCamp(GetTask(27))
SetCurCamp(GetTask(27))
SetTask(27,0)
SetPK(GetTask(28))
SetTask(28,0)
--SetRank(GetTask(29))
SetTask(29,0)
SetTask(30,0)
DelMagic(413)
NewWorld(53, 1603, 3210);
SetRevPos(19);
Msg2Player("B¹n ®· trë vÒ Ba L¨ng HuyÖn")
end;
function no()
end
Bằng niềm tin à =.=! Xu ở mấy server mới đều là trong SQL, sao mà script đc =.=!
trungkhuyen
30-01-13, 09:58 PM
???? sao có ý kiến trái chiều vậy nè ? mình chơi sv BFF ken cũng bít mà !!!
danghai1993
31-01-13, 12:42 PM
???? sao có ý kiến trái chiều vậy nè ? mình chơi sv BFF ken cũng bít mà !!!
Sever BFF add xu bằng script ! 8-x
Sever auto add xu bằng SQL ! 8-x
Edward_Newgate
31-01-13, 12:58 PM
Sever BFF add xu bằng script ! 8-x
Sever auto add xu bằng SQL ! 8-x
Server BFF chưa thử nhưng hình như xu dùng trong KTC là hàm chứ đâu phải Task 92 như ở trên
danghai1993
31-01-13, 01:11 PM
Server BFF chưa thử nhưng hình như xu dùng trong KTC là hàm chứ đâu phải Task 92 như ở trên
Không ! BFF là dùng script bạn ơi :-s
trungkhuyen
31-01-13, 01:19 PM
vậy là làm như hướng dẫn phải ko? Or mình có thể thay dòng add exp thay bằng add xu như trên là dc phải hem ?
Edward_Newgate
31-01-13, 01:20 PM
Không ! BFF là dùng script bạn ơi :-s
Ai bảo k phải script đâu =.=! Vấn đề là k dùng task mà dùng hàm mới đúng
trungkhuyen
31-01-13, 01:41 PM
Ai bảo k phải script đâu =.=! Vấn đề là k dùng task mà dùng hàm mới đúng
vậy làm thế nào đây bạn ?................
fzxgl136
31-01-13, 08:13 PM
hàm cấp xu của sv này phải hỏi nhóm ANT mới biết hàm cấp xu là gì thôi
trananh88vt trả lời dùm bạn này câu hỏi đi kìa
nhocken2030
31-01-13, 08:18 PM
Script này mình làm từ nền BFF :)
nhưng sau đó copy script và setting vào sv auto và chạy ổn
ok
fzxgl136
31-01-13, 08:35 PM
Script này mình làm từ nền BFF :)
nhưng sau đó copy script và setting vào sv auto và chạy ổn
ok
srcip bff thì dùng task nhưng bảo vật thì không dùng mà dùng tiền sql nên chỉ có nhóm ANT mới biết cách cấp thôi bạn
Edward_Newgate
01-02-13, 05:17 PM
Thử hàm này
EarnExtPoint()
Nếu k được thì k biết rồi
danghai1993
01-02-13, 06:08 PM
Thử hàm này
EarnExtPoint()
Nếu k được thì k biết rồi
bữa hũm cũng hỏi sky hàm này, lslsky nói hàm này bị triệt tiêu rồi :| Chắc chỉ còn add trực tiếp vào SQL [-(
Edward_Newgate
01-02-13, 06:29 PM
bữa hũm cũng hỏi sky hàm này, lslsky nói hàm này bị triệt tiêu rồi :| Chắc chỉ còn add trực tiếp vào SQL [-(
Cái server kia là nền đầu tiên nên có thể vẫn dùng được, các server có auto sau này thì là bị triệt 100% rồi
Vì thế nên cứ thứ 2 cách, sử dụng hàm EarnExtPoint() hoặc vào SQL
nhocken2030
01-02-13, 06:56 PM
srcip bff thì dùng task nhưng bảo vật thì không dùng mà dùng tiền sql nên chỉ có nhóm ANT mới biết cách cấp thôi bạn
Mình có nói gì đến Bảo Vật kô bạn ???
lzlsky301
01-02-13, 07:21 PM
Server nào nút Bảo Vật không có tác dụng thì server ấy không có xu trong source. Đơn giản vậy thôi 8-|
Edward_Newgate
01-02-13, 07:25 PM
Server nào nút Bảo Vật không có tác dụng thì server ấy không có xu trong source. Đơn giản vậy thôi 8-|
Server này k dùng được Bảo Vật à :-? Chưa thử cứ tưởng nó có đó thì KTC sài được chứ :)) Hóa ra là trang trí à ;))
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.