command /party [<text>] [<player>]:
 aliases: /p
 trigger:
  if arg 1 is "help":
   send "&b======&2&lSimpleMinigameServer&b======" to player
   send "" to player
   send "&d・ &b/party invite <Player> 招待ができます。" to player
   send "&d・ &b/party remove <Player> プレイヤーをパーティーから抜けさせます。" to player
   send "&d・ &b/party accept 招待を承認します。" to player
   send "&d・ &b/party list パーティーメンバーを確認できます。" to player
   send "" to player
   send "&b=========================="
  if arg 1 is "invite":
   if arg 2 is set:
    if {inparty.%player%} is not set:
     if {inparty.%player%} is false:
      set {inparty.%player%} to player
      set {partyl.%player%} to true
      add {party.%player%::pl} to player
    else:
     if {partyl.%player%} is not set:
      if {partyl.%player%} is false:
       send "&cあなたはパーティーリーダーではありません。" to player
    if arg 2 is player:
     send "&c自分を選択することはできません。" to player
    else if {party.%player%::*} contains arg 2:
     send "&c既にパーティーに入っています。" to player
     stop
    else if {partyinvite.%arg-2%} is player:
     send "&f招待を送りました"
     set {partyinvite.%arg-2%} to {party.%arg-2%::pl}
     send "&b%player%さんのパーティーに招待されました。/party acceptで承認します" to arg 2
     stop
   else:
    send "&cプレイヤー名を入力してください。" to player
  if arg 1 is "remove":
   if arg 2 is set:
    if arg 2 is player:
     send "&c自分を選択することはできません。" to player
     stop
    else if {inparty.%player%} is false:
     send "&cあなたはパーティーに所属していません。" to player
     stop
    else if {partyl.%player%} is not set:
     if {partyl.%player%} is false:
      send "&cあなたはパーティーリーダーではありません。" to player
      stop
    else if {party.%player%::*} contains arg 2:
     set {partyl.%arg-2%} to false
     delete {inparty.%arg-2%}
     remove arg 2 from {party.%player%::*}
     loop {party.%player%::*}:
      if {party.%player%::*} contains arg 2:
       send "&c%player%さんにより%arg 2%さんがパーティーから外されました。" to loop-value
       send "&b%arg-2%さんをパーティーから外しました。" to player
       send "&c%player%さんによりパーティーから外されました。" to arg 2
       stop
    else:
     send "&cパーティーメンバーではありません。" to player
     stop
  if arg 1 is "accept":
   if {partyinvite.%player%} is not set:
    send "&cパーティーの招待を受け取っていません。" to player
    stop
   else:
    add {party.%{partyinvite.%player%}%} to player
    set {inparty.%player%} to {partyinvite.%player%}
    delete {partyinvite.%player%}
    send "&bパーティーに参加しました" to player
    loop {party.%player%::*}:
     if {party.%player%::*} contains arg 2:
      send "&b%player%さんがパーティーに参加しました。" to loop-value
  if arg 1 is "list":
   if {inparty.%player%} is not set:
    if {inparty.%player%} is false:
     send "&cあなたはパーティーに所属していません。" to player
     stop
   if {inparty.%player%} is set:
    if {inparty.%player%::*} is true:
     loop {party.%player%::*}:
      if loop-value is online:
       send "&bオンライン : &b[&d%loop-value%&b]" to player
      if loop-value is offline:
       send "&cオフライン : &b[&d%loop-value%&b]" to player


command /chat [<text>]:
 trigger:
  if arg 1 is "all":
   if {chat.%player%} is "all":
    send "&4既にそのチャンネルにいます" to player
    stop
   else:
    set {chat.%player%} to "all"
    send "&d全体チャットに切り替えました" to player
    stop
  if arg 1 is "a":
   if {chat.%player%} is "all":
    send "&4既にそのチャンネルにいます" to player
    stop
   else:
    set {chat.%player%} to "all"
    send "&d全体チャットに切り替えました" to player
    stop
  if arg 1 is "party":
   if {chat.%player%} is "party":
    send "&4既にそのチャンネルにいます" to player
    stop
   else:
    set {chat.%player%} to "party"
    send "&dパーティーチャットに切り替えました" to player
    stop
  if arg 1 is "p":
   if {chat.%player%} is "party":
    send "&4既にそのチャンネルにいます" to player
    stop
   else:
    set {chat.%player%} to "party"
    send "&dパーティーチャットに切り替えました" to player
    stop
  if arg 1 is not set:
   message "&c使用法 /chat all(a) or party(p)"

on chat:
 if {chat.%player%} is "all":
  stop
 if {chat.%player%} is "party":
  cancel event
  loop {party.%{inparty.%player%}%::*}:
   message "&d<%player%>&a: &f%message%" to loop-value