git.sur5r.net Git - c128-kasse/blob - src/kasse.c

   1 /*
   2  * RGB2R-C128-Kassenprogramm
   3  * (c) 2007 phil_fry, sECuRE, sur5r
   4  * See LICENSE for license information
   5  *
   6  */
   7 #include <stdio.h>
   8 #include <conio.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include <cbm.h>
  12
  13 #include "general.h"
  14 #include "config.h"
  15 #include "kasse.h"
  16 #include "credit_manager.h"
  17 #include "c128time.h"
  18 // drucker 4 oder 5
  19 // graphic 4,0,10
  20
  21 char print_buffer[81];
  22
  23 /* Hauptbildschirm ausgeben */
  24 static void print_screen() {
  25         BYTE i = 0;
  26         char *time = get_time();
  27         char profit[10];
  28         clrscr();
  29         if (format_euro(profit, 10, money) == NULL) {
  30                 cprintf("Einname %ld konnte nicht umgerechnet werden\r\n", money);
  31                 exit(1);
  32         }
  33         cprintf("C128-Kassenprogramm (phil_fry, sECuRE, sur5r)\r\
  34 \r\nUhrzeit: %s (wird nicht aktualisiert)\r\
  35 Eingenommen: %s, Verkauft: %ld Flaschen, Drucken: %s\r\n\r\n",
  36         time, profit, items_sold, (printing == 1 ? "ein" : "aus"));
  37         for (; i < status.num_items; ++i)
  38                 cprintf("Eintrag %x: %s (%d Cents, %d mal verkauft)\r\n",
  39                         i, status.status[i].item_name, status.status[i].price, status.status[i].times_sold);
  40         cprintf("\r\nBefehle: s) Daten sichern d) Drucken umschalten\r\
  41 g) Guthabenverwaltung     z) Zeit setzen\r\
  42 n) Neues Getraenk\r\n");
  43 }
  44
  45 static void log_file(const char *s) {
  46         BYTE c = cbm_open((BYTE)8, (BYTE)8, (BYTE)1, "log");
  47         if (c != 0) {
  48                 c128_perror(c, "cbm_open(log)");
  49                 save_items();
  50                 save_credits();
  51                 exit(1);
  52         }
  53         c = cbm_write((BYTE)8, s, strlen(s));
  54         if (c != strlen(s)) {
  55                 cprintf("Could not save logfile, please make sure the floppy is not full!\n");
  56                 save_items();
  57                 save_credits();
  58                 exit(1);
  59         }
  60         cbm_close((BYTE)8);
  61 }
  62
  63 /* Druckt eine entsprechende Zeile aus */
  64 static void print_log(BYTE n, int einheiten, char *nickname) {
  65         BYTE c;
  66         char *time = get_time();
  67         char price[10];
  68         /* Format:
  69            Transaction-ID (Anzahl verkaufter Einträge, inklusive des zu druckenden!)
  70            Uhrzeit
  71            Eintragname (= Getränk)
  72            Preis (in Cents)
  73            Anzahl
  74            Nickname (falls es vom Guthaben abgezogen wird)
  75            */
  76         if (format_euro(price, 10, status.status[n].price) == NULL) {
  77                 cprintf("Preis %d konnte nicht umgerechnet werden\r\n", status.status[n].price);
  78                 exit(1);
  79         }
  80
  81         sprintf(print_buffer, "[%lu] %s - %s - %s - %d - an %s\r\n",
  82                 items_sold, time, status.status[n].item_name, price,
  83                 einheiten, (nickname != NULL ? nickname : "Unbekannt"));
  84         c = cbm_open((BYTE)4, (BYTE)4, (BYTE)0, NULL);
  85         if (c != 0) {
  86                 c128_perror(c, "cbm_open(printer)");
  87                 save_items();
  88                 save_credits();
  89                 exit(1);
  90         }
  91         c = cbm_write((BYTE)4, print_buffer, strlen(print_buffer));
  92         if (c != strlen(print_buffer)) {
  93                 c128_perror(c, "write(printer)");
  94                 save_items();
  95                 save_credits();
  96                 exit(1);
  97         }
  98         cbm_close((BYTE)4);
  99         log_file(print_buffer);
 100 }
 101
 102 /* Dialog, der einen durch's Abrechnen der Einträge führt */
 103 void buy(BYTE n) {
 104         int negative = 1;
 105         char entered[5] = {'1', 0, 0, 0, 0};
 106         BYTE i = 0, matches = 0;
 107         BYTE c, nickname_len;
 108         int einheiten;
 109         char *nickname;
 110
 111         if (status.status[n].item_name == NULL) {
 112                 cprintf("FEHLER: Diese Einheit existiert nicht.\r\n");
 113                 return;
 114         }
 115         cprintf("Wieviel Einheiten \"%s\"? [1] \r\n", status.status[n].item_name);
 116         while (1) {
 117                 c = getchar();
 118                 if (c == 13)
 119                         break;
 120                 else if (c == 27) {
 121                         cprintf("Kauf abgebrochen, druecke RETURN...\r\n");
 122                         get_input();
 123                         return;
 124                 } else if (c == '-' && i == 0)
 125                         negative = -1;
 126                 else if (c > 47 && c < 58)
 127                         entered[i++] = c;
 128         }
 129         einheiten = atoi(entered) * negative;
 130
 131         toggle_videomode();
 132         cprintf("%dx %s fuer ", einheiten, status.status[n].item_name);
 133         toggle_videomode();
 134
 135         cprintf("\r\nAuf ein Guthaben kaufen? Wenn ja, Nickname eingeben:\r\n");
 136         nickname = get_input();
 137         toggle_videomode();
 138         cprintf("%s\r\n", nickname);
 139         toggle_videomode();
 140
 141         if (nickname != NULL && *nickname != '\0' && *nickname != 32) {
 142                 nickname_len = strlen(nickname);
 143                 /* go through credits and remove the amount of money or set nickname
 144                  * to NULL if no such credit could be found */
 145                 for (c = 0; c < credits.num_items; ++c)
 146                         if (strncmp(nickname, credits.credits[c].nickname, nickname_len) == 0) {
 147                                 if ((signed int)credits.credits[c].credit < ((signed int)status.status[n].price * einheiten)) {
 148                                         cprintf("Sorry, %s hat nicht genug Geld :-(\r\n", nickname);
 149                                         return;
 150                                 }
 151                                 /* Geld abziehen */
 152                                 credits.credits[c].credit -= (status.status[n].price * einheiten);
 153                                 cprintf("\r\nVerbleibendes Guthaben fuer %s: %d Cents. Druecke RETURN...\r\n",
 154                                         nickname, credits.credits[c].credit);
 155                                 toggle_videomode();
 156                                 cprintf("\r\nDein verbleibendes Guthaben betraegt %d Cents.\r\n", credits.credits[c].credit);
 157                                 toggle_videomode();
 158                                 get_input();
 159                                 matches++;
 160                                 break;
 161                         }
 162                 if (matches == 0) {
 163                         cprintf("\r\nNickname nicht gefunden in der Guthabenverwaltung! Abbruch, druecke RETURN...\r\n");
 164                         get_input();
 165                         return;
 166                 }
 167         } else {
 168                 /* Ensure that nickname is NULL if it's empty because it's used in print_log */
 169                 nickname = NULL;
 170         }
 171
 172         status.status[n].times_sold += einheiten;
 173         money += status.status[n].price * einheiten;
 174         items_sold += einheiten;
 175         if (printing == 1)
 176                 print_log(n, einheiten, nickname);
 177 }
 178
 179 void set_time_interactive() {
 180         BYTE part[3] = {'0', '0', '\0'};
 181         BYTE tp1, tp2, tp3;
 182         char *time_input, *time;
 183         cprintf("Gib die aktuelle Uhrzeit ein (Format HHMMSS):\r\n");
 184         time_input = get_input();
 185         part[0] = time_input[0];
 186         part[1] = time_input[1];
 187         tp1 = atoi(part);
 188         part[0] = time_input[2];
 189         part[1] = time_input[3];
 190         tp2 = atoi(part);
 191         part[0] = time_input[4];
 192         part[1] = time_input[5];
 193         tp3 = atoi(part);
 194         set_time(tp1, tp2, tp3);
 195
 196         time = get_time();
 197         cprintf("Zeit gesetzt: %s\r\n", time);
 198 }
 199
 200 int main() {
 201         char *c;
 202         toggle_videomode();
 203         /* Zeit erstmalig setzen */
 204         set_time_interactive();
 205         POKE(216, 255);
 206         /* Variablen zurechtbiegen */
 207         credits.num_items = 0;
 208         status.num_items = 0;
 209         /* Konfigurationsdatei laden */
 210         load_config();
 211         /* Einträge (=Getränke) und Zustand laden */
 212         load_items();
 213         /* Guthaben laden */
 214         load_credits();
 215         while (1) {
 216                 /* Bildschirm anzeigen */
 217                 print_screen();
 218                 /* Tastatureingaben abfragen */
 219                 c = get_input();
 220                 /* und eventuell weitere Dialoge anzeigen */
 221                 if (*c > 47 && *c < 58) {
 222                         buy((*c) - 48);
 223                         toggle_videomode();
 224                         clrscr();
 225                         toggle_videomode();
 226                 }else if (*c == 's') {
 227                         /* Zustandsdatei schreiben */
 228                         save_items();
 229                         save_credits();
 230                         cprintf("Statefile/Creditfile gesichert, druecke RETURN...\r\n");
 231                         get_input();
 232                 } else if (*c == 'd') {
 233                         /* Drucken an- oder ausschalten */
 234                         printing = (printing == 1 ? 0 : 1);
 235                         cprintf("Drucken ist nun %s, druecke RETURN...\r\n",
 236                                 (printing == 1 ? "eingeschaltet" : "ausgeschaltet"));
 237                         get_input();
 238                 } else if (*c == 'g') {
 239                         /* Guthabenverwalter aufrufen */
 240                         credit_manager();
 241                 } else if (*c == 'z') {
 242                         /* Zeit setzen */
 243                         set_time_interactive();
 244                 } else if (*c == 'n') {
 245                         strcpy(status.status[status.num_items].item_name, "mate");
 246                         status.status[status.num_items].price = 23;
 247                         status.status[status.num_items].times_sold = 5;
 248                         status.num_items++;
 249                 } else if (*c == 'q')
 250                         break;
 251         }
 252         cprintf("BYEBYE\r\n");
 253 }