Kết quả 1 đến 2 của 2
-
18-08-11, 03:51 PM #1
- Ngày tham gia
- Oct 2010
- Bài viết
- 191
- Thanks
- 32
- Thanked 23 Times in 14 Posts
chỉnh sửa giúp em cái script vượt ải này với
Vuotai.lua
Code:Include("\\script\\source\\sourcejx49.lua") Include("\\script\\global\\monter\\vuotai.lua") function main() gio = tonumber(date("%H")) phut = tonumber(date("%M")) if gio == 7 or gio == 9 or gio == 11 or gio == 13 or gio == 15 or gio == 21 then if phut >= 28 and phut < 32 then Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",2,"Tham gia vuot ai/thamgia","Thoat/no") else Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no") end else Say("<color=yellow>Vuot ai la hoat dong dien ra hang ngay vao luc 8h - 10h - 12h - 14h - 16h hang ngay, bao danh truoc 5 phut, thoi gian vuot ai la 30 phut",1,"Chua toi gio tham gia vuot ai/no") end end function KiemTraTang() if GetLevel() >=100 or IsCaptain() == 1 then return 25 end end function IDLevelMaps(Idmaps) if Idmaps == 25 then return 1 end end function thamgia() idtd = GetTeam() lvl = GetLevel() SubWorld = SubWorldID2Idx(25) if (GetGlbMissionV(100) ~= 0) or (GetGlbMissionV(101) ~= 0) then Say("<color=cyan>Vuot Ai Than Quan<color>: Hien tai dang co To Doi bao danh, vi vay ban phai doi 1 lat de Server khong LAG",1,"Thoat./Exit") return end if (idtd ~= nil) then if (GetTeamSize() >= 3) then if (IsCaptain() == 1) then idbt = PlayerIndex if GetLevel() >=100 then SetGlbMissionV(100,1) SetGlbMissionV(101,40) end for i = 1,GetPlayerCount() do PlayerIndex = i if (GetTeam() == idtd) then if (GetLevel() >= GetGlbMissionV(100)) and (GetLevel() <= GetGlbMissionV(101)) then ycvp = 1 end end end PlayerIndex = idbt ycvp = 0 if (ycvp == 0) then if GetItemCount(131) >= 1 then DelItem(131) ycvp = 0 idbt = PlayerIndex for i =1,GetPlayerCount() do PlayerIndex = i if (GetTeam() == idtd) then SetTask(19,0) SetTask(20,0) SetPunish(0) SetFightState(1) SetLogoutRV(1) SetTempRevPos(25,200*8*32,200*16*32); NewWorld(KiemTraTang(),1570, 3250) SetGlbMissionV(88,0) SetGlbMissionV(89,0) Msg2Player("Dang Tien Vao Vuot Ai Tang: "..IDLevelMaps(KiemTraTang())..".") end end else SetGlbMissionV(100,0) SetGlbMissionV(101,0) Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong du 1 <color=red>Lenh Bai Vuot Ai<color>,khong the dua to doi di") end else SetGlbMissionV(100,0) SetGlbMissionV(101,0) Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Trong to doi co thanh vien chenh lech ve cap do "..GetGlbMissionV(88).." ~ "..GetGlbMissionV(89)..", nen khong the di") end else SetGlbMissionV(100,0) SetGlbMissionV(101,0) Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi khong phai la <color=red>Truong Nhom<color>, khong the dua to doi di") end else SetGlbMissionV(100,0) SetGlbMissionV(101,0) Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: To doi phai co it nhat la 3 nguoi tro len thi moi co the vao duoc") end else SetGlbMissionV(100,0) SetGlbMissionV(101,0) Talk(1,"Exit","<color=cyan>Vuot Ai Than Quan<color>: Nguoi can phai lap <color=red>To Doi<color>, va yeu cau la phai co 3 thanh vien trong nhom") end end w,x,y = GetWorldPos() if GetGlbMissionV(87) == 1 then gio1 = gio + 1 Msg2Team(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !") elseif GetGlbMissionV(87) == 2 then for i =1,GetPlayerCount() do PlayerIndex = i if (GetTeam() == idtd) then if w == 25 then if GetGlbMissionV(88) == 24 then NewWorld(26,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 26 then if GetGlbMissionV(88) == 48 then NewWorld(27,1603,3207) SetFightState(0) else n = 48 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 27 then if GetGlbMissionV(88) == 72 then NewWorld(28,1603,3207) SetFightState(0) else n = 72 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 28 then if GetGlbMissionV(88) == 96 then NewWorld(29,1603,3207) SetFightState(0) else n = 96 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 29 then if GetGlbMissionV(88) == 24 then NewWorld(108,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 108 then if GetGlbMissionV(88) == 24 then NewWorld(109,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 109 then if GetGlbMissionV(88) == 24 then NewWorld(110,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 110 then if GetGlbMissionV(88) == 24 then NewWorld(111,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 111 then if GetGlbMissionV(88) == 24 then NewWorld(112,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 112 then if GetGlbMissionV(88) == 24 then NewWorld(100,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 100 then if GetGlbMissionV(88) == 24 then NewWorld(101,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 101 then if GetGlbMissionV(88) == 24 then NewWorld(102,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 102 then if GetGlbMissionV(88) == 24 then NewWorld(103,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 103 then if GetGlbMissionV(88) == 24 then NewWorld(104,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 104 then if GetGlbMissionV(88) == 24 then NewWorld(105,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 105 then if GetGlbMissionV(88) == 24 then NewWorld(106,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 106 then if GetGlbMissionV(88) == 24 then NewWorld(107,1603,3207) SetFightState(0) else n = 24 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end elseif w == 107 then if GetGlbMissionV(88) == 120 then Msg2Team(1,"nhanthuong","Nguoi da hoan thanh 18 ai roi, xin hay nhan phan thuong va roi khoi day") else n = 120 - GetGlbMissionV(88) Msg2Team(1,"","Nguoi con phai tieu diet "..n.." con quai nua") end else NewWorld(53,1603,3207) Msg2Team(1,"","Hien tai khong phai la thoi gian vuot ai") end end end end function nhanthuong() AddOwnExp(2000000) Earn(500000) AddRepute(20) AddEventItem(133) NewWorld(53,1603,3207) SetFightState(0) Msg2Player("Hoan thanh 18 ai !! Nhan duoc phan thuong : 1 Le Vat Vuot Ai") end[/QUOTE] monter1x.lua [QUOTE] Include("\\script\\global\\kinhnghiem\\exp.lua") Include("\\script\\global\\kinhnghiem\\droprate.lua") Include("\\script\\vuotai\\vuotai.lua") function OnDeath() gio = tonumber(date("%H")) phut = tonumber(date("%M")) if GetGlbMissionV(87) == 1 then gio1 = gio + 1 Talk(1,"","Vao luc "..gio1.." : 00 se bat dau vuot ai !") elseif GetGlbMissionV(87) == 2 then if GetGlbMissionV(88) < 24 then expmonter() droprate() SetGlbMissionV(88,GetGlbMissionV(88)+1) n = 30 - GetGlbMissionV(88) Msg2Team("Nguoi con phai tieu diet "..n.." con quai nua") else Msg2Team("Ban da tieu diet du so luong quai, hay tieu diet Boss de qua ai, Good Luck") end else Msg2Player("Hoat dong vuot ai da ket thuc roi !!") NewWorld(53,1603,3207) SetFightState(0) end end
Lần sửa cuối bởi thaihoa91, ngày 18-08-11 lúc 05:32 PM.
Khách viếng thăm hãy cùng shppero xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
18-08-11, 04:05 PM #2
Ðề: chỉnh sửa giúp em cái script vượt ải này với
bạn dùng hàm SetMissionV , giống SettAsk nhưng tương tác cho cả Server và GetMissionV để kiểm tra là ok
Comeback JXP
Các Chủ đề tương tự
-
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Cho hỏi Script lạ...!!
Bởi kemdenny trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 5Bài viết cuối: 10-10-10, 08:02 PM