PDA

View Full Version : [JX] Xin hỏi cách Add phẩn thưởng random vào Event Bánh Trung Thu



Ducthinh682
14-08-16, 03:55 PM
Tình hình là mình đang xài event ép bánh trung thu có bánh trung thu gà nướng và heo quay..
khi sử dụng event chỉ nhận đc exp không có phần thưởng random kèm theo như các event khác
Có ai biết cách add thêm phần thưởng random vào event này thì xin chỉ giáo mình với :D

Script của vật phẫm event đó đây!!!



function main(sel)
local ndate = tonumber(GetLocalDate("%y%m%d%H%M"))
if ndate > 1710312400 then
Say("B¸nh Trung Thu heo quay nµy ®· qu¸ h¹n sö dông.",0)
return 0
end
if check_level() == 0 then
Say(tb_content["szlevel"],0)
return 1
end
if check_pay() == 0 then
Say(tb_content["szpay"],0)
return 1
end
local ncurexp = GetTask(TSK_ZHONGQIU2007)
if ncurexp >= NZHONGQIU2007_MAX then
Say("§iÓm kinh nghiÖm nhËn ®­îc tõ b¸nh Trung Thu ®· v­ît møc giíi h¹n.",0)
return 1
end
local nexp = 3000000
if (ncurexp + nexp) >= NZHONGQIU2007_MAX then
nexp = NZHONGQIU2007_MAX - ncurexp
end
SetTask(TSK_ZHONGQIU2007,(ncurexp+nexp))
AddOwnExp(nexp)
Msg2Player(format("NhËn ®­îc <color=yellow>%s<color> ®iÓm kinh nghiÖm",nexp))
WriteLog(format("[zhongqiu2007_kaozhu]\t Date:%s\t Account:%s\t Name:%s\t GetExp:%s",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName(),nexp));
end




Mình xin cảm ơn :D

Ducthinh682
14-08-16, 04:55 PM
Ai chỉ giáo mình với :D .

Ducthinh682
14-08-16, 11:08 PM
Uppppppppp. Ai giúp mình vớiiiiii. .

Linh_JX
14-08-16, 11:51 PM
AddOwnExp(nexp)
themcode dưới dòng này.

bác quăng code sau thì chỉ có thể chỉ vậy

p13cks03
15-08-16, 12:33 AM
ông biết chỉnh lại ngày của vật phẩm không tui vào setting/item/004/magicscript.txt chỉnh lại ngày toàn bị lỗi

Ducthinh682
15-08-16, 12:18 PM
bác quăng code sau thì chỉ có thể chỉ vậy

Thêm code dưới đòng đó thì mình muốn khi ăn event cho ra các item random thì mình thêm code làm sao vậy bạn :D

cuongvh93
15-08-16, 12:43 PM
Thêm code dưới đòng đó thì mình muốn khi ăn event cho ra các item random thì mình thêm code làm sao vậy bạn :D

Bữa mình có coment cách add random ở topic nào quên rồi bạn kiếm lại trong phần hỏi đáp xem.

minhduc_aa
15-08-16, 12:49 PM
Thêm code dưới đòng đó thì mình muốn khi ăn event cho ra các item random thì mình thêm code làm sao vậy bạn :D

trungthu_zhongqiu2007_tbItemList =
{
-- script [ vËt phÈm PID] = { tªn , vËt phÈm prop , x¸c suÊt %}
[id của cái bánh] = {
{"Tö thñy tinh ",{4,238,1,1,0,0},6.00},
{"N­íc biÕc tinh ",{4,239,1,1,0,0},5.00},
{" lam thñy tinh ",{4,240,1,1,0,0},5.00},
{"§Æc hiÖu tiªn th¶o lé ",{6,1,1181,1,0,0},5.00},
{"Tiªn th¶o lé ",{6,1,71,1,0,0},10.00},
{"Phóc duyªn lé ( ®¹i ) ",{6,1,124,1,0,0},30.00},
{"Tinh hång b¶o th¹ch ",{4,353,1,1,0,0},5.60},
{"An bang b¨ng tinh th¹ch gi©y chuyÒn ",{0,164},0.01},
},

function main(sel)
local _, _, PID = GetItemProp(nItemIndex);
local szItemName = GetItemName(nItemIndex);
local ndate = tonumber(GetLocalDate("%y%m%d%H%M"))
if ndate > 1710312400 then
Say("B¸nh Trung Thu heo quay nµy ®· qu¸ h¹n sö dông.",0)
return 0
end
if check_level() == 0 then
Say(tb_content["szlevel"],0)
return 1
end
if check_pay() == 0 then
Say(tb_content["szpay"],0)
return 1
end
local ncurexp = GetTask(TSK_ZHONGQIU2007)
if ncurexp >= NZHONGQIU2007_MAX then
Say("§iÓm kinh nghiÖm nhËn ®­îc tõ b¸nh Trung Thu ®· v­ît møc giíi h¹n.",0)
return 1
end
local nexp = 3000000
if (ncurexp + nexp) >= NZHONGQIU2007_MAX then
nexp = NZHONGQIU2007_MAX - ncurexp
end
SetTask(TSK_ZHONGQIU2007,(ncurexp+nexp))
AddOwnExp(nexp)
Msg2Player(format("NhËn ®­îc <color=yellow>%s<color> ®iÓm kinh nghiÖm",nexp))
WriteLog(format("[zhongqiu2007_kaozhu]\t Date:%s\t Account:%s\t Name:%s\t GetExp:%s",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName(),nexp))
end
trungthu_zhongqiu2007_GiveRandomItem(trungthu_zhon gqiu2007_tbItemList[PID])
return 0;
end

Ducthinh682
15-08-16, 12:55 PM
Bữa mình có coment cách add random ở topic nào quên rồi bạn kiếm lại trong phần hỏi đáp xem.

biết bao nhiêu topic làm sao mình tìm ra :D

--- Chế độ gộp bài viết ---


trungthu_zhongqiu2007_tbItemList =
{
-- script [ vËt phÈm PID] = { tªn , vËt phÈm prop , x¸c suÊt %}
[id của cái bánh] = {
{"Tö thñy tinh ",{4,238,1,1,0,0},6.00},
{"N­íc biÕc tinh ",{4,239,1,1,0,0},5.00},
{" lam thñy tinh ",{4,240,1,1,0,0},5.00},
{"§Æc hiÖu tiªn th¶o lé ",{6,1,1181,1,0,0},5.00},
{"Tiªn th¶o lé ",{6,1,71,1,0,0},10.00},
{"Phóc duyªn lé ( ®¹i ) ",{6,1,124,1,0,0},30.00},
{"Tinh hång b¶o th¹ch ",{4,353,1,1,0,0},5.60},
{"An bang b¨ng tinh th¹ch gi©y chuyÒn ",{0,164},0.01},
},




ID của cái bánh là mình để 6,1,1512,1,0,0,0 đúng ko bạn

minhduc_aa
15-08-16, 01:00 PM
biết bao nhiêu topic làm sao mình tìm ra :D

--- Chế độ gộp bài viết ---





ID của cái bánh là mình để 6,1,1512,1,0,0,0 đúng ko bạn
id của cái bánh thành phẩm
[1512] thôi nhé

Ducthinh682
15-08-16, 01:01 PM
id của cái bánh thành phẩm
[1512] thôi nhé

Ok cám ơn bạn để mình test xem sao

Ducthinh682
15-08-16, 01:40 PM
trungthu_zhongqiu2007_tbItemList =
{
-- script [ vËt phÈm PID] = { tªn , vËt phÈm prop , x¸c suÊt %}
[id của cái bánh] = {
{"Tö thñy tinh ",{4,238,1,1,0,0},6.00},
{"N­íc biÕc tinh ",{4,239,1,1,0,0},5.00},
{" lam thñy tinh ",{4,240,1,1,0,0},5.00},
{"§Æc hiÖu tiªn th¶o lé ",{6,1,1181,1,0,0},5.00},
{"Tiªn th¶o lé ",{6,1,71,1,0,0},10.00},
{"Phóc duyªn lé ( ®¹i ) ",{6,1,124,1,0,0},30.00},
{"Tinh hång b¶o th¹ch ",{4,353,1,1,0,0},5.60},
{"An bang b¨ng tinh th¹ch gi©y chuyÒn ",{0,164},0.01},
},

function main(sel)
local _, _, PID = GetItemProp(nItemIndex);
local szItemName = GetItemName(nItemIndex);
local ndate = tonumber(GetLocalDate("%y%m%d%H%M"))
if ndate > 1710312400 then
Say("B¸nh Trung Thu heo quay nµy ®· qu¸ h¹n sö dông.",0)
return 0
end
if check_level() == 0 then
Say(tb_content["szlevel"],0)
return 1
end
if check_pay() == 0 then
Say(tb_content["szpay"],0)
return 1
end
local ncurexp = GetTask(TSK_ZHONGQIU2007)
if ncurexp >= NZHONGQIU2007_MAX then
Say("§iÓm kinh nghiÖm nhËn ®­îc tõ b¸nh Trung Thu ®· v­ît møc giíi h¹n.",0)
return 1
end
local nexp = 3000000
if (ncurexp + nexp) >= NZHONGQIU2007_MAX then
nexp = NZHONGQIU2007_MAX - ncurexp
end
SetTask(TSK_ZHONGQIU2007,(ncurexp+nexp))
AddOwnExp(nexp)
Msg2Player(format("NhËn ®­îc <color=yellow>%s<color> ®iÓm kinh nghiÖm",nexp))
WriteLog(format("[zhongqiu2007_kaozhu]\t Date:%s\t Account:%s\t Name:%s\t GetExp:%s",GetLocalDate("%y-%m-%d %H:%M:%S"),GetAccount(),GetName(),nexp))
end
trungthu_zhongqiu2007_GiveRandomItem(trungthu_zhon gqiu2007_tbItemList[PID])
return 0;
end

Script này bị lỗi chỗ nào rồi bạn ơi...

mình bỏ vào nó báo lỗi chỗ dòng function main(sel)

Bạn xem lại giúp mình với :D

Ducthinh682
15-08-16, 02:55 PM
id của cái bánh thành phẩm
[1512] thôi nhé

Bị lỗi chỗ nào rồi bạn ơi... bạn xem lại giúp mình với !!!
Mình cảm ơn :D