Zaloguj się by uzyskać pełen dostęp. Nie masz jeszcze konta? Założ je już teraz w kilka sekund.

Wysłany: 2017-05-08, 00:16


wicher4900

Były Programista






Wiek: 25
Na forum: 3610 dni
Posty: 21
Nick w MP: Naveex

Piwa: 1732

Respekt: 50,5

Witam, prosz? podpi?cie tego skryptu pod baz? danych

Kod:


typy={
[837]=-.5,
[835]=1,
[847]=1,
[684]=-.6,
}
typy2={837,835,847,684}

function zniszczDrzewo(drzewo)
if isElement(drzewo) then
destroyElement(drzewo)
givePlayerMoney(client,500)
outputChatBox("Drzewo ?ci?te! Otrzymujesz 500PLN",client,0,255,0)
end
end
addEvent("PSP:Zniszczdrzewo",true)
addEventHandler("PSP:Zniszczdrzewo",resourceRoot,zniszczDrzewo)

function dodajNoweMiejsce(plr,cmd,ilosc)
local accName=getAccountName(getPlayerAccount(plr))
if isObjectInACLGroup("user."..accName,aclGetGroup("Admin")) then
if ilosc then
ilosc=tonumber(ilosc)
if ilosc then
if math.floor(ilosc)==ilosc then
if ilosc>0 then
if ilosc<=100 then
x,y,z=getElementPosition(plr)
exports["ogrpg-db"]:dbSet("insert into PSP_drzewa values(null,?,?,?,?)",x,y,z,ilosc)
outputChatBox("Nowe miejsce na drzewo dla PSP dodano pomy?lnie!",plr,0,255,0)
else
outputChatBox("Limit drzewa to 100!",plr,255,0,0)
end
else
outputChatBox("Ilo?? drzewa wi?ksza od zera!",plr,255,0,0)
end
else
outputChatBox("Ilo?? drzewa musi by? liczb? ca?kowit?!",plr,255,0,0)
end
else
outputChatBox("B??d, popraw na: /"..cmd.." [ilo?? drzewa]",plr,255,0,0)
end
else
outputChatBox("B??d, popraw na: /"..cmd.." [ilo?? drzewa]",plr,255,0,0)
end
end
end
addCommandHandler("pspdodajdrzewa",dodajNoweMiejsce)

function stworzDrzewo(id,x,y,z,rx,ry,rz)
obj=createObject(id,x,y,z,rx,ry,rz)
setElementData(resourceRoot,"objj",obj)
setElementData(obj,"health",math.random(30000,40000))
return obj
end

function spawnDrzewo(x,y,z,ilosc)
if ilosc>20 then
odl=ilosc/4
else
odl=ilosc/2
end
for i=1,ilosc do
plusx,plusy=math.random(-odl,odl),math.random(-odl,odl)
drzewotyp=typy2[math.random(#typy2)]
drzewoupdown=typy[drzewotyp]
stworzDrzewo(drzewotyp,x+plusx,y+plusy,z+drzewoupdown,0,0,math.random(1,360))
end
end
--spawnDrzewo(0,0,5,8)

function autospawn()
dane=exports["ogrpg-db"]:dbGet("SELECT * FROM `PSP_drzewa` WHERE 1 order by rand() limit 1")
dane=dane[1]
spawnDrzewo(dane.x,dane.y,dane.z,dane.wielkosc)
if getPlayerCount()>50 then
setTimer(autospawn,1000*60*10,1)
else
setTimer(autospawn,1000*60*30,1)
end
end
autospawn()

function manualSpawn(plr)
local accName=getAccountName(getPlayerAccount(plr))
if isObjectInACLGroup("user."..accName,aclGetGroup("Admin")) then
outputChatBox("*Zrespiono nowe drzewo!",plr,0,255,0)
end
end
addCommandHandler("pspdrzewaspawn",manualSpawn)





Za pomoc :piwo: :piwo:

Postaw piwo autorowi tego posta
 

 
Wysłany: 2017-05-08, 06:51


amited







Wiek: 26
Na forum: 3714 dni
Posty: 1233
Nick w MP: Amited

Piwa: 512

Respekt: 466
Respekt: 466

O ile widz? to jest podpi?te pod baz? ogrpg... a i oczywi?cie nie ten dzia? ale nic nie chce m?wi?.

Podpis
"amited" napisał/a:
Postaw piwo autorowi tego posta
 

 
Wysłany: 2017-05-10, 11:47


MagiK.

Lua :-)






Wiek: 26
Na forum: 3441 dni
Posty: 102

Piwa: 391

Respekt: 35,8

Skrypt, jak wida? jest pod baz?, mo?e nie masz tabelki?

Postaw piwo autorowi tego posta
 

 
Wysłany: 2017-05-10, 16:05


Chrystek.

Programista LUA






Wiek: 26
Na forum: 3378 dni
Posty: 16
Nick w MP: Chrysto.

Piwa: 3

Respekt: 45,3

Ostrzeżeń: 100%
W?a?nie oto mu chodzi, ?e nie ma on tabelki.

Podpis



Programista LUA





Postęp prac: 15%

Forum: http://b-w.ct8.pl
TeamSpeak: FR3.ts-3.cx:11740
Postaw piwo autorowi tego posta
 

 
Tagi: prośba :: podpięcie
Anonymous





Na forum: 245 dni
Posty: 1



Anonymous Koniecznie zajrzyj na:






Skocz do:  
Wyświetl posty z ostatnich:   
GTAONLINE.PL » JĘZYKI PROGRAMOWANIA » LUA Ten temat jest zablokowany bez możliwości zmiany postów lub pisania odpowiedzi

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
Dodaj temat do Ulubionych
Wersja do druku