*Problemă:cu o tolba pot sa dau al infinit la ruleta
Tipologie server: server metin2global
*Resursă folosită: GLOBAL
*ServerFiles utilizat: GLOBAL
*Syserr:
Poză:
*Detalii suplimentare:
---TOMBOLA Metin2Roa----
---INCEPUT----
quest tombola begin
state start begin
function tablica(vnum, pozycja, pozycja2)
local itemy = {
{
{41348, 1},
{51007, 6},
{45184, 1},
{51008, 6},
{41349, 1},
{51013, 1},
{45183, 1},
{30179, 9},
{41350, 1},
{30093, 2},
{45185, 1},
{30324, 9},
{41351, 1},
{51012, 1},
{45182, 1},
{51006, 6},
{41348, 1},
},
{
{41348, 1},
{51007, 6},
{45184, 1},
{51008, 6},
{41349, 1},
{51013, 1},
{45183, 1},
{30179, 9},
{41350, 1},
{30093, 2},
{45185, 1},
{30324, 9},
{41351, 1},
{51012, 1},
{45182, 1},
{51006, 6},
{41348, 1},
}
}
return itemy[vnum][pozycja][pozycja2]
end
when login begin
cmdchat("tombola "..q.getcurrentquestindex())
end
when 9005.chat."Deschide Ruleta" with pc.count_item(30093)>0 begin
local losowo = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2)
else
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2).."|"
end
end
pc.remove_item(30093)
cmdchat("OnPrepare"..str)
cmdchat("openTombola")
setskin(NOWINDOW)
end
when info or button begin
local losowo = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2)
else
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2).."|"
end
end
cmdchat("get_input_start")
local czynnosc = input(cmdchat("get_input_value"))
cmdchat("get_input_end")
if czynnosc == "tombola|begin" then
pc.setqf("slot", number(1, 16))
cmdchat("OnRun "..number(2,3)*16+pc.getqf("slot").."|5")
elseif czynnosc == "tombola|end" then
syschat("Felicitări! Ai primit "..tombola.tablica(losowo, pc.getqf("slot")+1, 2).."x "..item_name(tombola.tablica(losowo, pc.getqf("slot")+1, 1)).." ca o recompensă în Ruleta!")
pc.give_item2(tombola.tablica(losowo, pc.getqf("slot")+1, 1), tombola.tablica(losowo, pc.getqf("slot")+1, 2))
end
end
end
end
Cu o tolba pot da la infinit la ruleta.Rezolvare va rog.
Bug ruleta server global
---TOMBOLA Metin2Roa----
---INCEPUT----
quest tombola begin
state start begin
function tablica(vnum, pozycja, pozycja2)
local itemy = {
{
{41348, 1},
{51007, 6},
{45184, 1},
{51008, 6},
{41349, 1},
{51013, 1},
{45183, 1},
{30179, 9},
{41350, 1},
{30093, 2},
{45185, 1},
{30324, 9},
{41351, 1},
{51012, 1},
{45182, 1},
{51006, 6},
{41348, 1},
},
{
{41348, 1},
{51007, 6},
{45184, 1},
{51008, 6},
{41349, 1},
{51013, 1},
{45183, 1},
{30179, 9},
{41350, 1},
{30093, 2},
{45185, 1},
{30324, 9},
{41351, 1},
{51012, 1},
{45182, 1},
{51006, 6},
{41348, 1},
}
}
return itemy[vnum][pozycja][pozycja2]
end
when login begin
cmdchat("tombola "..q.getcurrentquestindex())
end
when 9005.chat."Deschide Ruleta" begin
local losowo = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2)
else
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2).."|"
end
end
cmdchat("OnPrepare"..str)
cmdchat("openTombola")
setskin(NOWINDOW)
end
when info or button with pc.count_item(30093)>0 begin
local losowo = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2)
else
str = str..tombola.tablica(losowo, i, 1).."|"..tombola.tablica(losowo, i, 2).."|"
end
end
cmdchat("get_input_start")
local czynnosc = input(cmdchat("get_input_value"))
cmdchat("get_input_end")
if czynnosc == "tombola|begin" then
pc.setqf("slot", number(1, 16))
cmdchat("OnRun "..number(2,3)*16+pc.getqf("slot").."|5")
elseif czynnosc == "tombola|end" then
pc.remove_item(30093)
syschat("Felicitări! Ai primit "..tombola.tablica(losowo, pc.getqf("slot")+1, 2).."x "..item_name(tombola.tablica(losowo, pc.getqf("slot")+1, 1)).." ca o recompensă în Ruleta!")
pc.give_item2(tombola.tablica(losowo, pc.getqf("slot")+1, 1), tombola.tablica(losowo, pc.getqf("slot")+1, 2))
end
end
end
end- BeauDeCiuda
-

- Mesaje: 1915
- Membru din: 24 Mar 2014, 16:25
- Server: http://infomanii.ro
- Regat: Chunjo
- Aprecieri: 169
- Mulţumiri: 225
- Contact:
pune si tu syserr sa vedem unde e problemamamacarna scrie:Alceva? Nu știe nimeni?
[ Postat de pe Android ]
Răspunsuri
1 Vizualizări
425
1 Vizualizări
425
-
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 45 vizitatori







de
de