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("Dispensed %s (%s:%i) for %s [cost %i, balance %i cents]",
51 Item->Name, handler->Name, Item->ID,
52 username, Item->Price, GetBalance(User)