~/paste/6473
~/paste/6473
~/paste/6473

  1. proc(_playerUpdate, @player, @pinfo, @temporary,
  2.    if(@temporary == true) {
  3.       if(array_size(@pinfo) == 0) {
  4.          _playerClearValues(@player, true)
  5.       } else {
  6.          export(concat('user.', @player), @pinfo)
  7.       }
  8.    } else {
  9.       if(array_size(@pinfo) == 0) {
  10.          _playerClearValues(@player)
  11.       } else {
  12.          store_value(concat('user.', @player), @pinfo)
  13.       }
  14.    }
  15. )
  16. proc(_playerClearValues, @player, @temporary,
  17.    if(@temporary == true) {
  18.       export(concat('user.', @player), '')
  19.    } else {
  20.       clear_value(concat('user.', @player))
  21.    }
  22. )
  23. proc(_playerGetValues, @player, @temporary,
  24.    if(@temporary == true) {
  25.       assign(@pinfo, import(concat('user.', @player)))
  26.       if(is_null(@pinfo)) { return(array()) }
  27.       return(@pinfo)
  28.    } else {
  29.       if(!has_value(concat('user.', @player))) { return(array()) }
  30.       return(get_value(concat('user.', @player)))
  31.    }
  32. )
  33. proc(_playerStoreValue, @player, @key, @value, @temporary,
  34.    if(@temporary == true) {
  35.       assign(@pinfo, _playerGetValues(@player, true))
  36.       assign(@pinfo[@key], @value)
  37.       _playerUpdate(@player, @pinfo, true)
  38.    } else {
  39.       assign(@pinfo, _playerGetValues(@player))
  40.       assign(@pinfo[@key], @value)
  41.       _playerUpdate(@player, @pinfo)
  42.    }
  43. )
  44. proc(_playerHasValue, @player, @key, @temporary,
  45.    if(@temporary == true) {
  46.       assign(@pinfo, _playerGetValues(@player, true))
  47.       if(!is_array(@pinfo)) { return(false) }
  48.       return(array_index_exists(@pinfo, @key))
  49.    } else {
  50.       assign(@pinfo, _playerGetValues(@player))
  51.       if(!is_array(@pinfo)) { return(false) }
  52.       return(array_index_exists(@pinfo, @key))
  53.    }
  54. )
  55. proc(_playerGetValue, @player, @key, @temporary,
  56.    if(@temporary == true) {
  57.       assign(@pinfo, _playerGetValues(@player, true))
  58.       if(!_playerHasValue(@player, @key, true)) { return(null) }
  59.       return(@pinfo[@key])
  60.    } else {
  61.       assign(@pinfo, _playerGetValues(@player))
  62.       if(!_playerHasValue(@player, @key)) { return(null) }
  63.       return(@pinfo[@key])
  64.    }
  65. )
  66. proc(_playerClearValue, @player, @key, @temporary,
  67.    if(@temporary == true) {
  68.       if(_playerHasValue(@player, @key, true)) {
  69.          assign(@pinfo, _playerGetValues(@player, true))
  70.          array_remove(@pinfo, @key)
  71.          _playerUpdate(@player, @pinfo, true)
  72.       }
  73.    } else {
  74.       if(_playerHasValue(@player, @key)) {
  75.          assign(@pinfo, _playerGetValues(@player))
  76.          array_remove(@pinfo, @key)
  77.          _playerUpdate(@player, @pinfo)
  78.       }
  79.    }
  80. )
  81. proc(_playerPushValue, @player, @key, @value, @temporary,
  82.    if(@temporary == true) {
  83.       assign(@pinfo, _playerGetValues(@player, true))
  84.       if(_playerHasValue(@player, @key, true) && is_array(@pinfo[@key])) {
  85.          assign(@array, @pinfo[@key])
  86.          array_push(@pinfo[@key], @value)
  87.       } else {
  88.          assign(@pinfo[@key], array(@value))
  89.       }
  90.       _playerUpdate(@player, @pinfo, true)
  91.    } else {
  92.       assign(@pinfo, _playerGetValues(@player))
  93.       if(_playerHasValue(@player, @key) && is_array(@pinfo[@key])) {
  94.          assign(@array, @pinfo[@key])
  95.          array_push(@pinfo[@key], @value)
  96.       } else {
  97.          assign(@pinfo[@key], array(@value))
  98.       }
  99.       _playerUpdate(@player, @pinfo)
  100.    }
  101. )
  102. proc(_playerSubKeyClearValue, @player, @key, @value, @temporary,
  103.    if(@temporary == true) {
  104.       assign(@pinfo, _playerGetValue(@player, @key, true))
  105.       if(_playerHasValue(@player, @key, true) && is_array(@pinfo[@key])) {
  106.          array_remove(@pinfo, array_index(@pinfo, @value))
  107.          _playerSubKeyUpdate(@player, @key, @pinfo, true)
  108.       }
  109.    } else {
  110.       assign(@pinfo, _playerGetValue(@player, @key))
  111.       if(_playerHasValue(@player, @key) && _playerSubKeyContainsValue(@player, @key, @value)) {
  112.          array_remove(@pinfo, array_index(@pinfo, @value))
  113.          _playerSubKeyUpdate(@player, @key, @pinfo)
  114.       }
  115.    }
  116. )
  117. proc(_playerSubKeyContainsValue, @player, @key, @value, @temporary,
  118.    if(@temporary == true) {
  119.       assign(@playerinfo, _playerGetValue(@player, @key, true))
  120.       if(_playerHasValue(@player, @key, true) && is_array(@playerinfo)) {
  121.          return(array_contains_ic(@playerinfo, @value))
  122.       } else {
  123.          return(false)
  124.       }
  125.    } else {
  126.       assign(@playerinfo, _playerGetValue(@player, @key))
  127.       if(_playerHasValue(@player, @key) && is_array(@playerinfo)) {
  128.          return(array_contains(@playerinfo, @value))
  129.       } else {
  130.          return(false)
  131.       }
  132.    }
  133. )
  134. proc(_playerSubKeyUpdate, @player, @key, @playerinfo, @temporary,
  135.    if(@temporary == true) {
  136.       if(array_size(@playerinfo) == 0) {
  137.          _playerClearValue(@player, @key, true)
  138.       } else {
  139.          assign(@pinfo, _playerGetValues(@player, true))
  140.          assign(@pinfo[@key], @playerinfo)
  141.          _playerUpdate(@player, @pinfo, true)
  142.       }
  143.    } else {
  144.       if(array_size(@playerinfo) == 0) {
  145.          _playerClearValue(@player, @key)
  146.       } else {
  147.          assign(@pinfo, _playerGetValues(@player))
  148.          assign(@pinfo[@key], @playerinfo)
  149.          _playerUpdate(@player, @pinfo)
  150.       }
  151.    }
  152. )
Language: commandhelper
Posted by Anonymous at 24 Dec 2012, 01:40:44 UTC