Share Script Đoán Hoa Đăng ( Đầu Tay)

[Tôilàai]

Em Nghiên cứu script đc hơn 1 tuần hôm nay xin mạn phép share cho các pro script đoán hoa đăng ....
+ Em Là Lính mới có sai xót g`i mong mấy anh nhắc nhở các anh xem có đc ko pro n`ào rút ngắn đc share lại em nhá nhưng đừng đ^ể bug em xin cám ơn

function main()
doanhoadang()
end;

function doanhoadang()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
if gio >= 19 and phut <= 30 and GetLevel() >= 100 then
batdaunao()
else
Talk(1,"","<color=red>Server Se Bat Dau Ra Cau Hoi Tu 7h Den 7h30 Moi Ngay [Yeu Cau Nhan Vat Phai Dat Dang Cap 100]")
end
end

function batdaunao()
if GetTask(200) == 0 then
SayEx({"Chao Ban Chung Ta Bat Dau Doan Hoa Dang Nhe: ",
"Bat Dau Nao./choncauhoi",
"Thoat./no"})
else
Msg2Player("Hom Nay Ban Da Doan Hoa Dang Roi")
end
end;

function no()
end

function choncauhoi()
cau1()
end;

function dunghet()
AddRepute(1000)
SetTask(TaskDaoHanh,GetTask(TaskDaoHanh)+500)
SetTask(200,1)
Msg2Player("Ban Tra Loi Dung Het Cau Hoi Hoa Dang Hom Nay Va Nhan Duoc 500 Dao Hanh Va 1000 Danh Vong")
end;

function sai1()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau1()
end;

function sai2()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau2()
end;

function sai3()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau3()
end;

function sai4()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau4()
end;

function sai5()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau5()
end;

function sai6()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau6()
end;

function sai7()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau7()
end;

function sai8()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau8()
end;

function sai9()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau9()
end;

function sai10()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau10()
end;

function sai11()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau11()
end;

function sai12()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau12()
end;

function sai13()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau13()
end;

function sai14()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau14()
end;

function sai15()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau15()
end;

function sai16()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau1()
end;

function sai17()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau17()
end;

function sai18()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau18()
end;

function sai19()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau19()
end;

function sai20()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau20()
end;

function sai21()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau21()
end;

function dung1()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau2()
end;

function dung2()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau3()
end;

function dung3()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau4()
end;

function dung4()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau5()
end;

function dung5()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau6()
end;

function dung6()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau7()
end;

function dung7()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau8()
end;

function dung8()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau9()
end;

function dung9()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau10()
end;

function dung10()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau11()
end;

function dung11()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau12()
end;

function dung12()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau13()
end;

function dung13()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau14()
end;

function dung14()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau15()
end;

function dung15()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau16()
end;

function dung16()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau17()
end;

function dung17()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau18()
end;

function dung18()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau19()
end;

function dung19()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau20()
end;

function dung20()
a = 2000000
for i=1,100 do AddOwnExp(a) end
Msg2Player("Ban Nhan Duoc 200 Trieu Kinh Nghiem")
Msg2Player("Kinh Nghiem Se Bi Giam Theo So Lan Trung Sinh Cua Ban")
cau21()
end;

function cau1()
SayEx({"Ngay Song Gio Tinh Yeu Khoi Dau So Luong Nguoi Choi Khoang Bao Nhieu",
"1-48./dung1",
"50-100./sai1",
"100-150./sai1",
"150-200./sai1"})
end

function cau2()
SayEx({"De Ngan Chan Tuyet Doi Viec Lua Dao Giua Admin Va Gamer ",
"Nap Card Qua Yahoo./sai2",
"Nap Card Qua Web./sai2",
"Nap Card Qua Dt Admin./dung2",
"Nap Card Qua Game./sai2"})
end




function cau3()
SayEx({"Thoi Gian Doan Hoa Dang Bat Dau Phut Thu Bao Nhieu Moi Gio ",
"Phut Thu 30./dung3",
"Phut Thu 0./sai3",
"Phut thu 15./sai3",
"Phut Thu 45./sai3"})
end


function cau4()
SayEx({"Ky Nang 120 Cua Duong Mon Ten La Gi? ",
"On Co Chan Khi./sai4",
"Ba La Tam Kinh./sai4",
"Lang Ba Di Bo./dung4",
"Tiem Long Tai Uyen./sai4"})
end

function cau5()
SayEx({"Ngay 10 Thang 10 Nam 2010.Co Su Kien Nao Dac Biet ",
"Bi Roll Lien Tuc./sai5",
"Update Trang Bi Moi./sai5",
"Phuoc Loc Lap Hattrick Dua 10a5 Loai Khoi Hoi Khoe Phu Dong./dung5",
"Add Skill 150./sai5"})
end

function cau6()
SayEx({"Khi Tra Loi sai Cau Hoi Nay Ban Se Mat Bao Nhieu Diem Danh Vong",
"100 Diem./sai6",
"15 Diem./dung6",
"300 Diem./sai6",
"400 Diem./sai6"})
end


function cau7()
SayEx({"Loai Thu Cuoi Nao VIP Nhat hien Nay?",
"Cop Thien Tu./dung7",
"Hac Ho./sai7",
"Tuyet The./sai7",
"Hoang Ho./sai7"})
end

function cau8()
SayEx({"Theo Ban Phuoc Loc Nghi Ai De Thuong Trong Lop 10a10 ?",
"Thien Kim./sai8",
"Minh Hoai./sai8",
"Thanh Ngoc./sai8",
"Ly Na./dung8"})
end

function cau9()
SayEx({"Ten Day Du Cua Admin Server La Gi?",
"Pham Thanh Tu Loc./sai9",
"Nguyen Thanh Loc./sai9",
"Diep Tuan Loc./sai9",
"Pham Thanh Phuoc Loc./dung9"})
end

function cau11()
SayEx({"Te Nhi Noi Lay La Gi?",
"Cai Quan./sai11",
"Dien Qua./sai11",
"Cai Hon./dung11",
"Cristiano Ronaldo./sai11"})
end



function cau10()
SayEx({"Tam Giac La Gi?",
"Thanks you very much./sai10",
"Thanks you./dung10",
"Sorry./sai10",
"Excuse me./sai10"})
end

function cau12()
SayEx({"Huyen Chan Don Tang Bao Nhieu Kinh Nghiem?",
"500 Tr./sai12",
"1 Ty./sai12",
"1 Ty 5./sai12",
"2 Ty./dung12"})
end

function cau13()
SayEx({"Ky Nang 120 Duoc Tao Ra Nhu The Nao?",
"Mua Trong Ky Tran Cac./sai13",
"Di San Boss./sai13",
"Mua O Volamquan./dung13",
"Danh Quai Nhat./sai13"})
end

function cau14()
SayEx({"Ky Nang Tran Phai Tang Max Bao Nhieu?",
"30/sai14",
"35/dung14",
"40/sai14",
"50./sai14"})
end

function cau15()
SayEx({"Trang Bi Manh Nhat Hien Nay La?",
"Toan Thach./sai15",
"Hong Anh./dung15",
"Hoang Kim Mon Phai./sai15",
"Bach Kim Mon Phai./sai15"})
end


function cau16()
SayEx({"De Dang Ki VIP Can Bao Nhieu KNB Nhi?",
"10 KNB./dung16",
"12 KNB/sai16",
"15 KNB/sai16",
"200 KNB/sai16"})
end

function cau17()
SayEx({"Toc Do Ngua Sieu Quang La Bao Nhieu",
"100%./sai17",
"120%./dung17",
"165%./sai17",
"200%./sai17"})
end

function cau18()
SayEx({"Khi Di San Boss Sat Thu Nhan Duoc Nhieu Gi Nhat",
"Kinh Nghiem./dung18",
"Diem Danh Vong./sai18",
"Diem Phuc Duyen./sai18",
"Tien Xu./sai18"})
end

function cau19()
SayEx({"Tai Sao Phuoc Loc Mo Game Nay?",
"Tai Vi Cuu Nuoc./sai19",
"Tai Vi Cho Chu Tich Nuoc My Obama Choi./sai19",
"Tai Vi Cho Lop 10a10 Giai Tri./dung19",
"Tai Server VLTK Vingame It Nguoi./sai19"})
end

function cau20()
SayEx({"De Biet Hang Cua Minh Den Gap NPC Nao",
"Quan LY Bang Hoi./sai20",
"Ho Tro Tan Thu./dung20",
"Le Quan./sai20",
"Quan Ly Tong Kim./sai20"})
end

function cau21()
SayEx({"Ban May Man Nhan Duoc Cau Hoi Dac Biet So Dien Thoai Cua Admin La:",
"01217537080./sai21",
"01217557480./sai21",
"01227537480./sai21",
"Khong Co./dunghet"})
end

[zZK3yL0v3Zz]

giống của Tuyệt Tình Kiếm giữ dậy pa.

[[S]ocola[S]an]

Làm vậy dài và hơi rắc rối ý ... Tham khảo thêm cái TTK . Gọn lẹ =))

[errorxviii]

Loại event trả lời quest này nên làm 1 hàm import dữ liệu câu hỏi và 1 hàm print các câu hỏi, nó vừa ngắn gọn vừa dễ thêm dữ liệu câu hỏi8-}

[kinkina2009]

cái này dupe mê phải biết :->

[Mr.Rezo™]

Coi script này chẳng hợp lý cho lắm.



function sai10()
AddRepute(-15)
Msg2Player("Ban Tra Loi Sai Cau Nay Va Bi Tru 15 Diem Danh Vong.")
cau10()
end;


Thế này mỗi người cứ trả lời sai là bị trừ danh vọng. Thế chẳng nhẽ cứ trừ tới âm luôn.

Chí ít thì cũng có 1 hàm kiểm tra điểm Danh Vọng chứ nhỉ

nếu số danh vọng ít hơn quy định thì bắt buộc nghỉ chơi.

[[B.M.W]Sports]

uk đúng rồi đó , không có danh vong không nên ham hố

[thachlong78]

Thiếu hàm trong sprit, không chặt chẽ cho lắm. Cái quan trọng là giờ >= 19, vậy là hoạt động diễn ra ở nhiều khung giờ khác nhau, 7h 7h30, 8h 8h30, ... Phải là giờ == 19. Đây chỉ là phép logic rất đơn giản, ít khi gây nhầm lẫn. Chà, xem ra khả năng toán học của các bạn kém quá, thảo nào làm sai tới sai lui hoài.

[Sir.THÀNH™]

Coi script này chẳng hợp lý cho lắm.



Thế này mỗi người cứ trả lời sai là bị trừ danh vọng. Thế chẳng nhẽ cứ trừ tới âm luôn.

Chí ít thì cũng có 1 hàm kiểm tra điểm Danh Vọng chứ nhỉ

nếu số danh vọng ít hơn quy định thì bắt buộc nghỉ chơi.


ReZo viết hàm <15 Danh Vọng thì nghỉ chơi cái ^^~