home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 March / PCO3_97.ISO / filesbbs / dos / kiosk151.arj / KID.ZIP / STRUCT.KSK < prev   
Encoding:
Text File  |  1996-12-07  |  14.9 KB  |  248 lines
  1. (* STRUCT.KSK; Copyright liegt bei (C)atbytes Software!
  2.    Diese Datei darf verwendet werden, um eigene Zusatz-Doors fuer
  3.    KIOSK zu schreiben *)
  4.  
  5. (* ACHTUNG: FOLGENDER RECORD IST _NICHT_ DIE ORIGINALSTRUKTUR DER KIOSK
  6.    DATEN-DATEIEN !!! *)
  7.  
  8. TYPE
  9.   DropFileRec = RECORD (* KIOSK.DRP *)
  10.                   Door_Name          : STRING [25];    (* Siehe Unten *)
  11.                   Progger_Name       : STRING [25];    (* dito *)
  12.                   Aktiv_User         : LONGINT;        (* Seek des aktuellen Users *)
  13.                   Real_Name          : STRING [35];    (* RealName des Users *)
  14.                   Kiosk_Handle       : STRING [20];    (* Kiosk-Handle *)
  15.                   Kiosk_Name         : STRING [20];    (* Name des Kiosk's *)
  16.                   Last_Online        : ARRAY [1..3] OF (* Letzter Besuch bei Kiosk
  17.                                                           Array[1]=Tag
  18.                                                           Array[2]=Monat
  19.                                                           Array[3]=Jahr *)
  20.                   WORD;
  21.                   Last_Online_Tag    : STRING [10];    (* Wochentag (dito) *)
  22.                   DM                 : REAL;           (* Guthaben (Bargeld) *)
  23.                   Wurst,                               (* Bestand -Wurst- *)
  24.                   HotDog,                              (* Bestand -HotDog- *)
  25.                   Cola,                                (* Bestand -Cola- *)
  26.                   S_Eis,                               (* Bestand -Schoko-Eis- *)
  27.                   E_Eis,                               (* Bestand -Erdbeer-Eis- *)
  28.                   V_Eis,                               (* Bestand -Vanille-Eis- *)
  29.                   H_Eis,                               (* Bestand -Himbeer-Eis- *)
  30.                   Pommes,                              (* Bestand -Pommes- *)
  31.                   Zigaretten,                          (* Bestand -Zigaretten- *)
  32.                   Brot,                                (* Bestand -Broetchen- *)
  33.                   Zeitung,                             (* Bestand -Zeitung- *)
  34.                   Lose,                                (* Bestand -Lose- *)
  35.                   Mikro,                               (* Bestand -Mikro's- *)
  36.                   Kaffee,                              (* Bestand -Kaffee's- *)
  37.                   Kondome,                             (* Bestand -Kondome- *)
  38.                   Kunden,                              (* Anzahl der Kunden *)
  39.                   SpielTage,                           (* Anzahl der Spieltage*)
  40.                   Punkte,                              (* Punkte *)
  41.                   Spiele             : LONGINT;        (* Spiele (Heute) *)
  42.                   Zusatz             : ARRAY [1..11] OF(* Zusatz:
  43.                                                        Array[1]=Preistafel
  44.                                                        Array[2]=Zeitungsstaender
  45.                                                        Array[3]=Supermuelleimer
  46.                                                        Array[4]=Eiswuerfelmaschine
  47.                                                        Array[5]=Dunstabzugshaube
  48.                                                        Array[6]=Grosse Eistruhe
  49.                                                        Array[7]=Fritiermaschine
  50.                                                        Array[8]=Spuelmaschine
  51.                                                        Array[9]=4-stelliges Zahlenschloss
  52.                                                        Array[10]=Mikrowelle
  53.                                                        Array[11]=Sonnenschirm
  54.  
  55.                                                        Status:
  56.                                                        0=Hat den Zusatz nicht
  57.                                                        1=Hat den Zusatz *)
  58.                   BYTE;
  59.                   Sonstiges          : ARRAY [1..9] OF (* Sonstiges:
  60.                                                        Array[1]=Mitarbeiter
  61.                                                        Array[2]=Putzfrau
  62.                                                        Array[3]=Dusche
  63.                                                        Array[4]=WC
  64.                                                        Array[9]=Kondomautomat
  65.  
  66.                                                        Status:
  67.                                                        0=Sonstiges nicht aktiv
  68.                                                        1=Sonstiges aktiv
  69.  
  70.                                                        Array[5]=Arbeitstage -Mitarbeiter-
  71.                                                        Array[6]=Arbeitstage -Putzfrau-
  72.                                                        Array[7]=Einsatz (%) in -Dusche-
  73.                                                        Array[8]=Einsatz (%) in -WC- *)
  74.                   BYTE;
  75.                   Werbung            : ARRAY [1..22] OF(* Werbung:
  76.                                                        Array[1]=Handzettel (klein)
  77.                                                        Array[2]=Handzettel (mittel)
  78.                                                        Array[3]=Handzettel (gross)
  79.                                                        Array[4]=Plakate (fest)
  80.                                                        Array[5]=Plakate (laufend)
  81.                                                        Array[6]=Werbewand
  82.                                                        Array[7]=Zeitungswerbung (klein)
  83.                                                        Array[8]=Zeitungswerbung (gross)
  84.                                                        Array[9]=Radiowerbung
  85.                                                        Array[10]=Fernsehwerbung
  86.                                                        Array[21]=Visitenkarten
  87.  
  88.                                                        Status:
  89.                                                        0=Diese Werbung laeuft nicht
  90.                                                        1=Diese Werbung laeuft
  91.  
  92.                                                        Array[11-22]=
  93.                                                        Die Werbetage der einzelnen Werbungen
  94.                                                        (22 = Visitenkarte) *)
  95.                   BYTE;
  96.                   WurstPreis,                          (* VK -Wurst- *)
  97.                   HotDogPreis,                         (* VK -HotDog- *)
  98.                   ColaPreis,                           (* VK -Cola- *)
  99.                   S_EisPreis,                          (* VK -Schoko-Eis- *)
  100.                   E_EisPreis,                          (* VK -Erdbeer-Eis- *)
  101.                   V_EisPreis,                          (* VK -Vanille-Eis- *)
  102.                   H_EisPreis,                          (* VK -Himbeer-Eis- *)
  103.                   PommesPreis,                         (* VK -Pommes- *)
  104.                   ZigarettenPreis,                     (* VK -Zigaretten- *)
  105.                   BrotPreis,                           (* VK -Broetchen- *)
  106.                   ZeitungPreis,                        (* VK -Zeitung- *)
  107.                   LosePreis,                           (* VK -Lose- *)
  108.                   MikroPreis,                          (* VK -Mikro's- *)
  109.                   KaffeePreis,                         (* VK -Kaffee's- *)
  110.                   DuschePreis,                         (* Preis der -Dusche- *)
  111.                   WCPreis,                             (* Preis des -WC's- *)
  112.                   KondomPreis        : REAL;           (* Preis der -Kondome- *)
  113.                   Standort,                            (* Der Standort:
  114.                                                        0=Popliger Parkplatz
  115.                                                        1=Kleiner Parkplatz
  116.                                                        2=Normaler Parkplatz
  117.                                                        3=Grosser Parkplatz
  118.                                                        4=Kleines Krankenhaus
  119.                                                        5=Normales Krankenhaus
  120.                                                        6=Grosses Krankenhaus
  121.                                                        7=Fussgaengerzone
  122.                                                        8=Marktplatz
  123.                                                        9=Bahnhof *)
  124.                   Kopf,                                (* Nr. des Kopfes (1-6) *)
  125.                   Status,                              (* UNBELEGT *)
  126.                   Kiosk              : BYTE;           (* Welcher Kiosk:
  127.                                                        3=Bruchbude
  128.                                                        13=Holzbude
  129.                                                        23=Normaler Kiosk
  130.                                                        33=Luxus Kiosk
  131.                                                        43=Super Kiosk *)
  132.                   Geheimzahl,                          (* Geheimzahl (verschluesselt) *)
  133.                   Servietten,
  134.                   Sticks,
  135.                   Salz,
  136.                   Ketchup,
  137.                   Senf,
  138.                   Wuermer,
  139.                   Salmonellen,
  140.                   Wurm_Schaden       : WORD;
  141.                   WurmTage,
  142.                   SalmoTage,
  143.                   HundeTage,
  144.                   Katzentage         : BYTE;
  145.                   HundeService,
  146.                   KatzenService      : BOOLEAN;
  147.                   Lotto              : ARRAY [1..50] OF(* Lotto:
  148.                                                        Array[1-48]=Zahlen
  149.  
  150.                                                        Status:
  151.                                                        0=Zahl ist nicht getippt
  152.                                                        1=Zahl wurde getippt
  153.  
  154.                                                        Array[49]=Anzahl der Spielreihen
  155.                                                        Array[50]=Tage zur Ziehung *)
  156.  
  157.                   BYTE;
  158.                   Sabot              : ARRAY [1..8] OF(*Sabotieren:
  159.                                                       Array[1]=Spieler hat Heute sabotiert
  160.                                                       Array[2]=Mitspieler wurde sabotiert
  161.                                                       Array[3]=Wieviel DM wurden gestohlen
  162.                                                       Array[4]=Wer hat sabotiert (SEEK-Nr.)
  163.                                                       Array[5]=Welches Geraet wurde zerstoert (1-10 - wie bei Zusatz)
  164.                                                       Array[6]=Sabotage auf Zusatz wurde probiert
  165.                                                       Array[7]=Es wurde versucht zu sabotieren
  166.                                                       Array[8]=Versuch hat geklappt *)
  167.                   BYTE;
  168.                 END;
  169.  
  170.   (* ACHTUNG: FOLGENDER RECORD IST DIE ORIGINALSTRUKTUR DER KIOSK
  171.    DATEN-DATEI <BANK.DAT> !!!
  172.  
  173.    DIE SEEK-ZUGRIFFE SIND IDENTISCH MIT DEN ZUGRIFFEN DES RECORDS
  174.    <DROPFILEREC>. *)
  175.  
  176. TYPE
  177.   BankFileRec = RECORD (* BANK.DAT *)
  178.                   Name      : STRING [35];    (* RealName des Users *)
  179.                   Guthaben,                   (* Kontostand des Users *)
  180.                   Schulden,                   (* UNBELEGT *)
  181.                   GutZins,                    (* Zins bei Guthaben *)
  182.                   DispoZins : REAL;           (* Zins bei Ueberziehung *)
  183.                   Leihtag   : ARRAY [1..3] OF (* Leihtag:
  184.                                           Array[1]=Tag
  185.                                           Array[2]=Monat
  186.                                           Array[3]=Jahr *)
  187.                   WORD;
  188.                   Leihtage  : BYTE;           (* Anzahl der Leihtage bei Kredit *)
  189.                   BGuthaben : REAL;           (* UNBELEGT *)
  190.                   LastDay   : BYTE;           (* INTERN - Nicht aendern *)
  191.                   A_Text    : ARRAY [1..8] OF (* Auszugstext (1-8) *)
  192.                   STRING [45];
  193.                   A_Datum   : ARRAY [1..8] OF (* Auszugsdatum (1-8) *)
  194.                   STRING;
  195.                   A_Status  : ARRAY [1..8] OF (* Auszugsstatus (1-8)
  196.                                           Wert:
  197.                                           1=Einzahlung
  198.                                           2=Auszahlung *)
  199.                   BYTE;
  200.                   A_Wert    : ARRAY [1..8] OF (* Auszugswert (DM) (1-8) *)
  201.                   REAL;
  202.                   Future    : ARRAY [1..5] OF (* UNBELEGT *)
  203.                   REAL;
  204.                   Future1   : ARRAY [1..5] OF (* UNBELEGT *)
  205.                   BYTE;
  206.                 END;
  207.  
  208.   (* ACHTUNG: FOLGENDER RECORD IST DIE ORIGINALSTRUKTUR DER KIOSK
  209.    DATEN-DATEI <LAGER.DAT> !!!
  210.  
  211.    DIE SEEK-ZUGRIFFE SIND _NICHT_ IDENTISCH MIT DEN ZUGRIFFEN DES RECORDS
  212.    <DROPFILEREC>. ES MUSS UNTER <LS_NAME> ZUERST GESUCHT WERDEN.
  213.    ODER EINFACH DIE FUNKTION <LAGERSEEK> BENUTZEN! *)
  214.  
  215.   LagerFileRec = RECORD (* LAGER.DAT *)
  216.                    LWurst,                                      (* Auf Lager -Wuerstchen- *)
  217.                    LHotDog,                                     (* Auf Lager -HotDog- *)
  218.                    LCola,                                       (* Auf Lager -Cola- *)
  219.                    LS_Eis,                                      (* Auf Lager -Schoko-Eis- *)
  220.                    LE_Eis,                                      (* Auf Lager -Erdbeer-Eis- *)
  221.                    LV_Eis,                                      (* Auf Lager -Vanille-Eis- *)
  222.                    LH_Eis,                                      (* Auf Lager -Himbeer-Eis- *)
  223.                    LPommes,                                     (* Auf Lager -Pommes- *)
  224.                    LZigaretten,                                 (* Auf Lager -Zigaretten- *)
  225.                    LBrot,                                       (* Auf Lager -Broetchen- *)
  226.                    LZeitung,                                    (* Auf Lager -Zeitung- *)
  227.                    LLose,                                       (* Auf Lager -Lose- *)
  228.                    LMikro,                                      (* Auf Lager -Mikro- *)
  229.                    LKaffee          : LONGINT;                  (* Auf Lager -Kaffee- *)
  230.                    LS_Name          : STRING [35];               (* RealName des Users *)
  231.                    Kap              : ARRAY [1..20] OF
  232.                    INTEGER; (* Kapazitaet *)
  233.                    Future           : ARRAY [1..5] OF
  234.                    LONGINT;  (* UNBELEGT *)
  235.                    Future1          : ARRAY [1..5] OF
  236.                    INTEGER;  (* UNBELEGT *)
  237.                  END;
  238. VAR
  239.   DropFile  : FILE OF
  240.   DropFileRec;
  241.   DropRec   : DropFileRec;
  242.   BankFile  : FILE OF
  243.   BankFileRec;
  244.   BankRec   : BankFileRec;
  245.   LagerFile : FILE OF
  246.   LagerFileRec;
  247.   LagerRec  : LagerFileRec;
  248.