variables:
  {gui.monety.%player%} = 0
  {koszt.%player%} = 200
  {powiekszenie.%player%} = 1
on rightclick:
  if player's tool is diamond:
    execute player command "qwe"
command /qwe:
  trigger:
    open chest with 6 rows named "&0Sklep" to player
    wait 3 tick
    set {_p} to "%player%" parsed as player
    set {_i} to 8
    loop 9 times:
      add 1 to {_i}
      format slot {_i} of player with 1 of orange glass of sharpness 5 named "&c" to be unstealable
    format slot 4 of player with 1 of skull of {_p} named "&f%player%" with lore "|| &fKasa&7: &a%{gui.monety.%player%}%" to be unstealable
    format slot 29 of player with 1 of dirt named "&fPowieksz wyspe" to run [execute player command "wyspa"]
    format slot 33 of player with 1 of emerald named "&fRangi" to run [execute player command "rangi"]
command /wyspa:
  trigger:
    wait 3 tick
    open chest with 3 rows named "&0Powieksz wyspe" to player
    wait 3 tick
    format slot 13 of player with 1 of stone named "&fPowiekszenie wyspy" with lore "||&7Koszt&7: &a%{koszt.%player%}%||&7Powiekszenie&7: &cx&a%{powiekszenie.%player%}%" to run [execute player command "powieszwyspe"]
command /rangi:
  trigger:
    wait 3 tick
    open chest with 3 rows named "&0Rangi" to player
    wait 3 tick
    format slot 11 of player with 1 of paper named "&a[VIP]" to be unstealable
    format slot 13 of player with 1 of paper of sharpness 5 named "&a[VIP&6+&a]" to be unstealable
    format slot 15 of player with 1 of paper of sharpness 5 named "&1[&3SVIP&1]" to be unstealable
command /powieszwyspe:
  trigger:
    if {gui.monety.%player%} > {koszt.%player%}:
      send "&aZakupiles powiekszenie wyspy!"
      add 300 to {koszt.%player%}
      add 1 to {powiekszenie.%player%}
      execute console command "pex user %player% add askyblock.island.range.%{koszt.%player%}%"
      close player's inventory
      wait 3 tick
      execute player command "wyspa"
    else:
      send "&cZa malo monet!"
command /givemonety:
  trigger:
    add 200 to {gui.monety.%player%}