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

**hieucolc** · 20-06-12, 05:38 AM

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

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

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    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 bị lỗi còn có work ko thì mình ko bik nhá...Cho bạn lời khuyên nhá, bạn nên dùng notepad++ để chỉnh sửa hay viết .lua khi bạn mới tập viết về .lua nhá, thường thì code dài làm bạ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é

Code:

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

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

Mình edit lại thế này, bạn chạy thử nhé

Code:

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

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

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

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 ?

Ðề: 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