8 * \brief Dispense an item for a user
10 * The core of the dispense system, I kinda like it :)
12 int DispenseItem(int User, tItem *Item)
19 handler = Item->Handler;
21 // Check if the dispense is possible
22 if( handler->CanDispense ) {
23 ret = handler->CanDispense( User, Item->ID );
24 if(ret) return 1; // 1: Unable to dispense
27 // Subtract the balance
28 reason = mkstr("Dispense - %s:%i %s", handler->Name, Item->ID, Item->Name);
29 if( !reason ) reason = Item->Name; // TODO: Should I instead return an error?
30 ret = Transfer( User, GetUserID(">sales"), Item->Price, reason);
32 if(ret) return 2; // 2: No balance
34 // Get username for debugging
35 username = GetUserName(User);
37 // Actually do the dispense
38 if( handler->DoDispense ) {
39 ret = handler->DoDispense( User, Item->ID );
41 Log_Error("Dispense failed after deducting cost (%s dispensing %s - %ic)",
42 username, Item->Name, Item->Price);
43 Transfer( GetUserID(">sales"), User, Item->Price, "rollback" );
45 return -1; // 1: Unkown Error again
49 // And log that it happened
50 Log_Info("%s dispensed %s (%s:%i) [cost %i, balance %i cents]",
51 username, Item->Name, handler->Name, Item->ID,
52 Item->Price, GetBalance(User)
60 * \brief Give money from one user to another
62 int DispenseGive(int SrcUser, int DestUser, int Ammount, const char *ReasonGiven)
65 if( Ammount < 0 ) return 1; // Um... negative give? Not on my watch
67 ret = Transfer( SrcUser, DestUser, Ammount, ReasonGiven );
68 if(ret) return 2; // No Balance
70 Log_Info("%s gave %i to %s (%s)",
71 GetUserName(SrcUser), Ammount, GetUserName(DestUser), ReasonGiven