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 ạ

Code:

--- 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

Gửi bởi hieucolc [Only registered and activated users can see links. ]

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

Gửi bởi 0kazaki [Only registered and activated users can see links. ]

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

Gửi bởi hieucolc [Only registered and activated users can see links. ]

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

Gửi bởi 0kazaki [Only registered and activated users can see links. ]

ở đâ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

Gửi bởi hieucolc [Only registered and activated users can see links. ]

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 ạ

Code:

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

Code:

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

Code:

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.

Code:

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

Code:

--- 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

bạn check lại fan func hk1 sau 5000... thieu "then" va "else" viet thieu sau cai "hack ha cung yeu"

Chủ đề: Sửa lại Scripts như này liệu đã đúng chưa ?

Công cụ Chủ đề

Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Các thành viên gởi lời cảm ơn đến hieucolc vì bài viết này !

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Các thành viên gởi lời cảm ơn đến 0kazaki vì bài viết này !

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Các thành viên gởi lời cảm ơn đến ahoo125 vì bài viết này !

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Ðề: Sửa lại Scripts như này liệu đã đúng chưa ?

Các Chủ đề tương tự

[KT] Giúp Scripts Giới hạn lần nhận Tiền của nhân vật

Ai giúp em cái scripts đơn giản này

ai viết Scripts nhận thưởng giùm em

Scripts đổi màu pk

Quyền viết bài