Witam przychodze do was z problemem i? mam gamemode play your stories i jest tam taki skrypt jak KupnoKontaPremium i wlasnie tam jest komenda /dajvipa i w tym problem ta komenta nie dzia?a
Je?eli jest to poprawy kod kt?ry masz na serwerze to nie wiem czy widzisz, ale klamra zaczynaj?ca si? od linii 4 ko?cz?ca na 140 zamyka ca?y skrypt. S? to klamry (gdyby? nie wiedzia?) --[[ "TW?J KOD" --]]
api="c79ecf069d3e4b1d58a6d6c5e"
function getPremiumDate(plr)
local queryA=exports['ogrpg-db']:dbGet("SELECT * FROM ogrpg_users WHERE id=? AND premiumdate>NOW() LIMIT 1", getElementData(plr,"player:uid"))
if (queryA and #queryA > 0) then
return queryA[1].premiumdate
end
return false
end
function setPremiumDay(plr,days)
if getPremiumDate(plr) then
local queryA=exports['ogrpg-db']:dbSet(string.format("UPDATE ogrpg_users SET premiumdate = DATE(premiumdate) + INTERVAL %d DAY WHERE id=%d",days,getElementData(plr,"player:uid")))
return end
local queryA=exports['ogrpg-db']:dbSet(string.format("UPDATE ogrpg_users SET premiumdate = DATE(curdate()) + INTERVAL %d DAY WHERE id=%d",days,getElementData(plr,"player:uid")))
end
addEvent("premiumActive", true)
addEventHandler("premiumActive", root, function(code,amount,number)
if not code then return end
outputDebugString(code..":"..amount)
local x=exports['ogrpg-db']:dbGet("SELECT * from ogrpg_premium_code where code=?",code)
if x and #x > 0 then
if x[1].active < 1 then outputChatBox("*B??dny -Kod",client) return end
local xamount = tonumber(x[1].amount)
if xamount == tonumber(amount) then
exports['ogrpg-db']:dbSet("UPDATE ogrpg_premium_code set active=0,active_date=NOW(),active_uid=? where code=?",getElementData(client,"player:uid"),code)
if tonumber(amount) == 1508 then amount = 15 else amount = 30 end
setPremiumDay(client,amount)
triggerEvent("save:player",root,client)
triggerEvent("load:player",root,client)
setElementData(client,"player:premium",true)
outputChatBox("Kupiono konto premium na "..amount.." dni! Weso?ego dnia !", client)
else
outputChatBox("B??dny ekod",client) return
end
return end
local query=string.format("http://microsms.pl/api/check.php?userid=1088&number=%s&code=%s&serviceid=%s", number,code,amount)
fetchRemote( query, result,"",false, client,amount,number)
end)
function result(responseData, errno, playerToReceive,amount)
if errno == 0 then
local x = split(responseData,",")
if not x then return end
if string.find(x[1],"1") then
if tonumber(amount) == 1508 then amount = 15 else amount = 30 end
setPremiumDay(playerToReceive,amount)
outputChatBox("Kupiono konto premium na "..amount.." dni! Weso?ego dnia !", playerToReceive)
--` setElementData(playerToReceive,"player:premium", true)
triggerEvent("save:player",root,playerToReceive)
triggerEvent("load:player",root,playerToReceive)
else
outputChatBox("B??dny Kod ("..responseData..")", playerToReceive)
--outputChatBox("*B??dny Kod", client)
end
end
end
addCommandHandler("dajvipa",function(plr,cmd,cel,dni)
if exports['dutyadmin']:getAdmin(plr,3) or exports['dutyadmin']:getAdmin(plr,4) then
if not cel then outputChatBox("/dajvipa [gracz] [dni]",plr) return end
if not dni then outputChatBox("/dajvipa [gracz] [dni]",plr) return end
if not tonumber(dni) then outputChatBox("/dajvipa [gracz] [dni]",plr) return end
local target=exports["ogrpg-core"]:findPlayer(plr,cel)
if not target then
outputChatBox("* Nie znaleziono podanego gracza.", plr, 255, 0, 0)
return
end
setPremiumDay(target,dni)
outputChatBox("Nadano konto premium na "..dni.." dni dla "..getPlayerName(target):gsub("#%x%x%x%x%x%x",""), plr)
outputChatBox("Otrzymales konto premium na "..dni.." dni od "..getPlayerName(plr):gsub("#%x%x%x%x%x%x",""), target)
triggerEvent("save:player",root,target)
triggerEvent("load:player",root,target)
setElementData(target,"player:premium",true)
end
end)
addCommandHandler("losvip",function(plr)
if exports['dutyadmin']:getAdmin(plr,4) then
local los = getRandomPlayer()
if not los then return end
setPremiumDay(los,15)
outputChatBox("Losowanie konta premium na 1 dzie?..", root)
outputChatBox("Losowe konto PREMIUM otrzymuje gracz o nicku "..getPlayerName(los):gsub("#%x%x%x%x%x%x","").." na 15 dzie?", root)
outputChatBox("Otrzymales konto premium na 1 dzie?.", los)
triggerEvent("save:player",root,los)
triggerEvent("load:player",root,los)
setElementData(los,"player:premium",true)
end
end)
addCommandHandler("losvip2",function(plr)
if exports['dutyadmin']:getAdmin(plr,4) then
local los2 = getRandomPlayer()
if not los2 then return end
setPremiumDay(los2,30)
outputChatBox("Losowanie konta premium na 30 dni..", root)
outputChatBox("Losowe konto PREMIUM otrzymuje gracz o nicku "..getPlayerName(los2):gsub("#%x%x%x%x%x%x","").." na 30 dni!", root)
outputChatBox("Otrzymales konto premium na 30 dni.", los2)
triggerEvent("save:player",root,los2)
triggerEvent("load:player",root,los2)
setElementData(los2,"player:premium",true)
end
end)
function RGBToHex(red, green, blue, alpha)
if ( (red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255) ) ) then
return nil
end
if ( alpha ) then
return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha)
else
return string.format("#%.2X%.2X%.2X", red,green,blue)
end
end
addCommandHandler("losvip3",function(plr)
if exports['dutyadmin']:getAdmin(plr,4) then
for k,v in ipairs(getElementsByType ( "player" )) do
if not getElementData(v, "player:uid") then return end
iledni=3
setPremiumDay(v,iledni)
triggerEvent("save:player",root,v)
triggerEvent("load:player",root,v)
setElementData(v,"player:premium",true)
gracze=v
end
end
--outputChatBox("Z powodu dobrego humoru Butlipana, ca?y serwer otrzyma? premium na "..iledni.." dni!", gracze, 255, 255, 255)
end)
addCommandHandler("losvip3",function(plr)
if exports['dutyadmin']:getAdmin(plr,4) then
outputChatBox("Z powodu dobrego humoru Butlipana, ca?y serwer otrzyma? premium na "..iledni.." dzie?!", root, 0, 192, 255)
end
end)
Witam mam problem z premk? ot?? to ze ona znika po reconnect a w db3 wyskakuje mi takie cos wgralem modu? linux co jakis gostek mi kaza? zrestartowa?em serwer i dalej to nie dziala pls o pomoc + zpj jak sie zabierze to mozna wsiasc do pojazdu prosze o jak najszybsza pomoc
Nie możesz pisać nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz głosować w ankietach