﻿// o-steam.ru

block load
{
   es_xset fvarx1 3

   es_xset fvarx2 0
   es_xexists fvarx2 variable fraun1
   ifx false(fvarx2) do
   {
      es_xcommandv frag_load2
   }
   es_xset fvarx3 0
   es_xexists fvarx3 variable fraun2
   ifx false(fvarx3) do
   {
      es_xcommandv frag_load2
   }
   else do
   {
      es_xmath fvarx1 + 7
      ifx parse("fraun2 = fvarx1") do
      {
         es_xload popup
         es_xmexec ../addons/eventscripts/frags/selling_frags/config.cfg
         es_xset frmax "es_math fraun1 + 1;if (server_var(fraun1) >= server_var(fraun2)) then es_xcommandv frag_load2"
         popup create fragmenu
         popup addlinef fragmenu "Деньги за 1 фраг: $%1\n \n" fr_money

         popup addline fragmenu "->1. Продать 1 фраг"
         popup addline fragmenu "->2. Продать 5 фрагов\n \n"
         popup addline fragmenu "0. Выход"
         popup menuselect fragmenu frags/selling_frags/frmenu

         es_set frag_var server_var(fr_money)
         es_xmath frag_var * 5
         es_xset frags 0
      }
   }
}

block unload
{
   popup delete fragmenu
}

block frmenu
{
   if (server_var(_popup_choice) = 1) do
   {
      es getplayerinfo frags server_var(_popup_userid) kills
      if (server_var(frags) >= 1) do
      {
         es_math frags - 1
         es est_KillSet server_var(_popup_userid) server_var(frags)
         es playerset cashadd server_var(_popup_userid) server_var(fr_money)
         es_tell server_var(_popup_userid) #green Продажа совершена!
         es popup send fragmenu server_var(_popup_userid)
         es_playsound server_var(_popup_userid) ambient/weather/drip1.wav 1
      }
      else es_tell server_var(_popup_userid) #green У вас уже нет фрагов..
   }
   if (server_var(_popup_choice) = 2) do
   {
      es getplayerinfo frags server_var(_popup_userid) kills
      if (server_var(frags) >= 5) do
      {
         es_math frags - 5
         es est_KillSet server_var(_popup_userid) server_var(frags)
         es playerset cashadd server_var(_popup_userid) server_var(frag_var)
         es_tell server_var(_popup_userid) #userid) server_var(frags)
         es playerset cashadd server_var(_popup_userid) server_var(frag_var)
         es_tell server_var(_popup_userid) #userid) server_var(frags)
         es playerset do
      {
         es_tell server_var(_popup_userid) #green У вас нет 5-ти фрагов..
         es popup send fragmenu server_var(_popup_userid)
      }
   }
   if (server_var(_popup_choice) in "3 4 5 6 7 8 9") then es popup send fragmenu server_var(_popup_userid)
   if (server_var(_popup_choice) notin "1 2 3 4 5 6 7 8 9") then es popup close fragmenu server_var(_popup_userid)
}

event round_end
{
   es_xcommandv frmax
}

event player_say
{
   if (event_var(text) = server_var(fr_menu)) do
   {
      if (event_var(es_userteam) > 1) do
      {
         es getplayerinfo frags event_var(userid) kills
         ifx parse("frags < 1") do
         {
            es_tell event_var(userid) #green У вас нет фрагов для продажи!
         }
         else do
         {
            es popup close fragmenu event_var(userid)
            es popup send fragmenu event_var(userid)
         }
      }
      else es_tell event_var(userid) #green Спектаторам команда недоступна!
   }
}
