Topic Hướng Dẫn Viết Script + Fix Lỗi cho Gamer

[zonjkut3]

anh king fix dùm em TK+VA tsbd

[sontung93]

chủ top pic cho cái hướng dẫn sửa cái event 8.3 của Mướp xin cảm ơn

[kinkina2009]

^
^
^
Fix xong Liên đấu cho ông rồi nhé
^
^^
post Script + lỗi lên

[sontung93]

function main()
Say("<color=blue>Le Kien Quan: <color>Ta la nguoi dam nhan cac <color=fire>su kien<color> trong nhung ngay le quan trong",1,"Thoat/no")
end;
function even83()
Say("<color=blue>Le Kien Quan: <color>Khi train o cac map cac ban co co hoi nhan duoc <color=fire>duong, trung, sua, bot my. <color>Nguoi hay lua chon",3,"Lam banh kem/lbkt","Su dung banh kem/sdbk","Thoat/no")
end;
function lbkt()
Say("<color=blue>Le Kien Quan: <color>De lam banh kem nguoi can co <color=fire>duong, trung, sua, bot my, <color>nguoi cu du roi chu ?",2,"Bat dau lam banh/bdlb","Thoat/no")
end;
function bdlb()
if (GetCash() >= 20000) then
sl1=GetItemCount(117)
sl2=GetItemCount(118)
sl3=GetItemCount(119)
sl4=GetItemCount(120)
if (sl1 >= 1) and (sl2 >= 1) and (sl3 >= 1) and (sl4 >= 1) then
DelItem(117)
DelItem(118)
DelItem(119)
DelItem(120)
if (GetItemCount(117) == (sl1-1)) and (GetItemCount(118) == (sl2-1)) and (GetItemCount(119) == (sl3-1)) and (GetItemCount(120) == (sl4-1)) then
Pay(20000)
lb = random(121,124)
AddEventItem(lb)
Msg2Player("Ban nhan duoc 1 chiec banh kem !");
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co du <color=red>nguyen lieu<color>, khong the lam banh")
end
else
Talk(1,"no","Ban khong co du <color=red>2 van luong<color>, khong the lam banh")
end
end;

function sdbk()
Say("<color=blue>Le Kien Quan: <color>Nhan vat dang cap tu 80 tro len moi co the su dung, nguoi hay lua chon",5,"Banh Kem Sua (Kem)/bksk","Banh Kem Sua (Thuong)/bkst","Banh Kem Sua (Ngon)/bksn","Banh Kem Sua (Hao Hang)/bkshh","Thoat/no")
end;
function bksk()
if (GetLevel() >= 80) then
sl=GetItemCount(121)
if (sl >= 1) then
DelItem(121)
if (GetItemCount(121) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(100000)
AddRepute(5)
Msg2Player("Ban nhan duoc 5 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 5) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 5) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 5) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 5) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 5) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Kem)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;


function bkst()
if (GetLevel() >= 80) then
sl=GetItemCount(122)
if (sl >= 1) then
DelItem(122)
if (GetItemCount(122) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(200000)
AddRepute(10)
Msg2Player("Ban nhan duoc 10 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 10) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 10) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 10) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 10) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 10) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Thuong)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;

function bksn()
if (GetLevel() >= 80) then
sl=GetItemCount(123)
if (sl >= 1) then
DelItem(123)
if (GetItemCount(123) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(300000)
AddRepute(15)
Msg2Player("Ban nhan duoc 15 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 15) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 15) then
pd=random(106)
AddEventItem(pd)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 15) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 15) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 15) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Ngon)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;

function bkshh()
if (GetLevel() >= 80) then
sl=GetItemCount(124)
if (sl >= 1) then
DelItem(124)
if (GetItemCount(124) == (sl-1)) then
cbkhk = random(1,100)
cpdhk = random(1,100)
cthbthk = random(1,100)
ctthk = random(1,100)
crhk = random(1,100)
AddOwnExp(500000)
AddRepute(20)
Msg2Player("Ban nhan duoc 20 danh vong, danh vong hien tai "..GetRepute().." diem !");
if (cbkhk <= 20) then
bk=random(75,102)
AddEventItem(bk)
Msg2Player("Ban nhan duoc 1 Bi Kip Mon Phai !");
end
if (cpdhk <= 20) then
pd=random(106,108)
pd=random(106)
Msg2Player("Ban nhan duoc 1 Phuc Duyen !");
end
if (cthbthk <= 20) then
AddEventItem(31)
Msg2Player("Ban nhan duoc 1 Tinh Hong Bao Thach !");
end
if (cthbthk <= 20) then
tt=random(28,30)
AddEventItem(tt)
Msg2Player("Ban nhan duoc 1 Thuy Tinh !");
end
if (crhk <= 20) then
AddEventItem(109)
Msg2Player("Ban nhan duoc 1 Binh Ruu !");
end
else
Msg2Player("Hack a cung yeu !");
end
else
Talk(1,"no","Ban khong co <color=red>Banh Kem Sua (Hao Hang)<color>, khong the su dung")
end
else
Talk(1,"no","Ban khong du <color=red>cap 80<color>, khong the su dung")
end
end;










function no()
end;










đấy nói chuyện cả lễ kiện qan thì k thấy có ép bánh đánh quái cũng k ra item event

[kinkina2009]

ạc . bạn phải ghép vào 1 NPC thì nói chuyện mới có chứ
Còn đánh quái rớt ra phải dùng thêm hàm AddEventItem ở OnDearth() của quái còn không thì chỉnh 1 ít ở NPCs.txt và Droprate ở Settings

[jxvietnam]

àh King nè cái ủy thác skill trong THD sao nó cứ > 100%
vd như là 123123.123123% chỉnh nó xuống 20.50% đc ko ^^

[kinkina2009]

hàm floor sẽ chia lại thành không có ,

[zonjkut3]

anh king fix rùm em TK+VA sv em đi

[kinkina2009]

bảo là post lên mà + lỗi nữa

[zonjkut3]

thì đến h nó k cho báo danh đó
[Only registered and activated users can see links. ]