Kết quả 1 đến 10 của 12
Chủ đề: Hỏi Về additem và ramdom
-
19-12-10, 01:22 PM #1
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Hỏi Về additem và ramdom
mình muốn làm 1 cái event anh bánh được 1 món VKHK nhưng mình đã viết được tất cả add item roài.... nhưng bây giờ mình chỉ muốn nhận được 1 món thì làm như thế nào
đây là hàm của mình
Code:function anccc2() i = random(1,10) nguhanh = romdom(0,4) if GetItemCount(banhchungcaocap2) >= 1 and GetCash() >= 100000 then DelEventItem(banhchungcaocap2) pay(100000) for i=1,10 do AddOwnExp(100000000) end AddItem( 0, 0, 0, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Vo Gian Y Thien Kiem +1 AddItem( 0, 0, 1, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Tu Khong Giang Ma Gioi Dao +1 AddItem( 0, 0, 2, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Phuc Ma Tu Kim Con +1 AddItem( 0, 0, 3, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Ke Nghiep Bon Loi Toan Long Thuong +1 AddItem( 0, 0, 4, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Ham Thien Kim Hoan Dai Nhan Than Chuy +1 AddItem( 0, 0, 5, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Bich Hai Uyen Uong Lien Hoan Dao +1 AddItem( 0, 0, 0, 121, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Lang Nhac Thai Cap Kiem +1 AddItem( 0, 0, 1, 121, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Ngu Long Luong Ngan Bao Dao +1 AddItem( 0, 0, 2, 121, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Dich Hy Luc Ngoc Truong +1 AddItem( 0, 0, 3, 121, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Ma Sat Quy Coc U Minh Thuong +1 AddItem( 0, 0, 1, 151, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Suong Tinh Thien Nien Han Thiet +1 AddItem( 0, 0, 5, 121, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Vo Yem Phong Suong Lien Hoan Dao +1 AddItem( 0, 0, 0, 181, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Cap Phong Chan Vo Kiem +1 AddItem( 0, 0, 1, 181, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Te Hoang Phuong Chi Bao Dao +1 AddItem( 0, 0, 2, 181, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Dong Cuu Phi Long Con +1 AddItem( 0, 0, 3, 181, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Ma Nghi Hiep Hoa Phan Thanh Thuong +1 AddItem( 0, 0, 5, 181, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] U Lung Thuc Cot Song Nhan +1 AddItem( 0, 0, 0, 241, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Loi Khung Cuu Thien Kiem +1 AddItem( 0, 0, 1, 241, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Minh Ao Ta Sat Doc Nhan +1 Msg2Player("Ban Nhan Duoc 500 Trieu Kinh Nghiem va 1 món VKHK [+1]") else Msg2Player("Xin Kiem Tra Lai Thung Do Xem Ban Co Dem Theo Banh Chung Cao Cap Hay Khong Hay Khong") end;
Ta đã trở lại và ngu hơn xưa!
-
Các thành viên gởi lời cảm ơn đến [M]r[K]id vì bài viết này !
hahahihihohi (01-01-11)
-
19-12-10, 01:33 PM #2
- Ngày tham gia
- Jul 2010
- Đang ở
- WwW.ClbGamesVn.Com ®
- Bài viết
- 1,355
- Thanks
- 19
- Thanked 416 Times in 135 Posts
Ðề: Hỏi Về additem và ramdom
Nhận theo phái. 100% nhận đc ( mình k být vít tỷ lệ % randum)
if GetFaction() == "Thieu Lam Phai" then
AddItem( 0, 0, 0, 61, nguhanh, 1, 10) --<color=yellow> [Hoang Kim] Vo Gian Y Thien Kiem +1
MsgEx("ban nhan duoc vu khi HK mon phaii: "..GetFaction())
elseif GetFaction() == "Thien Vuong Bang" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Duong Mon" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Ngu Doc Giao" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Nga My Phai" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("Hoc duoc vo cong 150 cua mon phai: "..GetFaction())
elseif GetFaction() == "Thuy Yen Mon" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Cai Bang" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Thien Nhan Giao" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Vo Dang Phai" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
elseif GetFaction() == "Con Lon Phai" then
Tương Tự Add Vũ Khí Hk vô
MsgEx("ban nhan duoc vu khi HK mon phai: "..GetFaction())
cap = random(1,10)
i = floor(random(100,1000)/100)
nguhanh = random(0,4)
if i == 1 then --vu khi
a = random(0,5)
AddItem(0,0,a,cap,nguhanh,0,random(5,8))
end
mà k nên viết Even cứ ăn là đc 100% như vậy.
Nhớ khai báo Include k lỗi ráng chịu
mà khai báo file nào chắc bít rùi chứ @@!Lần sửa cuối bởi batca2tay, ngày 19-12-10 lúc 01:51 PM.
Khách viếng thăm hãy cùng Tiến Đạt xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
19-12-10, 02:13 PM #3
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Ðề: Hỏi Về additem và ramdom
Code:cap = random(1,10) i = floor(random(100,1000)/100) nguhanh = random(0,4) if i == 1 then --vu khi a = random(0,5) AddItem(0,0,a,cap,nguhanh,0,random(5,8)) end
Ta đã trở lại và ngu hơn xưa!
-
Các thành viên gởi lời cảm ơn đến [M]r[K]id vì bài viết này !
hahahihihohi (01-01-11)
-
19-12-10, 02:16 PM #4
- Ngày tham gia
- Jul 2010
- Đang ở
- WwW.ClbGamesVn.Com ®
- Bài viết
- 1,355
- Thanks
- 19
- Thanked 416 Times in 135 Posts
Ðề: Hỏi Về additem và ramdom
Khách viếng thăm hãy cùng Tiến Đạt xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
19-12-10, 02:23 PM #5
- Ngày tham gia
- Dec 2010
- Bài viết
- 7
- Thanks
- 0
- Thanked 0 Times in 0 Posts
Ðề: Hỏi Về additem và ramdom
function main()
a = random(1,100)
if a == 1 then
AddItem(....)
elseif a == 2 then
AddEventItem(....)
end
end;
đây là cái random đơn giản và hiệu quả nhất xem và tự hiểu và từ đó viết thêm nhéLần sửa cuối bởi sieunhangao, ngày 19-12-10 lúc 02:26 PM.
Khách viếng thăm hãy cùng sieunhangao xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
19-12-10, 02:30 PM #6
- Ngày tham gia
- Jul 2010
- Đang ở
- WwW.ClbGamesVn.Com ®
- Bài viết
- 1,355
- Thanks
- 19
- Thanked 416 Times in 135 Posts
Ðề: Hỏi Về additem và ramdom
Khách viếng thăm hãy cùng Tiến Đạt xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
19-12-10, 02:32 PM #7
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Ðề: Hỏi Về additem và ramdom
tìm được cách roài: nhân đây share các bạn luk
sau khí oc95 xong đoạn nì:
Code:function main() checkVIPend() KillingSpamer() SetTask(TaskTieuCuc,0) a = random(1,24) if a == 1 then MsgEx("<color=green>Moi lan Trung Sinh deu ton mot luong tien, danh vong, phuc duyen nhat dinh.<color>\Tien Dat",1) elseif a == 2 then MsgEx("<color=fire>Ban co the dang ky tai khoan VIP tai tien trang.\nDen tien trang ngu dai thanh thi de biet them chi tiet.<color>\Tien Dat",1) elseif a == 3 then MsgEx("<color=water>Tang Kiem la mot he thong cay cap nhanh nhat hien nay sau su kien Quang Truong Mau.<color>\Tien Dat",1) elseif a == 4 then MsgEx("<color=red>Moi lan thoat game tot nhat ban hay tro ve cac thanh thi va thon lang de duoc an toan.\nNeu khong co the mat di nhan vat dang choi.<color>\Tien Dat",1) elseif a == 5 then MsgEx("<color=blue>Khi het mau co the den gap cac ong chu khach diem de phuc hoi mau.<color>\Tien Dat",1) elseif a == 6 then MsgEx("<color=yellow>Trong cac tiem tra co ban nhung loai duoc thao quy hiem.<color>\Tien Dat",1) elseif a == 7 then MsgEx("<color=pink>Khi muon cay cap an toan ban co the den gap cac ve binh hay quan sai de nhan duoc su ho tro tot nhat.<color>\Tien Dat",1) elseif a == 8 then MsgEx("<color=earth>Muon kiem them thu nhap ban co the gap cac chu Tieu Cuc hay Phien Dau de nhan di giao cac chuyen hang co the nhan duoc kinh nghiem va tien.<color>\Tien Dat",1) elseif a == 9 then MsgEx("<color=cyan>Phien Ban 1.5 toan bo cac shop deu ban do hop ly. Va ban co the mua do o Tran Tam Bao-Bien Kinh(Than Bi Thuong Nhan)<color>\nDNTmaster",1) elseif a == 10 then MsgEx("Khi nao ban cam thay buon chan hay lien he voi Admin de nhan duoc cac su ho tro tot nhat cho Server...\nCac su kien va chuc nang Server deu do chinh tay Tien Dat thuc hien.",1) elseif a == 11 then MsgEx("<color=metal>Ban co the ep Huyen Tinh o cac Tho Ren trong ngu dai thanh thi.",1) elseif a == 12 then MsgEx("<color=fire>Ban co the den gap cac Thay Boi trong thanh thi de co the xem hom nay ban nhan duoc vat pham gi.",1) elseif a == 13 then MsgEx("<color=wood>Muon nhan duoc nhan doi Kinh Nghiem ban co the den gap Duong Pho Lao Ban o ngu dai thanh thi.",1) elseif a == 14 then MsgEx("<color=water>Muon hoc duoc nhieu cong phu noi tieng den gap cac an may cho tien ho.\nNeu may man nguoi se nhan duoc loi chi dan cua ho.",1) elseif a == 15 then MsgEx("<color=earth>Ai co mau do den thi co the den gap cac ong Chu Song Bac de danh ban tha ho.Bao dam khong an gian dau.",1) elseif a == 16 then MsgEx("<color=yellow>Muon duoc nhieu diem danh vong ban co the den gap cac dich quan.",1) elseif a == 17 then MsgEx("<color=red>Neu muon bao ve cac mon do cua ban hay de gap tham cuu o Ba Lang Huyen de cai dat ma ruong.",1) elseif a == 18 then MsgEx("<color=green>Dang cap toi da co the dat duoc o phien ban nay la 350",1) elseif a == 19 then MsgEx("<color=blue>Khi nao cam thay minh nang diem sai roi co the den gap Xa Phu den dao Tay Tuy.Nho khong o lau tren dao duoc nha.",1) elseif a == 20 then MsgEx("<color=pink>Khi dang thuc hien nhiem vu Thuong Hoi cua Tieu Cuc thi chi co the di chuyen bang thuyen.Nhung hay can than bon dao tac.",1) elseif a == 21 then MsgEx("<color=metal>De tro thanh mot dao tac di cuop do cua lai buon ban can den gap Pho Nam Bang o Bien Kinh.",1) elseif a == 22 then MsgEx("Neu muon lap Bang thi den Hoa Son.Nho dem theo mot thanh Nhac Vuong Kiem nha.De tao thanh nhac vuong kiem thi den gap Tho Ren dem theo du 12 vien Nhac Vuong Hon Thach.",1) elseif a == 23 then MsgEx("Ky Nang 90 co the hoc tai cac su phu trong lang hoac hoc bang Bi Kip.\nRieng ky nang 120 chi co the hoc bang Bi Kip",1) elseif a == 24 then MsgEx("Trong Ngu Dai Thanh Thi tat ca cac Npc deu da duoc viet hoa cung voi cac Npc trong tam dai thon lang.",1) elseif a == 25 then MsgEx("Phien Ban: Vo Lam Truyen Ky Song Gio Tinh Yeu by Tien Dat",1) elseif a == 26 then MsgEx("Moi chi tiet xin lien he Yahoo: [email protected] de duoc giai quyet",1) end end;
là thế này
chúng ta sẽ cho số a ra random từ 1->24 bằng lệnh sau
a = random(1,24)
rùi sau đó níu a = 1 thì nó sẽ thông báo câu lệnh gì đó và tương tự a = 2 , a = 3, a = n (n là số từ 1->24) nó sẽ thông báo những câu khác nhau
còn về tỉ lệ thì ...... đang tìm thêmTa đã trở lại và ngu hơn xưa!
-
Các thành viên gởi lời cảm ơn đến [M]r[K]id vì bài viết này !
hahahihihohi (01-01-11)
-
19-12-10, 02:35 PM #8
- Ngày tham gia
- Jul 2010
- Đang ở
- WwW.ClbGamesVn.Com ®
- Bài viết
- 1,355
- Thanks
- 19
- Thanked 416 Times in 135 Posts
Ðề: Hỏi Về additem và ramdom
Khách viếng thăm hãy cùng Tiến Đạt xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
19-12-10, 02:52 PM #9
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Ðề: Hỏi Về additem và ramdom
đã tìm ra tỉ lệ: đã tét ko bug
Code:function anccc1() if GetItemCount(banhchungcaocap1) >= 1 and GetCash() >= 1000000 then DelEventItem(banhchungcaocap1) pay(1000000) for i=1,10 do AddOwnExp(50000000) end if b == 1 then if a == 1 then AddItem( 0, 0, 0, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Vo Gian Y Thien Kiem +1 end if a == 2 then AddItem( 0, 0, 1, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Tu Khong Giang Ma Gioi Dao +1 end if a == 3 then AddItem( 0, 0, 2, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Phuc Ma Tu Kim Con +1 end if a == 4 then AddItem( 0, 0, 3, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Ke Nghiep Bon Loi Toan Long Thuong +1 end if a == 5 then AddItem( 0, 0, 4, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Ham Thien Kim Hoan Dai Nhan Than Chuy +1 end if a == 6 then AddItem( 0, 0, 5, 61, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Bich Hai Uyen Uong Lien Hoan Dao +1 end if a == 7 then AddItem( 0, 0, 0, 121, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Lang Nhac Thai Cap Kiem +1 end if a == 8 then AddItem( 0, 0, 1, 121, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Ngu Long Luong Ngan Bao Dao +1 end if a == 9 then AddItem( 0, 0, 2, 121, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Dich Hy Luc Ngoc Truong +1 end if a == 10 then AddItem( 0, 0, 3, 121, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Ma Sat Quy Coc U Minh Thuong +1 end if a == 11 then AddItem( 0, 0, 1, 151, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Suong Tinh Thien Nien Han Thiet +1 end if a == 12 then AddItem( 0, 0, 5, 121, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Vo Yem Phong Suong Lien Hoan Dao +1 end if a == 13 then AddItem( 0, 0, 0, 181, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Cap Phong Chan Vo Kiem +1 end if a == 14 then AddItem( 0, 0, 1, 181, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Te Hoang Phuong Chi Bao Dao +1 end if a == 15 then AddItem( 0, 0, 2, 181, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Dong Cuu Phi Long Con +1 end if a == 16 then AddItem( 0, 0, 3, 181, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Ma Nghi Hiep Hoa Phan Thanh Thuong +1 end if a == 17 then AddItem( 0, 0, 5, 181, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] U Lung Thuc Cot Song Nhan +1 end if a == 18 then AddItem( 0, 0, 0, 241, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Loi Khung Cuu Thien Kiem +1 end if a == 19 then AddItem( 0, 0, 1, 241, nguhanh, mayman, 10) --<color=yellow> [Hoang Kim] Minh Ao Ta Sat Doc Nhan +1 end if a == 20 then AddItem( 0, 1, 2, 31, nguhanh, mayman, 10) --<color=yellow>Thien Quang Chi Hoa Vu Man Thien + 1 end if a == 21 then AddItem( 0, 1, 1, 31, nguhanh, mayman, 10) --<color=yellow>Bang Han Chi Dan Chi Phi Dao + 1 end if a == 22 then AddItem( 0, 1, 0, 31, nguhanh, mayman, 10) --<color=yellow>Sam Hoang Chi Phi Tinh Doat Hon + 1 end if b == 2 then AddEventItem(idbikip90) end if b == 3 then AddEventItem(idbikip90) end if b == 4 then AddEventItem(idbikip90) end if b == 5 then AddEventItem(idbikip90) end Msg2Player("Ban Nhan Duoc 500 Trieu Kinh Nghiem va 1 món VKHK [+1]") else Msg2Player("Xin Kiem Tra Lai Thung Do Xem Ban Co Dem Theo Banh Chung Cao Cap [+1] va 100v Hay Khong") end end end;
cho số a là random từ 1->22
số b là random 1->5
số a đã giải thích ở trên
số b h giải thích:
níu số b = 1 thì nó sẽ ra số a = 1->22
níu số b = 2->5 nó sẽ ra cái khác
như vậy tỉ lệ ra đồ hoàng kim là 1/5
còn tỉ lệ ra đồ khác là 4/5 ( ở đây của mình là pí kíp )
nhớ thiết lập nhưng thứ sau:
Include("\\Script\\global\\sourcejx49.lua");
a = random(1,23)
b = random(1,5)Lần sửa cuối bởi mrkidkute001, ngày 19-12-10 lúc 03:17 PM. Lý do: share nhầm bản :H
Ta đã trở lại và ngu hơn xưa!
-
Các thành viên gởi lời cảm ơn đến [M]r[K]id vì bài viết này !
hahahihihohi (01-01-11)
-
19-12-10, 02:53 PM #10
- Ngày tham gia
- Aug 2010
- Đang ở
- Đà Lạt City
- Bài viết
- 934
- Thanks
- 73
- Thanked 97 Times in 85 Posts
Ðề: Hỏi Về additem và ramdom
Ta đã trở lại và ngu hơn xưa!
-
Các thành viên gởi lời cảm ơn đến [M]r[K]id vì bài viết này !
hahahihihohi (01-01-11)
Các Chủ đề tương tự
-
Mod Giúp em hàm ADDitem
Bởi 4s.lovely trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 2Bài viết cuối: 04-12-10, 01:24 PM -
Cần giúp sửa lỗi additem
Bởi Suolrock trong diễn đàn Gunz OnlineTrả lời: 0Bài viết cuối: 11-05-09, 01:59 PM