View Full Version : [JX] Sửa lại Scripts như này liệu đã đúng chưa ?
hieucolc
19-06-12, 05:23 AM
em muốn sửa Scripts ép Hoàng Kim Lệnh này thành
40kv và ht5 + 100% xuống 60% như này liệu đã dúng chưa
bác Pro chỉ giáo dùm nếu em sửa sai thì các Pro có thể chỉ em hoặc có thể sửa lại dùm em đc ko ạ
--- THO REN THAN BI--- CHUC NANG : EP ITEM HK
--- TAC GIA : JXVIETNAM
Include("\\Script\\source\\sourcejx49.lua")
HKDP = 3
BKDP = 150
OKDP = 152
DOPHOHK = 14
DOPHOBK = 15
DOPHOOK = 16
HT7 = 4
HT8 = 11
HT9 = 12
function chetaolb()
SayEx({"Xin chao !","Che tao Hoang Kim Lenh/hk","Tim hieu/timhieu","Thoat/no"})
end
function timhieu()
Talk(1,"","Hoang Kim Lenh : Doi 1 trang bi Hoang Kim")
end
function no()
end
function hk()
SayEx({"Nguyen lieu che tao Hoang Kim Lenh : \n<color=yellow>+ Hoang Kim Dai Phap\n+ Do Pho Hoang Kim Lenh\n+ Huyen Tinh 5\n+ Ti le thanh cong 60%\n+ 40kv","Che tao/hk1","Suy nghi lai/no"})
end
function bk()
SayEx({"Nguyen lieu che tao Bach Kim Lenh : \n<color=yellow>+ Bach Kim Dai Phap\n+ Do Pho Bach Kim Lenh\n+ Huyen Tinh 8\n+ Ti le thanh cong 100%","Che tao/bk1","Suy nghi lai/no"})
end
function ok()
SayEx({"Nguyen lieu che tao O Kim Lenh : \n<color=yellow>+ O Kim Dai Phap\n+ Do Pho O Kim Lenh\n+ Huyen Tinh 9\n+ Ti le thanh cong 100%","Che tao/ok1","Suy nghi lai/no"})
end
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT5)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT5)
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT5) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
function bk1()
a = GetItemCount(BKDP)
b = GetItemCount(DOPHOBK)
c = GetItemCount(HT8)
if GetItemCount(BKDP) >= 1 then
if GetItemCount(DOPHOBK) >= 1 then
if GetItemCount(HT8) >= 1 then
DelItem(BKDP)
DelItem(DOPHOBK)
DelItem(HT8)
if GetItemCount(BKDP) == (a - 1) and GetItemCount(DOPHOBK) == (b - 1) and GetItemCount(HT8) == (c - 1) then
AddEventItem(50)
-- logWrite("Che tao Bach Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Bach Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Bach Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Bach Kim Dai Phap")
end
end
function ok1()
a = GetItemCount(OKDP)
b = GetItemCount(DOPHOOK)
c = GetItemCount(HT9)
if GetItemCount(OKDP) >= 1 then
if GetItemCount(DOPHOOK) >= 1 then
if GetItemCount(HT9) >= 1 then
DelItem(OKDP)
DelItem(DOPHOOK)
DelItem(HT9)
if GetItemCount(OKDP) == (a - 1) and GetItemCount(DOPHOOK) == (b - 1) and GetItemCount(HT9) == (c - 1) then
AddEventItem(51)
--logWrite("Che tao O Kim Lenh")
Talk(1,"no","Che tao <color=yellow>O Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho O Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>O Kim Dai Phap")
end
end
0kazaki
19-06-12, 05:54 AM
em muốn sửa Scripts ép Hoàng Kim Lệnh này thành
40kv và ht5 + 100% xuống 60% như này liệu đã dúng chưa
bác Pro chỉ giáo dùm nếu em sửa sai thì các Pro có thể chỉ em hoặc có thể sửa lại dùm em đc ko ạ
mình thấy 3 cái giống nhau có chia tỉ lệ nào đâu
với lại
function bk()
SayEx({"Nguyen lieu che tao Bach Kim Lenh : \n<color=yellow>+ Bach Kim Dai Phap\n+ Do Pho Bach Kim Lenh\n+ Huyen Tinh 8\n+ Ti le thanh cong 100%","Che tao/bk1","Suy nghi lai/no"})
end
function ok()
SayEx({"Nguyen lieu che tao O Kim Lenh : \n<color=yellow>+ O Kim Dai Phap\n+ Do Pho O Kim Lenh\n+ Huyen Tinh 9\n+ Ti le thanh cong 100%","Che tao/ok1","Suy nghi lai/no"})
end
không thấy bác gọi nó nhỉ chế mỗi hk thui ah
0kazaki
19-06-12, 06:00 AM
Bác thử làm thế này xem trinh mình còn gà lém :)
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT5)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT5)
d = random(1,2)
if d == 2 then --tỉ lệ 50/50 1 xịt 2 lên
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT5) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
hieucolc
19-06-12, 06:13 AM
Bác thử làm thế này xem trinh mình còn gà lém :)
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT5)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT5)
d = random(1,2)
if d == 2 then tỉ lệ 50/50 1 xịt 2 lên
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT5) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
nhưng mà còn vấn đề sửa thành HT 5 và 40kv mình làm đã đúng chưa bạn mình khởi động lại Sv thì ko thấy Ép đc nữa mặc dù đủ nguyên liệu ( Scripts của mình đó )
0kazaki
19-06-12, 06:33 AM
nhưng mà còn vấn đề sửa thành HT 5 và 40kv mình làm đã đúng chưa bạn mình khởi động lại Sv thì ko thấy Ép đc nữa mặc dù đủ nguyên liệu ( Scripts của mình đó )
ở đây mình có thấy dòng nào nói đến tiền đâu bạn cái lúc nãy mình bảo chỉ sửa cái chữ đỏ thui nhé cái mình nói thêm bên cạnh đừng thêm vào
HT7 = 4 -> sửa lại id item HT 5
HT8 = 11
HT9 = 12
nếu mún thêm tiền vạn vào phái có hàm
if GetCash() >=400000 then
không sửa ở đây nhé vì sửa cũng không đc
c = GetItemCount(HT5) để nguyên nếu không trên kia phải khai báo thêm
HT5 = 8 -> nếu mình không nhầm đây là id HT 5
HT7 = 4
HT8 = 11
HT9 = 12
hieucolc
19-06-12, 08:04 AM
ở đây mình có thấy dòng nào nói đến tiền đâu bạn cái lúc nãy mình bảo chỉ sửa cái chữ đỏ thui nhé cái mình nói thêm bên cạnh đừng thêm vào
HT7 = 4 -> sửa lại id item HT 5
HT8 = 11
HT9 = 12
nếu mún thêm tiền vạn vào phái có hàm
if GetCash() >=400000 then
không sửa ở đây nhé vì sửa cũng không đc
c = GetItemCount(HT5) để nguyên nếu không trên kia phải khai báo thêm
HT5 = 8 -> nếu mình không nhầm đây là id HT 5
HT7 = 4
HT8 = 11
HT9 = 12
mình đọc mãi chả hiểu bạn có thể sửa luôn dùm mình ko :Z
ahoo125
19-06-12, 01:58 PM
em muốn sửa Scripts ép Hoàng Kim Lệnh này thành
40kv và ht5 + 100% xuống 60% như này liệu đã dúng chưa
bác Pro chỉ giáo dùm nếu em sửa sai thì các Pro có thể chỉ em hoặc có thể sửa lại dùm em đc ko ạ
HKDP = 3
BKDP = 150
OKDP = 152
DOPHOHK = 14
DOPHOBK = 15
DOPHOOK = 16
HT7 = 4
HT8 = 11
HT9 = 12
....
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT5)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT5)
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT5) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
Bạn xem lại những chỗ mình tô màu nhé.
Giống như okazaki nói, trong code của bạn không có khai báo biến nào là HT5 hết thì lấy đâu ra mà so sánh, kiểm tra?.
Có 2 cách để sửa lại:
1. Bạn khai báo biến HT5, rồi gán HT5= ID của huyền tinh 5 ( Xem ID trong questkey). Sau đó bạn thay thế biến HT7 trong hàm function hk1() thành HT5.
2. Bạn thay đổi giá trị biến HT7 = ID của huyền tinh 5 ( Xem ID trong questkey). Sau đó thay thế biến HT5 trong hàm function hk1() thành HT7.
Để bắt người chơi phải trả tiền , bạn làm như okazaki, phải có điều kiện kiểm tra tiền trong hành trang
if GetCash() >=400000 then
....
end
Và có hàm pay(400000) để trừ tiền người chơi.
Với tỉ lệ 60%, bạn cần khai báo giống như okazaki đã chỉ dẫn
d = random(1,5)
if d == 1 or d == 2 or d == 3 then
...
end
Giải thích code này:
d là một biến, bạn cho giá trị ngẫu nhiên từ 1-5. bạn tính % như sau, ở đây d sẽ ngẫu nhiên nhận đc 1 trong 5 giá trị từ 1 đến 5, mỗi giá trị tương đương là 100 % : 5 = 20%.
ở phần if kiểm tra điều kiện, nếu d bằng 1 trong số 3 giá trị trên thì ra hoàng kim lệnh, mỗi giá trị 20%, tổng 3 giá trị sẽ là 60%.
Bạn có thể tùy biến tỉ lệ % tùy theo ý bạn.
Mình sửa lại thế này, không biết chạy ko vì chưa test.
HT5= x -- x là ID huyền tinh 5, bạn tự thêm vào
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT5)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT5) >= 1 then
if GetCash() >= x -- x là số tiền bạn tự điền vào
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT5)
Pay(x) --x là Số tiền bạn tự điền vào
d = random(1,5)
if d == 2 or d == 1 or d == 4 then --tỉ lệ 60%
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT5) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co du tien")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
Có gì sai sót mong các pro sửa giúp.
ngheolavaydo
19-06-12, 06:11 PM
--- THO REN THAN BI--- CHUC NANG : EP ITEM HK
--- TAC GIA : JXVIETNAM
Include("\\Script\\source\\sourcejx49.lua")
HKDP = 3
BKDP = 150
OKDP = 152
DOPHOHK = 14
DOPHOBK = 15
DOPHOOK = 16
HT7 = 4 Bạn chỉ cần thay đổi giá trị số 4 thành số 5 là yêu cầu ht 5 rồi ( bạn test thử đi chúc bạn thành công )
HT8 = 11
HT9 = 12
hieucolc
20-06-12, 12:09 AM
THanks các bạn mình đã sửa lại nhưng khi load GSV nó báo lỗi Scripts và mình sửa như này đã đúng chưa
--- THO REN THAN BI--- CHUC NANG : EP ITEM HK
--- TAC GIA : JXVIETNAM
Include("\\Script\\source\\sourcejx49.lua")
HKDP = 3
BKDP = 150
OKDP = 152
DOPHOHK = 14
DOPHOBK = 15
DOPHOOK = 16
HT7 = 8
HT8 = 11
HT9 = 12
function chetaolb()
SayEx({"Xin chao !","Che tao Hoang Kim Lenh/hk","Tim hieu/timhieu","Thoat/no"})
end
function timhieu()
Talk(1,"","Hoang Kim Lenh : Doi 1 trang bi Hoang Kim")
end
function no()
end
function hk()
SayEx({"Nguyen lieu che tao Hoang Kim Lenh : \n<color=yellow>+ Hoang Kim Dai Phap\n+ Do Pho Hoang Kim Lenh\n+ Huyen Tinh 5\n+ 50kv\n+ Ti le thanh cong 60%","Che tao/hk1","Suy nghi lai/no"})
end
function bk()
SayEx({"Nguyen lieu che tao Bach Kim Lenh : \n<color=yellow>+ Bach Kim Dai Phap\n+ Do Pho Bach Kim Lenh\n+ Huyen Tinh 8\n+ Ti le thanh cong 100%","Che tao/bk1","Suy nghi lai/no"})
end
function ok()
SayEx({"Nguyen lieu che tao O Kim Lenh : \n<color=yellow>+ O Kim Dai Phap\n+ Do Pho O Kim Lenh\n+ Huyen Tinh 9\n+ Ti le thanh cong 100%","Che tao/ok1","Suy nghi lai/no"})
end
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT7)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
if GetCash() >= 500000000
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT7)
Pay(500000000)
d = random(1,5)
if d == 2 or d == 1 or d == 4 then
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT7) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
slse
Talk(1,"","Ban khong co du tien")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
function bk1()
a = GetItemCount(BKDP)
b = GetItemCount(DOPHOBK)
c = GetItemCount(HT8)
if GetItemCount(BKDP) >= 1 then
if GetItemCount(DOPHOBK) >= 1 then
if GetItemCount(HT8) >= 1 then
DelItem(BKDP)
DelItem(DOPHOBK)
DelItem(HT8)
if GetItemCount(BKDP) == (a - 1) and GetItemCount(DOPHOBK) == (b - 1) and GetItemCount(HT8) == (c - 1) then
AddEventItem(50)
-- logWrite("Che tao Bach Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Bach Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Bach Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Bach Kim Dai Phap")
end
end
function ok1()
a = GetItemCount(OKDP)
b = GetItemCount(DOPHOOK)
c = GetItemCount(HT9)
if GetItemCount(OKDP) >= 1 then
if GetItemCount(DOPHOOK) >= 1 then
if GetItemCount(HT9) >= 1 then
DelItem(OKDP)
DelItem(DOPHOOK)
DelItem(HT9)
if GetItemCount(OKDP) == (a - 1) and GetItemCount(DOPHOOK) == (b - 1) and GetItemCount(HT9) == (c - 1) then
AddEventItem(51)
--logWrite("Che tao O Kim Lenh")
Talk(1,"no","Che tao <color=yellow>O Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho O Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>O Kim Dai Phap")
end
end
DarkOfTheMoon
20-06-12, 04:54 AM
bạn check lại fan func hk1 sau 5000... thieu "then" va "else" viet thieu sau cai "hack ha cung yeu"
hieucolc
20-06-12, 05:38 AM
bạn check lại fan func hk1 sau 5000... thieu "then" va "else" viet thieu sau cai "hack ha cung yeu"
Thaks bạn nhắc nhở
mình đã thêm vào rồi nhưng vẫn bị lỗi khi chạy GSV bạn có thể để lại Yahoo và hướng dẫn mình đc ko mình gà về cái Scripts này
DarkOfTheMoon
20-06-12, 09:07 AM
--- THO REN THAN BI--- CHUC NANG : EP ITEM HK
--- TAC GIA : JXVIETNAM
Include("\\Script\\source\\sourcejx49.lua")
HKDP = 3
BKDP = 150
OKDP = 152
DOPHOHK = 14
DOPHOBK = 15
DOPHOOK = 16
HT7 = 8
HT8 = 11
HT9 = 12
function chetaolb()
SayEx({"Xin chao !","Che tao Hoang Kim Lenh/hk","Tim hieu/timhieu","Thoat/no"})
end
function timhieu()
Talk(1,"","Hoang Kim Lenh : Doi 1 trang bi Hoang Kim")
end
function no()
end
function hk()
SayEx({"Nguyen lieu che tao Hoang Kim Lenh : \n<color=yellow>+ Hoang Kim Dai Phap\n+ Do Pho Hoang Kim Lenh\n+ Huyen Tinh 5\n+ 50kv\n+ Ti le thanh cong 60%","Che tao/hk1","Suy nghi lai/no"})
end
function bk()
SayEx({"Nguyen lieu che tao Bach Kim Lenh : \n<color=yellow>+ Bach Kim Dai Phap\n+ Do Pho Bach Kim Lenh\n+ Huyen Tinh 8\n+ Ti le thanh cong 100%","Che tao/bk1","Suy nghi lai/no"})
end
function ok()
SayEx({"Nguyen lieu che tao O Kim Lenh : \n<color=yellow>+ O Kim Dai Phap\n+ Do Pho O Kim Lenh\n+ Huyen Tinh 9\n+ Ti le thanh cong 100%","Che tao/ok1","Suy nghi lai/no"})
end
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT7)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
if GetCash() >= 500000000 then
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT7)
Pay(500000000)
d = random(1,5)
if d == 2 or d == 1 or d == 4 then
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT7) == (c - 1) then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co du tien")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 1")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
end
function bk1()
a = GetItemCount(BKDP)
b = GetItemCount(DOPHOBK)
c = GetItemCount(HT8)
if GetItemCount(BKDP) >= 1 then
if GetItemCount(DOPHOBK) >= 1 then
if GetItemCount(HT8) >= 1 then
DelItem(BKDP)
DelItem(DOPHOBK)
DelItem(HT8)
if GetItemCount(BKDP) == (a - 1) and GetItemCount(DOPHOBK) == (b - 1) and GetItemCount(HT8) == (c - 1) then
AddEventItem(50)
-- logWrite("Che tao Bach Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Bach Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Bach Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Bach Kim Dai Phap")
end
end
function ok1()
a = GetItemCount(OKDP)
b = GetItemCount(DOPHOOK)
c = GetItemCount(HT9)
if GetItemCount(OKDP) >= 1 then
if GetItemCount(DOPHOOK) >= 1 then
if GetItemCount(HT9) >= 1 then
DelItem(OKDP)
DelItem(DOPHOOK)
DelItem(HT9)
if GetItemCount(OKDP) == (a - 1) and GetItemCount(DOPHOOK) == (b - 1) and GetItemCount(HT9) == (c - 1) then
AddEventItem(51)
--logWrite("Che tao O Kim Lenh")
Talk(1,"no","Che tao <color=yellow>O Kim Lenh<color> thanh cong !")
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Huyen Tinh 8")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho O Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>O Kim Dai Phap")
end
end
đây fix hết bị lỗi còn có work ko thì mình ko bik nhá...Cho bạn lời khuyên nhá, bạn nên dùng notepad++ để chỉnh sửa hay viết .lua khi bạn mới tập viết về .lua nhá, thường thì code dài làm bạn hoa mắt nếu ko wen check "if else end" trong code.
ahoo125
20-06-12, 10:23 AM
Mình edit lại thế này, bạn chạy thử nhé
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT7)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
if GetCash() >= 500000000
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT7)
Pay(500000000)
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT7) == (c - 1) then
d = random(1,5)
if d == 2 or d == 1 or d == 4 then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> that bai !")
end
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co du tien")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 5")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
0kazaki
20-06-12, 01:31 PM
Mình edit lại thế này, bạn chạy thử nhé
function hk1()
a = GetItemCount(HKDP)
b = GetItemCount(DOPHOHK)
c = GetItemCount(HT7)
if GetItemCount(HKDP) >= 1 then
if GetItemCount(DOPHOHK) >= 1 then
if GetItemCount(HT7) >= 1 then
if GetCash() >= 500000000
DelItem(HKDP)
DelItem(DOPHOHK)
DelItem(HT7)
Pay(500000000)
if GetItemCount(HKDP) == (a - 1) and GetItemCount(DOPHOHK) == (b - 1) and GetItemCount(HT7) == (c - 1) then
d = random(1,5)
if d == 2 or d == 1 or d == 4 then
AddEventItem(49)
--logWrite("Che tao Hoang Kim Lenh")
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> thanh cong !")
else
Talk(1,"no","Che tao <color=yellow>Hoang Kim Lenh<color> that bai !")
end
else
Talk(1,"","Hack ha cung yeu !")
end
else
Talk(1,"","Ban khong co du tien")
end
else
Talk(1,"","Ban khong co <color=cyan>Huyen Tinh 5")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Do Pho Hoang Kim")
end
else
Talk(1,"","Ban khong co 1 <color=cyan>Hoang Kim Dai Phap")
end
end
về quê chưa bác dạo này dảnh quá ha
ahoo125
20-06-12, 02:16 PM
về quê chưa bác dạo này dảnh quá ha
Chưa bác à, đang ôn thi nốt môn nữa, cuối tháng xong, có khi hè mần lại cho ngon cái sv hiện tại bác đang bỏ dỡ :">
hieucolc
20-06-12, 05:53 PM
Thanks các bác ạ em đã sửa xong rồi
Powered by vBulletin® Version 4.2.0 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.