code.skript.pl - kod zLAbqLjH

# # # # # # # # # # # # # # # # # # # # # # # # # #
#                                                 #
#    Skrypt stworzony przez 3_fendi_3             #
#    Zakaz podpisywania go jako swojego           #
#    Zakaz sprzedawania                           #
#    Zezwalam na modyfikacje lub udostepnianie    #
#    DC: https://discord.gg/kqMPxN9HuQ            #
#                                                 #
# # # # # # # # # # # # # # # # # # # # # # # # # #

options:
    nazwa-gui-zakupu-telefonow: &6Zakup telefonu
    npc-nazwa: Telefony 
    permisje:
        policja: tcpd.*
        szpital: tcms.*
        reset: telefony.reset
    ceny:
        telefon: 500
        sim: 100
        sms: 5

on join:
    delete {chattelefon::%player%}
    delete {mess::%player%}
    
on right click on entity:
    uncolored name of clicked entity is "{@npc-nazwa}"
    set {_} to chest inventory with 1 row named "{@nazwa-gui-zakupu-telefonow}"
    set slot 3 of {_} to gunpowder named "&6Karta SIM" with lore "&aKoszt: &e100$"
    set slot 5 of {_} to brick named "&3Telefon" with lore "&aKoszt: &e500$"
    open {_} to player
on inventory click:
    event-inventory is not player's inventory
    if name of event-inventory is "{@nazwa-gui-zakupu-telefonow}":
        cancel event
        close player's inventory
        if clicked slot is 3:
            if player's balance >= {@ceny.sim}:
                remove {@ceny.sim} from player's balance
                set {_nmr} to random integer between 100000 and 999999
                while {listanum::*} contains {_nmr}:
                    set {_nmr} to random integer between 100000 and 999999
                    wait 1 seconds          
                give player gunpowder named "&6Karta SIM" with lore "&aNumer: %{_nmr}%"
            else:
                send "&cNie stać cie!"
        if clicked slot is 5:
            if player's balance >= {@ceny.telefon}:
                remove {@ceny.telefon} from player's balance
                give player brick named "&3Telefon" with lore "&cBrak karty SIM"
            else:
                send "&cNie stać cie!"
    if name of event-inventory is "&6Włóż kartę SIM":
        clicked slot is not 22
        cancel event
    if name of event-inventory is "Telefon":
        cancel event
        if clicked slot is 5:
            close player's inventory
            if size of {numer::%checktelefonitem(player)%::*} = 0:
                send "&cNie masz nikogo na liście kontaktów!" to player
                stop
            else:
                set {_5} to chest inventory with 6 rows named "&bLista kontaktów"
                set slot 48 of {_5} to end rod named "&cCofnij"
                set slot 50 of {_5} to barrier named "&6Następna strona"
                set {_liczbanum::*} to 3 and 4 and 5 and 12 and 13 and 14 and 21 and 22 and 23 and 30 and 31 and 32 and 39 and 40 and 41
                set {_a} to 0
                loop {numer::%checktelefonitem(player)%::*}:
                    set {_n::*} to loop-value split at " "
                    set {_1} to {_n::1}
                    set {_2} to {_n::2}
                    add 1 to {_a}
                    set slot {_liczbanum::%{_a}%} of {_5} to book named {_2} with lore "&bNumer: %{_1}%" and "&eWcisnij ppm aby usunąć kontakt!" and "&eWcisnij lpm aby wyslac SMS!"
                    if {_a} = 15:
                        exit loop
                open {_5} to player 
                stop
        else if clicked slot is 49:
            close player's inventory
            send "&bAplikacja się zawiesiła. Spróbuj później!"
        else if clicked slot is 48:
            close player's inventory
            telefonStrona1(player)
        else if clicked slot is 3 or 4:
            close player's inventory
            send "&6Opisz zgłoszenie" to player
            send "&6Wpisz Anuluj jeżeli chcesz anulować zgłoszenie" 
            if clicked slot is 3:
                set {chattelefon::%player%} to 1
            if clicked slot is 4:
                set {chattelefon::%player%} to 2
        else if clicked slot is 50:
            close player's inventory
            if size of {numer::%checktelefonitem(player)%::*} >= 30:
                send "&cNie masz miejsca na kolejne kontakty!%nl%&cMusisz zwolnić miejsce"
            else if size of {numer::%checktelefonitem(player)%::*} < 30:
                send "&6Wpisz Anuluj jeżeli chcesz anulować dodanie kontaktu"
                send "&6Wpisz numer telefonu, a następnie jego nazwe%nl%Przykład: 263894 Maciek123"
                set {chattelefon::%player%} to 3
        else if clicked slot is 12:
            set {_} to chest inventory with 6 rows named "&bE-Bay"
            set slot 4 of {_} to paper named "&fInstrukcja" with lore "...."
            set slot 13 of {_} to torch named "&6Info" with lore "&2Wciśnij ppm na wełnie aby usunąć tekst"
            set slot 31 of {_} to hopper named "&bWyślij"
            set slot 21 of {_} to red wool named "&cJaki przedmiot"
            set slot 22 of {_} to red wool named "&cKoszt"
            set slot 23 of {_} to red wool named "&cOpis"
            {ebey::%player%::1} is set:
                set slot 21 of {_} to red wool named "&cJaki przedmiot" with lore "&b%{ebey::%player%::1}%"
            {ebey::%player%::2} is set:
                set slot 22 of {_} to red wool named "&cKoszt" with lore "&b%{ebey::%player%::2}%"
            {ebey::%player%::3} is set:
                set slot 23 of {_} to red wool named "&cOpis" with lore "&b%{ebey::%player%::3}%"
            open {_} to player
    if name of event-inventory is "&bE-Bay":
        cancel event
        if clicked slot is 21:
            if click type is right mouse button:
                delete {ebey::%player%::1}
                close player's inventory
            else:
                ebay(player, "&6Wpisz jakie przedmiot sprzedajesz", 4)
            
        if clicked slot is 22:
            if click type is right mouse button:
                delete {ebey::%player%::2}
                close player's inventory
            else:
                ebay(player, "&6Wpisz koszt przedmiotu", 5)
        if clicked slot is 23:
            if click type is right mouse button:
                delete {ebey::%player%::3}
                close player's inventory
            else:
                ebay(player, "&6Opisz przedmiot", 6)
        if clicked slot is 31:
            name of player's held item is "&3Telefon"
            if {ebey::%player%::1} and {ebey::%player%::2} and {ebey::%player%::3} are set:
                set {_} to uncolored checktelefonitem(player)
                replace "Numer telefonu: " with "" in {_}
                send "&b[E-BAY]%nl%&2Numer: %{_}% sprzedaje:%nl%&7-%{ebey::%player%::1}%%nl%-&7Koszt: %{ebey::%player%::2}%$%nl%-&7%{ebey::%player%::3}%" to all players where [input has brick named "&3Telefon"]
                delete {ebey::%player%::*}
                close player's inventory
            else:
                send "&6Nie wpisałeś wszystkich danych!"
                close player's inventory
    if name of event-inventory is "&bLista kontaktów":
        cancel event
        name of player's held item is "&3Telefon"
        if type of clicked slot is book:
            set {_l} to 1st line of lore of clicked slot
            replace "&bNumer: " with "" in {_l}
            if click type is right mouse button:
                set {_g} to name of clicked slot
                remove "%{_l}% %{_g}%" from {numer::%checktelefonitem(player)%::*}
                send "&aUsunięto numer"
                close player's inventory
                telefonStrona1(player)
            if click type is left mouse button:
                set {chattelefon::%player%} to 7
                send "&6Wpisz treść SMS, lub wpisz Anuluj aby anulować wysłanie SMS"
                set {mess::%player%} to {_l}
                close player's inventory
        else:
            if clicked slot is 48:
                telefonStrona1(player)
            if clicked slot is 50:
                if (size of {numer::%checktelefonitem(player)%::*}) <= 15:
                    send "&cNie masz kontaktów na drugiej stronie"
                else:
                    set {_g} to chest inventory with 6 rows named "&bLista kontaktów &7(Strona 2)"
                    set slot 49 of {_g} to end rod named "&cCofnij"
                    loop {numer::%checktelefonitem(player)%::*}:
                        add loop-value to {_x::*}
                    set {_} to 0
                    loop {_x::*}:
                        add 1 to {_}
                        delete {_x::%{_}%}
                        if {_} = 15:
                            exit loop
                    set {_liczbanum::*} to 3 and 4 and 5 and 12 and 13 and 14 and 21 and 22 and 23 and 30 and 31 and 32 and 39 and 40 and 41
                    set {_a} to 0
                    loop {_x::*}:
                        set {_n::*} to loop-value split at " "
                        set {_1} to {_n::1}
                        set {_2} to {_n::2}
                        add 1 to {_a}
                        set slot {_liczbanum::%{_a}%} of {_g} to book named {_2} with lore "&bNumer: %{_1}%" and "&eWcisnij ppm aby usunąć kontakt!" and "&eWcisnij lpm aby wyslac SMS!"
                        if {_a} = 15:
                            exit loop
                    open {_g} to player
    if name of event-inventory is "&bLista kontaktów &7(Strona 2)":
        cancel event
        name of player's held item is "&3Telefon"
        if type of clicked slot is book:
            set {_l} to 1st line of lore of clicked slot
            replace "&bNumer: " with "" in {_l}
            if click type is right mouse button:
                set {_g} to name of clicked slot
                remove "%{_l}% %{_g}%" from {numer::%checktelefonitem(player)%::*}
                send "&aUsunięto numer"
                close player's inventory
                telefonStrona1(player)
            if click type is left mouse button:
                set {chattelefon::%player%} to 7
                send "&6Wpisz treść SMS, lub wpisz Anuluj aby anulować wysłanie SMS"
                set {mess::%player%} to {_l} 
                close player's inventory
        else:
            if clicked slot is 49:
                telefonStrona1(player)

on right click:
    player's held item is brick named "&3Telefon"
    if lore of player's held item is "&cBrak karty SIM":
        set {_} to chest inventory with 4 rows named "&6Włóż kartę SIM"
        set slot (integers between 0 and 36) of {_} to black stained glass pane
        set slot 13 of {_} to brick named "&3Telefon" with lore "&cBrak karty SIM"
        set slot 22 of {_} to air
        open {_} to player
    else:
        telefonStrona1(player)

on chat:
    {chattelefon::%player%} is set
    cancel event
    if player's held item is brick named "&3Telefon":
        if message contains "anuluj" or "Anuluj" or "ANULUJ":
            send "&6Pomyślnie anulowano"
        else:
            set {_} to message
            if {chattelefon::%player%} is 1:
                send "&6Gracz %player% zgłasza:%nl%&6%{_}%%nl%&bJego kordy to: X: %x-loc of player%, Y: %y-loc of player%, Z: %z-loc of player%" to all players where [input has permission "{@permisje.policja}"]
            else if {chattelefon::%player%} is 2:
                send "&6Gracz %player% zgłasza:%nl%&6%{_}%%nl%&bJego kordy to: X: %x-loc of player%, Y: %y-loc of player%, Z: %z-loc of player%" to all players where [input has permission "{@permisje.szpital}"]
            else if {chattelefon::%player%} is 3:
                set {_z::*} to (message split at " ")
                if {listanum::*} contains {_z::1}:
                    set {_x::*} to 1st line of lore of player's held item
                    replace "&aNumer: " with "" in {_x::*}
                    if {numer::%{_x::*}%::*} does not contain {_z::1}:
                        add "%{_z::1}% %{_z::2}%" to {numer::%{_x::*}%::*} 
                        send "&aDodano numer!"
                    else:
                        send "&cTen numer jest już w twojej liście kontaktów!"

else:
                    send "&cNie ma takiego numeru!"
            else if {chattelefon::%player%} is 4:
                set {ebey::%player%::1} to message
            else if {chattelefon::%player%} is 5:
                set {ebey::%player%::2} to message
            else if {chattelefon::%player%} is 6:
                set {ebey::%player%::3} to message
            else if {chattelefon::%player%} is 7:
                set {_} to checktelefonitem(player)
                replace "&bNumer telefonu: " with "" in {_}
                if player's balance >= {@ceny.sms}:
                    remove {@ceny.sms} from player's balance
                    send "&aPomyślnie wysłano sms do &e%{_}%" to player
                    SMS(player, {mess::%player%}, "&5SMS &a[&e%{_}%&a]: &f%message%")

else:   
        send "&6Nie trzymasz telefonu!"
    delete {chattelefon::%player%} 
    delete {mess::%player%}

on inventory close:
    if name of event-inventory is "&6Włóż kartę SIM":
        player has 1 of brick named "&3Telefon" with lore "&cBrak karty SIM"
        slot 22 of event-inventory is not air
        set {_x::*} to lore of slot 22 of event-inventory
        set {_x::*} to "%{_x::*}%"
        replace "&aNumer: " with "" in {_x::*}
        remove 1 of brick named "&3Telefon" with lore "&cBrak karty SIM" from player
        give player 1 of brick named "&3Telefon" with lore "&bNumer telefonu: &e%{_x::*}%"
        add {_x::*} to {listanum::*}

function SMS(p: player, i: string, s: string):
    name of {_p}'s held item is "&3Telefon"
    loop all players where [input has brick named "&3Telefon"]:
        loop all items in the inventory of loop-player:
            if uncolored 1st line of lore of loop-item contains "Numer telefonu: %{_i}%":
                set {_pl} to loop-player
                exit loop
    send {_s} to {_pl}
function telefonStrona1(p :player):
    set {_} to chest inventory with 6 rows named "Telefon"    
    set slot 3 of {_} to green wool named "&bTCPD"
    set slot 4 of {_} to red wool named "&aTCMS"
    set slot 48 of {_} to end rod named "&cCofnij"
    set slot 49 of {_} to bell named "&eSiri"
    set slot 50 of {_} to armor stand named "&aDodaj kontakt"
    set slot 5 of {_} to totem of undying named "&eKontakty"
    set slot 12 of {_} to lectern named "&bE-Bay"
    open {_} to {_p}
function checktelefonitem(p: player) :: string:
    if {_p}'s held item is brick named "&3Telefon":
        set {_x} to 1st line of lore of {_p}'s held item
        replace "&bNumer: " with "" in {_x}
        return {_x}
    else:
        send "&cNie trzymasz telefonu w ręce!" to {_p}
function ebay(p: player, t: text, i: integer):
    send {_t} to {_p}
    send "&6Wpisz Anuluj jeżeli chcesz anulować" to {_p}
    close {_p}'s inventory
    set {chattelefon::%{_p}%} to {_i}
command /resettelefony:
    permission: {@permisje.reset}
    trigger:
        delete {listanum::*}
        delete {chattelefon::%player%}
        delete {numer::*}
        delete {mess::*}