My.Ami.Pro
07-01-09, 02:41 PM
Cái này tui lấy bên
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b> của anh CuBin nà!
Khỏi nói nhiều.share cho mọi người nè:
Include("\\Script\\global\\serverlib.lua");
str_task=""
StrStatus=""
CheckFinish = 0
main_task_type=0
main_task_target=0
main_task_start=0
main_startlevel=0
main_levelexp=0
reward_exp = 0
reward_money = 0
reward_item = 0
str_item = ""
type_item = 0
function main(sel)
SayEx({"Da Tau : Chao dai hiep, co muon lam nhien vu giup ta khong ta se hau ta cho that xung dang", "Vang tui sang sang giup ong./dt_nv","Nhan ngua Phi Van [leve100]/Phivan", "Thoi ta khong lam gi ca./OnCancel"});
end;
function dt_nv()
if (GetTask(250)==0) then
SayEx({"Da Tau :Nguoi dung la mot nguoi tot", "Duong nhien /nv_new", "Toi khong dam nhan/OnCancel"});
else
if (str_task == "") then
local Working, Task_Num, Task_Type, Task_Start, Task_Target, StartLevel, LevelExp , CurStatus, nNeedNum = GetDTTask()
str_task = "Day la nhiem vu thu <color=red>"..Task_Num.."<color>. Nguoi hay di nang diem <color=red>"..Task_String[Task_Type].."<color> len <color=yellow>"..Task_Target.."<color> diem.";
end
DTTask(1,0)
SayEx({str_task, "Toi da hoan thanh nhiem vu./nv_finish", "Toi muon huy bo nhiem vu nay./nv_clear", "De ta lam xong roi den tim ong./OnCancel"});
end
end;
function nv_new()
DTTask(1,0)
SetDTTask(main_task_type,main_task_start,main_task _target,main_startlevel,main_levelexp)
dt_nv()
end;
function nv_finish()
local Working, Task_Num, Task_Type, Task_Start, Task_Target, StartLevel, LevelExp , CurStatus, nNeedNum = GetDTTask()
if (CheckFinish == 1) then
FinishDTTask()
if (random(1,10)==1) then
str_item = "mon vu khi"
type_item = 1
elseif (random(1,50)==25) then
str_item = "mon do Hoang Kim"
type_item = 2
elseif (random(1,5)==2) then
str_item = "mon bao vat"
type_item = 2
else
str_item = "mon trang bi"
type_item = 3
end
if (Task_Type==1) then --Kinh Nghiem
reward_exp = floor(Task_Target+Task_Target*(Task_Num+StartLevel )/10)
reward_money = floor((Task_Target*(Task_Num+StartLevel))/100)
reward_item = 0
elseif (Task_Type==2) then --Danh Vong
reward_exp = floor(Task_Target*(Task_Num+StartLevel))*10
reward_money = floor(Task_Target*(Task_Num+StartLevel))*100
reward_item = 0
elseif (Task_Type==3) then --PK
reward_exp = floor(Task_Target*(Task_Num+StartLevel))*10000
reward_money = floor(Task_Target*(Task_Num+StartLevel))*1000
reward_item = 0
elseif (Task_Type==4) then --Tong Kim
reward_exp = floor(Task_Target+Task_Target*(Task_Num+StartLevel )/10)*100
reward_money = floor((Task_Target*(Task_Num+StartLevel))/100)*100
reward_item = 0
end
reward()
else
Talk(1,"",StrStatus)
end
end;
function nv_clear_confirm()
ClearDTTask()
dt_nv()
end;
function nv_clear()
SayEx({"Da Tau: Nguoi co chac la muon huy bo nhiem vu lan nay chu.", "Dung vay, toi muon huy bo/nv_clear_confirm", "Tu tu de toi suy nghi lai./OnCancel"});
end;
function reward()
SayEx({"Da tau: Nguoi that vat va, hay chon lay mot phan thuong cua ta.", "Nhan duoc "..reward_exp.." diem kinh nghiem./r_exp", "Nhan duoc "..reward_money.." luong./r_money", "Nhan duoc mot "..str_item.."./r_item","Nhan Vat Pham Ngau Nhien/nd"});
end;
function r_exp()
AddOwnExp(reward_exp)
dt_nv()
end;
function r_money()
Earn(reward_money)
dt_nv()
end;
function r_item()
GenRewardItem()
dt_nv()
end;
function nd()
j = random(0, 11) --¾ßÌåÀà±ð
k = random(2, 33) --µÈ¼¶£¬¿ØÖÆËæ»úÉú³ÉµÀ¾ßÎïÆ ·µÄ¼Û¸ñ·¶Î§Îª500ÖÁ5000
m = random(0, 4) --ϵ±ð
if (j == 0) then --closeweapon
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 0, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 1) then --rangeweapon
n = random(0, 2) --ÏêϸÀà±ð
AddItem(0, 1, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 2) then --armor
n = random(0, 34) --ÏêϸÀà±ð
AddItem(0, 2, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 3) then --ring
n = random(0, 6)
AddItem(0, 3, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 4) then --amulet
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 4, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 5) then --boots
n = random(0, 9) --ÏêϸÀà±ð
AddItem(0, 5, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 6) then --belt
n = random(0, 7) --ÏêϸÀà±ð
AddItem(0, 6, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 7) then --helm
n = random(0, 18) --ÏêϸÀà±ð
AddItem(0, 7, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 8) then --cuff
n = random(0, 7) --ÏêϸÀà±ð
AddItem(0, 8, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 9) then --pendant
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 9, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 10) then --horse
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 10, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 11) then --hk
a = random(0, 8)
if (a == 0) then
b = random(0, 5)
c = random(89, 197)
AddItem(0, 0, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 1) then
c = random(11, 123)
AddItem(0, 2, 28, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 2) then
b = random(1, 5)
c = random(1, 10)
AddItem(0, 3, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 3) then
b = random(2, 10)
c = random(1, 10)
AddItem(0, 4, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 4) then
b = random(4, 9)
c = random(1, 10)
AddItem(0, 5, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 5) then
b = random(2, 7)
c = random(1, 10)
AddItem(0, 6, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 6) then
b = random(14, 17)
c = random(1, 10)
AddItem(0, 7, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 7) then
b = random(3, 6)
c = random(1, 10)
AddItem(0, 8, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 8) then
b = random(2, 6)
c = random(1, 10)
AddItem(0, 9, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
end
dt_nv()
end;
function OnCancel()
end;Thấy hay hay thì thanks phát coi mồ!!!!( nao):ops::ops:
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b> của anh CuBin nà!
Khỏi nói nhiều.share cho mọi người nè:
Include("\\Script\\global\\serverlib.lua");
str_task=""
StrStatus=""
CheckFinish = 0
main_task_type=0
main_task_target=0
main_task_start=0
main_startlevel=0
main_levelexp=0
reward_exp = 0
reward_money = 0
reward_item = 0
str_item = ""
type_item = 0
function main(sel)
SayEx({"Da Tau : Chao dai hiep, co muon lam nhien vu giup ta khong ta se hau ta cho that xung dang", "Vang tui sang sang giup ong./dt_nv","Nhan ngua Phi Van [leve100]/Phivan", "Thoi ta khong lam gi ca./OnCancel"});
end;
function dt_nv()
if (GetTask(250)==0) then
SayEx({"Da Tau :Nguoi dung la mot nguoi tot", "Duong nhien /nv_new", "Toi khong dam nhan/OnCancel"});
else
if (str_task == "") then
local Working, Task_Num, Task_Type, Task_Start, Task_Target, StartLevel, LevelExp , CurStatus, nNeedNum = GetDTTask()
str_task = "Day la nhiem vu thu <color=red>"..Task_Num.."<color>. Nguoi hay di nang diem <color=red>"..Task_String[Task_Type].."<color> len <color=yellow>"..Task_Target.."<color> diem.";
end
DTTask(1,0)
SayEx({str_task, "Toi da hoan thanh nhiem vu./nv_finish", "Toi muon huy bo nhiem vu nay./nv_clear", "De ta lam xong roi den tim ong./OnCancel"});
end
end;
function nv_new()
DTTask(1,0)
SetDTTask(main_task_type,main_task_start,main_task _target,main_startlevel,main_levelexp)
dt_nv()
end;
function nv_finish()
local Working, Task_Num, Task_Type, Task_Start, Task_Target, StartLevel, LevelExp , CurStatus, nNeedNum = GetDTTask()
if (CheckFinish == 1) then
FinishDTTask()
if (random(1,10)==1) then
str_item = "mon vu khi"
type_item = 1
elseif (random(1,50)==25) then
str_item = "mon do Hoang Kim"
type_item = 2
elseif (random(1,5)==2) then
str_item = "mon bao vat"
type_item = 2
else
str_item = "mon trang bi"
type_item = 3
end
if (Task_Type==1) then --Kinh Nghiem
reward_exp = floor(Task_Target+Task_Target*(Task_Num+StartLevel )/10)
reward_money = floor((Task_Target*(Task_Num+StartLevel))/100)
reward_item = 0
elseif (Task_Type==2) then --Danh Vong
reward_exp = floor(Task_Target*(Task_Num+StartLevel))*10
reward_money = floor(Task_Target*(Task_Num+StartLevel))*100
reward_item = 0
elseif (Task_Type==3) then --PK
reward_exp = floor(Task_Target*(Task_Num+StartLevel))*10000
reward_money = floor(Task_Target*(Task_Num+StartLevel))*1000
reward_item = 0
elseif (Task_Type==4) then --Tong Kim
reward_exp = floor(Task_Target+Task_Target*(Task_Num+StartLevel )/10)*100
reward_money = floor((Task_Target*(Task_Num+StartLevel))/100)*100
reward_item = 0
end
reward()
else
Talk(1,"",StrStatus)
end
end;
function nv_clear_confirm()
ClearDTTask()
dt_nv()
end;
function nv_clear()
SayEx({"Da Tau: Nguoi co chac la muon huy bo nhiem vu lan nay chu.", "Dung vay, toi muon huy bo/nv_clear_confirm", "Tu tu de toi suy nghi lai./OnCancel"});
end;
function reward()
SayEx({"Da tau: Nguoi that vat va, hay chon lay mot phan thuong cua ta.", "Nhan duoc "..reward_exp.." diem kinh nghiem./r_exp", "Nhan duoc "..reward_money.." luong./r_money", "Nhan duoc mot "..str_item.."./r_item","Nhan Vat Pham Ngau Nhien/nd"});
end;
function r_exp()
AddOwnExp(reward_exp)
dt_nv()
end;
function r_money()
Earn(reward_money)
dt_nv()
end;
function r_item()
GenRewardItem()
dt_nv()
end;
function nd()
j = random(0, 11) --¾ßÌåÀà±ð
k = random(2, 33) --µÈ¼¶£¬¿ØÖÆËæ»úÉú³ÉµÀ¾ßÎïÆ ·µÄ¼Û¸ñ·¶Î§Îª500ÖÁ5000
m = random(0, 4) --ϵ±ð
if (j == 0) then --closeweapon
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 0, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 1) then --rangeweapon
n = random(0, 2) --ÏêϸÀà±ð
AddItem(0, 1, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 2) then --armor
n = random(0, 34) --ÏêϸÀà±ð
AddItem(0, 2, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 3) then --ring
n = random(0, 6)
AddItem(0, 3, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 4) then --amulet
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 4, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 5) then --boots
n = random(0, 9) --ÏêϸÀà±ð
AddItem(0, 5, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 6) then --belt
n = random(0, 7) --ÏêϸÀà±ð
AddItem(0, 6, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 7) then --helm
n = random(0, 18) --ÏêϸÀà±ð
AddItem(0, 7, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 8) then --cuff
n = random(0, 7) --ÏêϸÀà±ð
AddItem(0, 8, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 9) then --pendant
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 9, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 10) then --horse
n = random(0, 5) --ÏêϸÀà±ð
AddItem(0, 10, n, k, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (j == 11) then --hk
a = random(0, 8)
if (a == 0) then
b = random(0, 5)
c = random(89, 197)
AddItem(0, 0, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 1) then
c = random(11, 123)
AddItem(0, 2, 28, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 2) then
b = random(1, 5)
c = random(1, 10)
AddItem(0, 3, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 3) then
b = random(2, 10)
c = random(1, 10)
AddItem(0, 4, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 4) then
b = random(4, 9)
c = random(1, 10)
AddItem(0, 5, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 5) then
b = random(2, 7)
c = random(1, 10)
AddItem(0, 6, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 6) then
b = random(14, 17)
c = random(1, 10)
AddItem(0, 7, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 7) then
b = random(3, 6)
c = random(1, 10)
AddItem(0, 8, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
if (a == 8) then
b = random(2, 6)
c = random(1, 10)
AddItem(0, 9, b, c, m, 1)
Msg2Player("Hay mo thung do ra xem do la vat gi")
Msg2Player("Chuc nguoi may man !")
end
end
dt_nv()
end;
function OnCancel()
end;Thấy hay hay thì thanks phát coi mồ!!!!( nao):ops::ops: