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

Wysłany: 2014-07-15, 16:52


PanPrezes







Wiek: 32
Na forum: 4555 dni
Posty: 63
Nick w MP: PanPrezes

Piwa: 979

Respekt: 111,2
Respekt: 111,2

Witam Pisz? Skrypt Na Ostrzezenia ./warn nick powod graczowi ma si? pokaza? na ekranie czerwony ekran potem Otrzymales ostrzezenie! potem powod i przed ko?cem Nie stosowanie sie do ostrzezen moze skutkowac kickiem lub banem!
Prosz? oto Kod za pomoc postawiam dobre :piwo: ;) pozdrawiam

Kod:

function getPlayerFromNamePart(name)

local name = name and name:gsub("#%x%x%x%x%x%x", ""):lower() or nil

if name then

for _, player in ipairs(getElementsByType("player")) do

local name_ = getPlayerName(player):gsub("#%x%x%x%x%x%x", ""):lower()

if name_:find(name, 1, true) then

return player

end

end

end

end



function tresc(thePlayer, theCMD, theTarget, ...)
local accN = getAccountName ( getPlayerAccount (thePlayer) )
local groupName = "Admin" or "Moderator" or "SuperModerator" or "Console"
if groupName
~= nil and isObjectInACLGroup ("user."..accN,aclGetGroup (groupName) )

then

local theTargetElement = getPlayerFromNamePart(theTarget)

if(getElementType(theTargetElement) == "player") then

local allArgs = {...}

local theReason = table.concat(allArgs, " ")

outputChatBox("#ff0000Gracz: "..getPlayerName(theTargetElement).." otrzymuje ostrze?enie Od "..getPlayerName(thePlayer).."", getRootElement(), 255, 0, 0, true)

outputChatBox("#ff0000Powod: #FFFFFF"..tostring(theReason)..".", getRootElement(), 255, 0, 0, true)

else

outputChatBox("#ff0000Wpisz ./warn Nick Gracza", thePlayer, 255, 0, 0, true)
end
end
local playerWarning
dxDrawRectangle( 100,100,sw-200, sh-200, tocolor(255,0,0,100), true)
dxDrawText( "Otrzyma?e?/-a? ostrze?enie:", 100, 100, sw-100, sh/2-20, tocolor(255,255,255), 3.0, "default-bold", "center", "bottom", true, true,true)
dxDrawText( playerWarning, 100,sh/2+20, sw-100, sh-100, tocolor(0,0,0), 2.0, "default-bold", "center", "top", true, true,true )
function onPlayerWarningReceived(tresc)
local source settimer "localPlayer"
setTimer(playSoundFrontEnd, 500, 3, 5)
outputChatBox("\n\nOtrzymales/as ostrzezenie!\n", 255,0,0)
outputChatBox(tostring(theReason)..".", getRootElement(), 255, 0, 0, true)
outputChatBox("\nNie stosowanie sie do ostrzezen moze skutkowac kickiem lub banem!\n\n\n", 255,0,0)

playerWarning=tresc
setTimer(hidePlayerWarning, 7000, 1)
showAnnouncement = getPlayerName(theTargetElement).." otrzymuje ostrze?enie Od "..getPlayerName(thePlayer)..

addCommandHandler("warn", tresc, false )


Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 17:11


MeeShuffle

Programista/Grafik






Wiek: 32
Na forum: 4395 dni
Posty: 2758
Nick w MP: Shuffle

Piwa: 8575

Respekt: 535,3
Respekt: 535,3

To jest jako udost?pnienie kodu czy poprawi? ?

Podpis

https://shufflecode.pl
Static Codes and Graphics - Join our discord!
Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 17:14


PanPrezes







Wiek: 32
Na forum: 4555 dni
Posty: 63
Nick w MP: PanPrezes

Piwa: 979

Respekt: 111,2
Respekt: 111,2

kod chc? poprawi?

Podpis
Reaktywacja zapomnianego serwera YL-Games!


Prace nad serwerem 54/100%

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 17:14


MeeShuffle

Programista/Grafik






Wiek: 32
Na forum: 4395 dni
Posty: 2758
Nick w MP: Shuffle

Piwa: 8575

Respekt: 535,3
Respekt: 535,3

local source settimer "localPlayer" 


Co to jest ? Wywala b??d, ?e da?e? za ma?o b?d? za du?o end.

Podpis

https://shufflecode.pl
Static Codes and Graphics - Join our discord!
Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 17:14


krydianero

Samotny Wilk






Wiek: 33
Na forum: 4783 dni
Posty: 395
Nick w MP: Yoshida

Piwa: 1798

Respekt: 117,3
Respekt: 117,3

No w?a?nie... Maszyna ma racje to? ten kod jest gotowy wymaga tylko paru poprawek... -_-
A co do tego ekranu u?yj:

Więcej informacji znajdziesz w Wikipedii MTA:

fadeCamera


Podpis

Multi Drive Unlimited:Nowy projekt już wkrótce

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 17:25


PanPrezes







Wiek: 32
Na forum: 4555 dni
Posty: 63
Nick w MP: PanPrezes

Piwa: 979

Respekt: 111,2
Respekt: 111,2

Tak Ja Chcia?em od was poprawke tego skryptu je?eli co? jest nie tak prosz? poprawi? ca?ego skrypta i podes?a? tu ;) bo mi si? wydaje ze co? zle robi?

Podpis
Reaktywacja zapomnianego serwera YL-Games!


Prace nad serwerem 54/100%

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 18:24


krydianero

Samotny Wilk






Wiek: 33
Na forum: 4783 dni
Posty: 395
Nick w MP: Yoshida

Piwa: 1798

Respekt: 117,3
Respekt: 117,3

Dobra powiem tak ca?y ten tw?j kod nie ma ?adnego sensu i porz?dku. Nie nadaje si? on do niczego (wyj?tek funkcja na wyszukanie gracza - z wiki)

[ Dodano: 2014-07-15, 18:56 ]
Wi?cej ode mnie nie oczekuj poprawi?em tylko tw?j kod nowego pisa? nie b?d? bo mi si? nie chce a pozatym 3/4 twojego kodu nie jest twoja


Poprawiony kod + dodany timer
function getPlayerFromNamePart(name)
 
    local name name and name:gsub("#%x%x%x%x%x%x"""):lower() or nil
 
    if name then
 
        for _player in ipairs(getElementsByType("player")) do
 
            local name_ getPlayerName(player):gsub("#%x%x%x%x%x%x"""):lower()
 
            if name_:find(name1truethen
 
                return player
 
            end
 
        end
 
    end
 
end
 
 
 
function nazwafunkcji(thePlayertheCMDtheTarget, ...)
 local accN getAccountName getPlayerAccount (thePlayer) )
local groupName "Admin" or "Moderator" or "SuperModerator" or "Console"
if groupName
     ~= nil and isObjectInACLGroup ("user."..accN,aclGetGroup (groupName) )
        
        then
 
        local theTargetElement getPlayerFromNamePart(theTarget)
 
        if (getElementType(theTargetElement) == "player"then
 
            local allArgs = {...}
 
            local theReason table.concat(allArgs" ")
 
            outputChatBox("#ff0000Gracz: "..getPlayerName(theTargetElement).." otrzymuje ostrze?enie od "..getPlayerName(thePlayer)..""_25500)
 
            outputChatBox("#ff0000Powod: #FFFFFF"..tostring(theReason).."."_25500)
            local warninfostatus 0
            setTimer(function()
             if warninfostatus == 0 then
             outputChatBox('Otrzymales ostrzezenie! Powod: '..tostring(theReason), theTargetElement,255,0,0)
             warninginfostatus 1
             elseif warninginfostatus == 1 then
             outputChatBox('Nie stosowanie sie do ostrzezen bedzie skutkowalo banem'theTargetElement,255,0,0)
             warninginfostatus 0
             end
             end,1500,1)
 
        else
 
            outputChatBox("#ff0000Wpisz ./warn Nick Gracza"thePlayer25500,true)
        end
       end
      end
addCommandHandler('',nazwafunkcji)


Podpis

Multi Drive Unlimited:Nowy projekt już wkrótce

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 20:08


Fanciak

BOT






Wiek: 25
Na forum: 4446 dni
Posty: 728
Nick w MP: Fanciak

Piwa: 1572

Respekt: 500
Respekt: 500

kryniadero PanuPrezesowi chodzi?o o to, aby graczowi pokaza?o si? na ca?ym ekranie czerwony kwadrat i dopiero w tym pow?d a pod spodem 'Nie stosowanie si? do ostrze?e? mo?e skutkowa? kickiem lub banem!'

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 20:20


PolskiSebek12

Programista






Wiek: 28
Na forum: 4347 dni
Posty: 343
Nick w MP: CrosRoad95

Piwa: 3883

Respekt: 288,8
Respekt: 288,8Respekt: 288,8Respekt: 288,8

Ostrzeżeń: 100%
sorry za off top

czy tylko mi sie wydaje czy taki skrypt jest w xyzzy rp i po daniu komus ostrzezenia wyglada to tak: http://zapodaj.net/35cc5e7060e2c.png.html

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 20:27


krydianero

Samotny Wilk






Wiek: 33
Na forum: 4783 dni
Posty: 395
Nick w MP: Yoshida

Piwa: 1798

Respekt: 117,3
Respekt: 117,3

Kod byl nastawiony na co innego dxDrawy powstawiane bezsensownie bo nawet by si? nie pokaza?y, http://wiki.mtasa.com zapraszam autora tematu do poczytania troch?.

Podpis

Multi Drive Unlimited:Nowy projekt już wkrótce

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 20:34


Fanciak

BOT






Wiek: 25
Na forum: 4446 dni
Posty: 728
Nick w MP: Fanciak

Piwa: 1572

Respekt: 500
Respekt: 500

"PolskiSebek12" napisał/a:

sorry za off top

czy tylko mi sie wydaje czy taki skrypt jest w xyzzy rp i po daniu komus ostrzezenia wyglada to tak: http://zapodaj.net/35cc5e7060e2c.png.html



Ja szukam takiego skryptu. Je?eli kto? st?d da rade to napisa? to dam piwko i respekt.

Dzi?ki.

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 22:52


PanPrezes







Wiek: 32
Na forum: 4555 dni
Posty: 63
Nick w MP: PanPrezes

Piwa: 979

Respekt: 111,2
Respekt: 111,2

PolskiSebek12, w?a?nie chodzi mi o takie co? tylko na cmd

Podpis
Reaktywacja zapomnianego serwera YL-Games!


Prace nad serwerem 54/100%

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 23:12


krydianero

Samotny Wilk






Wiek: 33
Na forum: 4783 dni
Posty: 395
Nick w MP: Yoshida

Piwa: 1798

Respekt: 117,3
Respekt: 117,3

Fanciak, ?ci?gnij sobie gamemod xyzzy rp ?

Podpis

Multi Drive Unlimited:Nowy projekt już wkrótce

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 23:19


PanPrezes







Wiek: 32
Na forum: 4555 dni
Posty: 63
Nick w MP: PanPrezes

Piwa: 979

Respekt: 111,2
Respekt: 111,2

w?a?nie chodzi mi abym mia? to samo na CMD prosze ss
http://zapodaj.net/35cc5e7060e2c.png.html

Podpis
Reaktywacja zapomnianego serwera YL-Games!


Prace nad serwerem 54/100%

Postaw piwo autorowi tego posta
 

 
Wysłany: 2014-07-15, 23:27


krydianero

Samotny Wilk






Wiek: 33
Na forum: 4783 dni
Posty: 395
Nick w MP: Yoshida

Piwa: 1798

Respekt: 117,3
Respekt: 117,3

Poniewa? gamemod zosta? udost?pniony na licencji open source mo?esz ten gamemod pobra? i zmodyfikowa?, musisz tylko wtedy udost?pni? go dalej innym. W dziale skrypty mo?esz znale?? ten gamemod (Xyzzy Rp)

Podpis

Multi Drive Unlimited:Nowy projekt już wkrótce

Postaw piwo autorowi tego posta
 

 
Tagi: skrypt :: ostrzezenia
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