Skript Paylaşımı BORSA - Gelişmiş Borsa (1.8x - 1.16x)

options:
    prefix: &dBORSA &8»

on load:
    add "Bitcoin","Ethereum","Dogecoin" to {_kriptolar::*}
    loop {_kriptolar::*}:
        if {borsa::fiyatlar::%loop-value%::anafiyat} is not set:
            set {_fiyat} to random integer between 1000 and 100000
            set {borsa::fiyatlar::%loop-value%} to loop-value
            set {borsa::fiyatlar::%loop-value%::anafiyat} to {_fiyat}
            set {borsa::fiyatlar::%loop-value%::fiyat} to {_fiyat}
            set {borsa::fiyatlar::%loop-value%::yenilenme} to now
            add 5 minute to {borsa::fiyatlar::%loop-value%::yenilenme}
    loop all players:
        loop {_kriptolar::*}:
            if {borsa::oyuncular::%loop-value-1%::%loop-value-2%} is not set:
                set {borsa::oyuncular::%loop-value-1%::%loop-value-2%} to 0

every 1 minute:
    loop {borsa::fiyatlar::*}:
        if difference between {borsa::fiyatlar::%loop-value%::yenilenme} and now > 5 minutes:
            set {_fiyat} to random integer between 1 and 1000
            set {borsa::fiyatlar::%loop-value%::yenilenme} to now
            add 5 minute to {borsa::fiyatlar::%loop-value%::yenilenme}
            if chance of 50%:
                if {borsa::fiyatlar::%loop-value%::fiyat} - {_fiyat} <= 0:
                    set {borsa::fiyatlar::%loop-value%::fiyat} to random integer between 1 and 1000
                else:
                    remove {_fiyat} from {borsa::fiyatlar::%loop-value%::fiyat}
            else:
                add {_fiyat} to {borsa::fiyatlar::%loop-value%::fiyat}

command /borsa:
    trigger:
        borsaMenu(player)

function borsaMenu(p:player):
    open virtual chest inventory with size 1 named "&0Borsa" to {_p}
    set {_x} to 0
    loop {borsa::fiyatlar::*}:
        if {borsa::oyuncular::%{_p}%::%loop-value%} is not set:
            set {borsa::oyuncular::%{_p}%::%loop-value%} to 0
        set {_m} to noktaFormatlayici({borsa::fiyatlar::%loop-value%::fiyat})
        set {_a} to artisHesaplama("%loop-value%")
        set {_i} to sunflower named "&d%loop-value%"
        set line 1 of the lore of {_i} to "&7Fiyat;"
        set line 2 of the lore of {_i} to "    &e%{_m}% TL &7(%{_a}%&7)"
        set line 4 of the lore of {_i} to "&7Borsa Yenilenme;"
        set line 5 of the lore of {_i} to "    &e%{borsa::fiyatlar::%loop-value%::yenilenme}%"
        set line 7 of the lore of {_i} to "&7Sahip Olunan;"
        set line 8 of the lore of {_i} to "    &e%noktaFormatlayici({borsa::oyuncular::%{_p}%::%loop-value%})% %loop-value%"
        set line 10 of the lore of {_i} to "&7Kısayollar;"
        set line 11 of the lore of {_i} to "    &eSatın almak için &dsol tıkla."
        set line 12 of the lore of {_i} to "    &eSatmak için &dsağ tıkla."
        create gui slot {_x} of {_p} with {_i} to nothing
        add loop-value to {_kriptolar::*}
        set {_kriptolar::%loop-value%::slot} to {_x}
        add 1 to {_x}
    while 1 is 1:
        wait 10 seconds
        if name of {_p}'s current inventory is "&0Borsa":
            loop {_kriptolar::*}:
                set {_m} to noktaFormatlayici({borsa::fiyatlar::%loop-value%::fiyat})
                set {_a} to artisHesaplama("%loop-value%")
                set line 2 of the lore of slot {_kriptolar::%loop-value%::slot} of {_p}'s current inventory to "    &e%{_m}% TL &7(%{_a}%&7)"
                set line 5 of the lore of slot {_kriptolar::%loop-value%::slot} of {_p}'s current inventory to "    &e%{borsa::fiyatlar::%loop-value%::yenilenme}%"
        else:
            stop

on inventory click:
    if name of player's current inventory is "&0Borsa":
        cancel event
        if name of event-inventory is "&0Borsa":
            if clicked item is not air:
                if {borsa::fiyatlar::%uncolored name of clicked item%::fiyat} is set:
                    if clicked type is left mouse button:
                        islemMenu(player,"Alış","%uncolored name of clicked item%")
                    else if clicked type is right mouse button:
                        islemMenu(player,"Satış","%uncolored name of clicked item%")
                    else:
                        cancel event
                else:
                    close player's inventory
                    send "{@prefix} &7Bu birim bozulmuş lütfen yetkiliye bildirin!" to player
            else:
                cancel event
           
function islemMenu(p:player,islem:text,k:text):
    open virtual hopper inventory with size 1 named "&0Borsa &8> %{_k} % &8> %{_islem}%" to {_p}
    create gui slot 0 and 4 of {_p} with gray stained glass pane to nothing
    create gui slot 2 of {_p} with paper named "&d1" to run:
        set {_m} to "%numbers of uncolored name of clicked item%" parsed as integer
        if {_islem} is "Alış":
            if {_p}'s balance >= ({_m}*{borsa::fiyatlar::%{_k}%::fiyat}):
                remove ({_m}*{borsa::fiyatlar::%{_k}%::fiyat}) from {_p}'s balance
                add {_m} to {borsa::oyuncular::%{_p}%::%{_k}%}
                set {_f} to noktaFormatlayici({borsa::fiyatlar::%{_k}%::fiyat})
                set {_top} to "%{_m}*{borsa::fiyatlar::%{_k}%::fiyat}%" parsed as integer
                set {_top} to noktaFormatlayici({_top})
                send "{@prefix} &e%{_k}% &7satın alındı, &e(%{_f}% * %{_m}% = %{_top}%)" to {_p}
            else:
                send "{@prefix} &7Bakiyeniz yetersiz!" to {_p}
        else if {_islem} is "Satış":
            if {borsa::oyuncular::%{_p}%::%{_k}%} >= {_m}:
                add ({_m}*{borsa::fiyatlar::%{_k}%::fiyat}) to {_p}'s balance
                remove {_m} from {borsa::oyuncular::%{_p}%::%{_k}%}
                set {_f} to noktaFormatlayici({borsa::fiyatlar::%{_k}%::fiyat})
                set {_top} to "%{_m}*{borsa::fiyatlar::%{_k}%::fiyat}%" parsed as integer
                set {_top} to noktaFormatlayici({_top})
                send "{@prefix} &e%{_k}% &7satıldı, &e(%{_f}% * %{_m}% = %{_top}%)" to {_p}
            else:
                send "{@prefix} &7Yeterli miktarda &e%{_k}% &7sahip değilsin!" to {_p}
    create gui slot 1 of {_p} with stone button named "&c-1" to run:
        miktarAyarla({_p},-1)
    create gui slot 3 of {_p} with stone button named "&a+1" to run:
        miktarAyarla({_p},1)
   
function miktarAyarla(p:player,m:integer):
    set {_sm} to "%numbers of uncolored name of slot 2 of {_p}'s current inventory%" parsed as integer
    if ({_sm}+{_m}) is between 1 and 30:
        set name of slot 2 of {_p}'s current inventory to "&d%{_sm}+{_m}%"

function noktaFormatlayici(cevirilecek:integer) :: text:
    set {_r} to "%{_cevirilecek}%"
    set {_t} to ""
    loop round up length of {_r} / 3 times:
        set {_l} to the last 3 characters of {_r}
        set {_r} to the first length of {_r} - 3 characters of {_r}
        if loop-number = 1:
            set {_t} to "%{_l}%%{_t}%"
        else:
            set {_t} to "%{_l}%.%{_t}%"
    return {_t}


function artisHesaplama(birim:text) :: text:
    set {_x} to {borsa::fiyatlar::%{_birim}%::fiyat} - {borsa::fiyatlar::%{_birim}%::anafiyat}
    set {_x} to {_x}/{borsa::fiyatlar::%{_birim}%::anafiyat}
    set {_x} to {_x}*100
    if {_x} < 0:
        set {_x} to "&c%{_x}%"
    else:
        set {_x} to "&a%{_x}%"
    return {_x}