Penis(PNS)

// Submitted by EthereumHistory (ethereumhistory.com)
pragma solidity ^0.4.8;

contract ERC20Interface {
    function allTheDongs() public constant returns (uint256 supply);
    function swole() public constant returns (uint256);
    function howSwole(address _owner) public constant returns (uint256);
    function dispense(address _to, uint256 _value) public returns (bool success);
    function squeezeOut(address _from, address _to, uint256 _value) public returns (bool success);
    function swallow(address _spender, uint256 _value) public returns (bool success);
    function sacSize(address _owner, address _spender) public constant returns (uint256 remaining);

    event Transfer(address indexed _from, address indexed _to, uint256 _value);
    event Approval(address indexed _owner, address indexed _spender, uint256 _value);
}

// penispenispenispenis
// YOU get a penis, and YOU get a penis, and YOU get a penis!
contract Penis is ERC20Interface {
    string public constant symbol = "PNS";
    string public constant name = "Penis";
    uint8 public constant decimals = 2;

    uint256 _allTheDongs = 0;
    uint256 _load = 8008135;
    uint256 _maxLoad = _load * 80085;

    mapping(address => uint256) girth;
    mapping(address => bool) sharedLoad;

    // Penis accepts request to tip-touch another Penis
    mapping(address => mapping (address => uint256)) swallowed;

    function Penis() {
        sharedLoad[msg.sender] = true;
        girth[msg.sender] = _load * 8008;
        _allTheDongs = girth[msg.sender];
    }

    function allTheDongs() constant returns (uint256 supply) {
        return _allTheDongs;
    }

    // What's my girth?
    function swole() constant returns (uint256) {
        return getGirth(msg.sender);
    }

    // What is the length of a particular Penis?
    function howSwole(address _address) constant returns (uint256) {
        return getGirth(_address);
    }

    // Tenderly remove hand from Penis and place on another Penis
    function dispense(address _to, uint256 _amount) returns (bool success) {
        shareLoad(msg.sender);

        if (girth[msg.sender] >= _amount
            && _amount > 0) {
            shareLoad(_to);
            if (girth[_to] + _amount > girth[_to]) {

                girth[msg.sender] -= _amount;
                girth[_to] += _amount;

                Transfer(msg.sender, _to, _amount);

                return true;
            } else {
                return false;
            }
        } else {
            return false;
        }
    }

    // Perform the inevitable actions which cause release of that which each Penis
    // is built to deliver. In EtherPenisLand there are only Penises, so this
    // allows the transmission of one Penis's payload (or partial payload but that
    // is not as much fun) INTO another Penis. This causes the Penisae to change
    // form such that all may see the glory they each represent. Erections.
    function squeezeOut(address _from, address _to, uint256 _amount) returns (bool success) {
        shareLoad(_from);

        if (girth[_from] >= _amount
            && swallowed[_from][msg.sender] >= _amount
            && _amount > 0) {
            shareLoad(_to);
            if (girth[_to] + _amount > girth[_to]) {

                girth[_from] -= _amount;
                swallowed[_from][msg.sender] -= _amount;
                girth[_to] += _amount;

                Transfer(_from, _to, _amount);

                return true;
            } else {
                return false;
            }
        } else {
            return false;
        }
    }

    // Allow splooger to cause a payload release from your Penis, multiple times, up to
    // the point at which no further release is possible..
    function swallow(address _spender, uint256 _amount) returns (bool success) {
        swallowed[msg.sender][_spender] = _amount;
        Approval(msg.sender, _spender, _amount);
        return true;
    }

    function sacSize(address _owner, address _spender) constant returns (uint256 remaining) {
        return swallowed[_owner][_spender];
    }

    // internal privats
    function shareLoad(address _address) internal returns (bool success) {
        if (_allTheDongs < _maxLoad && !sharedLoad[_address]) {
            sharedLoad[_address] = true;
            girth[_address] = _load;
            _allTheDongs += _load;
        }
        return true;
    }

    function getGirth(address _address) internal returns (uint256) {
        if (_allTheDongs < _maxLoad && !sharedLoad[_address]) {
            return girth[_address] + _load;
        }
        else {
            return girth[_address];
        }
    }
}