PDA

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í à ;))