contract LOCIcredits is Ownable, Contactable {    
    using SafeMath for uint256;    

    StandardToken token; // LOCIcoin deployed contract
    mapping (address => bool) internal allowedOverrideAddresses;

    mapping (string => LOCIuser) users;    
    string[] userKeys;
    uint256 userCount;        

    // convenience for accounting
    event UserAdded( string id, uint256 time );

    // core usage: increaseCredits, reduceCredits, buyCreditsAndSpend, buyCreditsAndSpendAndRecover
    event CreditsAdjusted( string id, uint8 adjustment, uint256 value, uint8 reason, address register );    

    // special usage: transferCreditsInternally (only required in the event of a user that created multiple accounts)
    event CreditsTransferred( string id, uint256 value, uint8 reason, string beneficiary );

    modifier onlyOwnerOrOverride() {
        // owner or any addresses listed in the overrides
        // can perform token transfers while inactive
        require(msg.sender == owner || allowedOverrideAddresses[msg.sender]);
        _;
    }

    struct LOCIuser {        
        uint256 credits;
        bool registered;
        address wallet;
    }
    
    constructor( address _token, string _contactInformation ) public {
        owner = msg.sender;
        token = StandardToken(_token); // LOCIcoin address
        contactInformation = _contactInformation;        
    }    
    
    function increaseCredits( string _id, uint256 _value, uint8 _reason, address _register ) public onlyOwnerOrOverride returns(uint256) {
                
        LOCIuser storage user = users[_id];

        if( !user.registered ) {
            user.registered = true;
            userKeys.push(_id);
            userCount = userCount.add(1);
            emit UserAdded(_id,now);
        }

        user.credits = user.credits.add(_value);        
        require( token.transferFrom( _register, address(this), _value ) );
        emit CreditsAdjusted(_id, 1, _value, _reason, _register);
        return user.credits;
    }

    function reduceCredits( string _id, uint256 _value, uint8 _reason, address _register ) public onlyOwnerOrOverride returns(uint256) {
             
        LOCIuser storage user = users[_id];     
        require( user.registered );
        // SafeMath.sub will throw if there is not enough balance.
        user.credits = user.credits.sub(_value);        
        require( user.credits >= 0 );        
        require( token.transfer( _register, _value ) );           
        emit CreditsAdjusted(_id, 2, _value, _reason, _register);        
        
        return user.credits;
    }        

    function buyCreditsAndSpend( string _id, uint256 _value, uint8 _reason, address _register, uint256 _spend ) public onlyOwnerOrOverride returns(uint256) {
        increaseCredits(_id, _value, _reason, _register);
        return reduceCredits(_id, _spend, _reason, _register );        
    }        

    function buyCreditsAndSpendAndRecover(string _id, uint256 _value, uint8 _reason, address _register, uint256 _spend, address _recover ) public onlyOwnerOrOverride returns(uint256) {
        buyCreditsAndSpend(_id, _value, _reason, _register, _spend);
        return reduceCredits(_id, getCreditsFor(_id), _reason, _recover);
    }    

    function transferCreditsInternally( string _id, uint256 _value, uint8 _reason, string _beneficiary ) public onlyOwnerOrOverride returns(uint256) {        

        LOCIuser storage user = users[_id];   
        require( user.registered );

        LOCIuser storage beneficiary = users[_beneficiary];
        if( !beneficiary.registered ) {
            beneficiary.registered = true;
            userKeys.push(_beneficiary);
            userCount = userCount.add(1);
            emit UserAdded(_beneficiary,now);
        }

        require(_value <= user.credits);        
        user.credits = user.credits.sub(_value);
        require( user.credits >= 0 );
        
        beneficiary.credits = beneficiary.credits.add(_value);
        require( beneficiary.credits >= _value );

        emit CreditsAdjusted(_id, 2, _value, _reason, 0x0);
        emit CreditsAdjusted(_beneficiary, 1, _value, _reason, 0x0);
        emit CreditsTransferred(_id, _value, _reason, _beneficiary );
        
        return user.credits;
    }   

    function assignUserWallet( string _id, address _wallet ) public onlyOwnerOrOverride returns(uint256) {
        LOCIuser storage user = users[_id];   
        require( user.registered );
        user.wallet = _wallet;
        return user.credits;
    }

    function withdrawUserSpecifiedFunds( string _id, uint256 _value, uint8 _reason ) public returns(uint256) {
        LOCIuser storage user = users[_id];           
        require( user.registered, "user is not registered" );    
        require( user.wallet == msg.sender, "user.wallet is not msg.sender" );
        
        user.credits = user.credits.sub(_value);
        require( user.credits >= 0 );               
        require( token.transfer( user.wallet, _value ), "transfer failed" );                   
        emit CreditsAdjusted(_id, 2, _value, _reason, user.wallet );        
        
        return user.credits;
    }

    function getUserWallet( string _id ) public constant returns(address) {
        return users[_id].wallet;
    }

    function getTotalSupply() public constant returns(uint256) {        
        return token.balanceOf(address(this));
    }

    function getCreditsFor( string _id ) public constant returns(uint256) {
        return users[_id].credits;
    }

    function getUserCount() public constant returns(uint256) {
        return userCount;
    }    

    function getUserKey(uint256 _index) public constant returns(string) {
        require(_index <= userKeys.length-1);
        return userKeys[_index];
    }

    function getCreditsAtIndex(uint256 _index) public constant returns(uint256) {
        return getCreditsFor(getUserKey(_index));
    }

    // non-core functionality 
    function ownerSetOverride(address _address, bool enable) external onlyOwner {
        allowedOverrideAddresses[_address] = enable;
    }

    function isAllowedOverrideAddress(address _addr) external constant returns (bool) {
        return allowedOverrideAddresses[_addr];
    }

    // enable recovery of ether sent to this contract
    function ownerTransferWei(address _beneficiary, uint256 _value) external onlyOwner {
        require(_beneficiary != 0x0);
        require(_beneficiary != address(token));        

        // if zero requested, send the entire amount, otherwise the amount requested
        uint256 _amount = _value > 0 ? _value : address(this).balance;

        _beneficiary.transfer(_amount);
    }

    // enable recovery of LOCIcoin sent to this contract
    function ownerRecoverTokens(address _beneficiary) external onlyOwner {
        require(_beneficiary != 0x0);            
        require(_beneficiary != address(token));        

        uint256 _tokensRemaining = token.balanceOf(address(this));
        if (_tokensRemaining > 0) {
            token.transfer(_beneficiary, _tokensRemaining);
        }
    }

    // enable recovery of any other StandardToken sent to this contract
    function transferAnyERC20Token(address tokenAddress, uint tokens) public onlyOwner returns (bool success) {
        return StandardToken(tokenAddress).transfer(owner, tokens);
    }
}
function ownerRecoverTokens(address _beneficiary) external onlyOwner {
    require(_beneficiary != 0x0);            
    require(_beneficiary != address(token));        

    uint256 _tokensRemaining = token.balanceOf(address(this));
    if (_tokensRemaining > 0) {
        token.transfer(_beneficiary, _tokensRemaining);
    }
}

// enable recovery of LOCIcoin sent to this contract