Const key_return = 28, key_tab=15,key_gros = 42
Dim zutat_gadget(20,1)
Dim zutat_name$(200) : zutat_name$(0)="-"
Dim resource_name$(200)
Dim resource_gadget(200)
Dim coctail_name$(200)
Dim coctail_zutat$(200,200)
Dim coctail_menge$(200,200)
Dim coctail_zubereitung$(200)

Global pfad$=CurrentDir$()
If Right$(pfad$,1)<>"\" Then pfad$=pfad$+"\"
Global coctails, curcoctail, zutaten
Global event, events, old_events
Global resourcen
Global selected_resource

zutaten_lesen

Global win = CreateWindow("Coctail hinzufügen",0,0,400,450,0,1)
Global end_win = CreateWindow("Programm beenden",300,300,250,150,0,1)
Global resource_win_y = 400
Global resource_win = CreateWindow("Verfügbare Produkte",200,200,600,resource_win_y,0,1)

HideGadget end_win
HideGadget resource_win

CreateLabel("Zutat",40,75,100,20,win)
CreateLabel("Menge",125,75,50,20,win)
CreateLabel("Zubereitung",260,140,100,25,win)
CreateLabel("Name",10,10,100,20,win)
CreateLabel("Cocatail",200,10,50,20,win)
CreateLabel("Sicher? Wollen Sie beenden?"+Chr$(13)+Chr$(10)+"       Habe Sie gesichert?",60,20,150,30,end_win)

Global name = CreateTextField(10,35,150,20,win)
Global coctail = CreateListBox(200,30,175,100,win)
neu      = CreateButton("Neuer Coctail",235,325,100,20,win)
loeschen  = CreateButton("Löschen",290,355,100,20,win)
speichern = CreateButton("Speichern",180,385,100,20,win)
ende      = CreateButton("Ende",290,385,100,20,win)
verfuegbar_check = CreateButton("Verfuegbarkeit anzeigen",250,10,150,15,win,2)
Global verfuegbar

      resource_open  = CreateButton("Verfügbare Zutaten",180,355,100,20,win)
Global resource_save  = CreateButton("Speichern",250,330,100,20,resource_win)
Global resource_ok    = CreateButton("Ok",100,330,100,20,resource_win)
Global resource_combo = CreateComboBox(50,300,100,20,resource_win)
Global resource_new   = CreateButton("Hinzufügen",150,300,100,20,resource_win)
Global resource_del     = CreateButton("Löschen",300,300,80,20,resource_win)
Global ende_ja      = CreateButton("Ja",10,90,100,20,end_win)
Global ende_nein   = CreateButton("Abbrechen",130,90,100,20,end_win)
Global zubereitung = CreateTextArea(200,165,175,150,win)

resourcen_lesen

For a=0 To 11
 
 box = a + 1
 zutat_gadget(box,0) = CreateComboBox(10,100+a*25,100,20,win)
 zutat_gadget(box,1) = CreateTextField(120,100+a*25,50,20,win)
 For nr = 0 To zutaten
  AddGadgetItem zutat_gadget(box,0),zutat_name$(nr)
 Next
Next
oldcoctail=0
select_coctail(0) : SelectGadgetItem coctail,0

coctails_lesen

hinweis = LoadSound("C:\Windows\Media\Windows XP-Hinweis.wav")


Repeat
 oldcoctail = curcoctail
 If events<>0 Then old_events = events

 event = WaitEvent() : events = EventSource()
 curcoctail=SelectedGadgetItem(coctail)
 If curcoctail<>oldcoctail
  select_coctail(curcoctail)
 End If
 If events = neu Then new_coctail
 If events = speichern Then save : Notify "Coctails gespeichert"
 If events = ende Then PlaySound hinweis : quit
 If events = loeschen Then loesche_coctail(curcoctail)
 If events = resource_open Then resource_bearbeiten
 If events = verfuegbar_check Then verfuegbar = ButtonState(verfuegbar_check) : refresh_coctails
 If event = $803 Then PlaySound hinweis : quit
 refresh

Forever

Function new_coctail()
 coctails = coctails+1 : n = coctails
 coctail_name$(n)="Neuer Coctail" : coctail_name$(n)=""
 select_coctail(n-1)
 curcoctail=n-1
 refresh_coctails : ActivateGadget name
End Function


Function refresh()
 st$ = TextFieldText(name) : n=curcoctail+1 : zutat_nr=1
 If st$<>coctail_name$(n) Then coctail_name$(n)=st$ : refresh_coctails
 For box=1 To 12

  selected = SelectedGadgetItem(zutat_gadget(box,0))
  inhalt$ = TextFieldText(zutat_gadget(box,1))
  If selected>0
   ; Bei Änderung in der combo(Nur für Überprüfung ob der Coctail noch funktioniert)
   If (coctail_zutat$(n,zutat_nr)<>zutat_name$(selected)) Then coctail_zutat$(n,zutat_nr)=zutat_name$(selected) : re=1 : ActivateGadget  zutat_gadget(zutat_nr,0)
   coctail_menge(n,zutat_nr)=inhalt : zutat_nr=zutat_nr+1
  End If

 Next
 st$ = TextAreaText(zubereitung)
 coctail_zubereitung(n)=delbr(st$)
 If re=1 Then refresh_coctails
End Function

Function resource_bearbeiten()
 ShowGadget resource_win : DisableGadget win

 While ok=0
   ev = WaitEvent()
   mx = MouseX()
   my = MouseY()
   source = EventSource() : c = resource_combo : anzahl = CountGadgetItems(c)
   Select source
    Case resource_ok : EnableGadget win : ActivateGadget win : ok=1
    Case resource_new
     If anzahl>0
      nr = SelectedGadgetItem(c) : st$=GadgetItemText$(c,nr)
      resourcen = resourcen + 1 : resource_name$(resourcen)=st$
      refresh_resource(0)
     End If
    Case resource_del : delete_resource(selected_resource)
    Case resource_save : save_resourcen : Notify "Verügbare Produkte gespeichert"
   End Select     
   If ev=$101 Then delete_resource(selected_resource)
   If ev=$201 Then select_resource mx,my
 Wend

 HideGadget resource_win
 refresh_coctails ; Refresh, falls Resourcen geändert wurden. Damit die Verfügbarkeit angezeigt wird
End Function

Function refresh_coctails()
 ClearGadgetItems coctail
 If coctails<=0 Then coctails=1 : coctail_name$(1)="Neuer Coctail" : curcoctail=0

 For a=1 To coctails

  If verfuegbar=1
   machbar=1 : If resourcen=0 Then machbar=0
   For coc_zu=1 To 200
    st$=coctail_zutat$(a,coc_zu) : If st$="" Or machbar=0 Then Exit
    found=0
    For b=1 To resourcen
     If st$=resource_name$(b) Then found=1 : Exit
    Next : If found=0 Then machbar=0
   Next
  End If

  If machbar=1 Then zu$="       OK!" Else zu$=""
  AddGadgetItem coctail,coctail_name$(a)+zu$

 Next
 select_coctail(curcoctail)
End Function

Function refresh_resource(all=1)
 ClearGadgetItems resource_combo
 For zu = 1 To zutaten
    zu_name$ = zutat_name$(zu) : no_entry=0
    For a=1 To 200
     If resource_gadget(a)>0 And all Then FreeGadget resource_gadget(a) : resource_gadget(a)=0
      If resource_name$(a)=zu_name$ Then no_entry=1
    Next

   If no_entry=0 Then AddGadgetItem resource_combo,zu_name$
 Next
 SelectGadgetItem resource_combo,0

 x=20 : y=20 : s = selected_resource
 For a=1 To resourcen
  st$ = resource_name$(a) : If s=a Then rahmen=1
  If all Or a=resourcen Then resource_gadget(a) = CreateLabel(st$,x,y,80,14,resource_win,rahmen)
  rahmen=0 : y=y+15 : If y>270 Then y=20 : x=x+90
 Next
End Function

Function delete_resource(nr)
 If nr>0
 For a=nr To resourcen-1
  resource_name$(a)=resource_name$(a+1)
 Next : resource_name$(resourcen)="" : resourcen = resourcen - 1
 If nr>resourcen Then selected_resource=resourcen
 refresh_resource()
 End If
End Function

Function select_resource(wx,wy)
 c = resource_win : s = selected_resource
 wx = wx - GadgetX(c) : maxy = resource_win_y
 wy = (wy-(maxy-ClientHeight(c))) - GadgetY(c)
 x=20 : y=20
 selected_resource=0
 For a=1 To resourcen

  If s=a And wy<290
   FreeGadget resource_gadget(s)
   resource_gadget(s) = CreateLabel(resource_name$(s),x,y,80,14,resource_win)
  End If

  If wx>-1
   If wx>=x And wx<=x+80 And wy>=y And wy<=y+14
    FreeGadget resource_gadget(a)
    resource_gadget(a) = CreateLabel(resource_name$(a),x,y,80,14,resource_win,1)
    selected_resource = a
   EndIf
  End If
  y=y+15 : If y>270 Then y=20 : x=x+90
 Next
 If wy>290 Then selected_resource=s
End Function

Function quit()
 ShowGadget end_win : DisableGadget win
 While Not ok
  WaitEvent()
  Select EventSource()
   Case ende_ja : End
   Case ende_nein : HideGadget end_win : EnableGadget win : ActivateGadget win : ok=1
  End Select
 Wend
End Function

Function save()
 ChangeDir pfad$
 save_resourcen
 f = WriteFile("coctails.txt")
 For n=1 To coctails
  st$ = coctail_name$(n)+";"
  For a=1 To 12
  z$ = coctail_zutat$(n,a) : If z$<>"" Then z$=z$+"="+Str$(coctail_menge(n,a))+";"
  st$=st$+z$
  Next : st$=st$+coctail_zubereitung$(n)+";"
  WriteLine(f,st$)

 Next

 CloseFile(f)
End Function

Function save_resourcen()
 f = WriteFile("resourcen.txt")
 For a=1 To resourcen
  If a<resourcen Then z$=";" Else z$=""
  st$=st$+resource_name$(a)+z$
 Next
 WriteLine(f,st$)
 CloseFile f
End Function

Function select_coctail(nr)
 nr = nr+1
 SelectGadgetItem coctail,nr-1
 SetGadgetText name,coctail_name$(nr)
 SetGadgetText zubereitung,makebr(coctail_zubereitung$(nr))
 For a=1 To 12
  SelectGadgetItem zutat_gadget(a,0),0
  SetGadgetText zutat_gadget(a,1),""
 Next
 zutat_nr=1
 For a=1 To 12

  st$ = coctail_zutat(nr,a) : menge$ = coctail_menge$(nr,a)
  If st$<>""

   For search=1 To zutaten
    If zutat_name$(search)=st$
     box=box+1
     SelectGadgetItem zutat_gadget(box,0),search
     SetGadgetText zutat_gadget(box,1),menge$
     Exit
    End If
   Next

  End If
 

 Next
End Function

Function chosegadget()
  s = old_events
  If s>0
  If s=name Then g=zutat_gadget(1,0)
  For a=1 To 12
   If s = zutat_gadget(a,0) Then g = zutat_gadget(a,1)
   If s = zutat_gadget(a,1) And a<12 Then g = zutat_gadget(a+1,0)
  Next
  If s = zutat_gadget(12,1) Then g = zubereitung
  If s = zubereitung Then g = coctail
  If s = coctail Then g = name
  If g>0 Then ActivateGadget g
  End If
End Function

Function loesche_coctail(nr)
nr=nr+1
For a=nr To coctails-1
 coctail_name$(a)=coctail_name$(a+1)
 For b=1 To 12 : coctail_zutat$(a,b)=coctail_zutat$(a+1,b) : coctail_menge$(a,b)=coctail_menge$(a+1,b) : Next
 coctail_zubereitung$(a)=coctail_zubereitung$(a+1)
Next

;Der Letzte eintrag ist doppelt, löschen...
coctail_name$(coctails)=""
For b=1 To 12 : coctail_zutat$(coctails,b)="" : coctail_menge$(coctails,b)=0 : Next
coctail_zubereitung$(coctails)=""

;Coctailanzahl verringern und coctail auswählen
coctails=coctails-1

If curcoctail>coctails-1 Then curcoctail=curcoctail-1 : SelectGadgetItem coctail, curcoctail
refresh_coctails()

End Function

Function zutaten_lesen()
 ChangeDir pfad$
 If FileType("zutaten.txt")
 f = ReadFile("zutaten.txt") :  nr = 1
 While Not Eof(f)
  st$ = ReadLine$(f) : newst$=""
  For a=1 To Len(st$)
   z$ = Mid$(st$,a,1)
   If z$=";" Or a=Len(st$)
    If a=Len(st$) Then newst$=newst$+Mid$(st$,a,1)
    zutat_name$(nr) = newst$ : newst$="" : z$="": nr=nr+1
   End If
   newst$=newst$+z$
  Next
 Wend : zutaten = nr-1
 CloseFile f
 Else
  Print "Es existiert keine 'zutaten.txt' Bitte erstellen Sie diese Datei"
  Print "Programm Stopp" : WaitKey() : End
 End If
End Function

Function resourcen_lesen()
 If FileType("resourcen.txt")=1
  f = ReadFile("resourcen.txt") :  nr = 1
  While Not Eof(f)
   st$ = ReadLine$(f) : newst$=""
   For a=1 To Len(st$)
   z$ = Mid$(st$,a,1)
    If z$=";" Or a=Len(st$)
    If a=Len(st$) Then newst$=newst$+Mid$(st$,a,1)
    resource_name$(nr) = newst$ : newst$="" : z$="": nr=nr+1
   End If
   newst$=newst$+z$
  Next

 Wend : resourcen = nr-1

 CloseFile f
 End If : refresh_resource

End Function
Function coctails_lesen()

 ChangeDir pfad$

 If FileType("coctails.txt")=1
 f = ReadFile("coctails.txt")
 While Not Eof(f)
  st$ = ReadLine$(f) : nr = 1 : name_ok=0
  coctails=coctails+1

  For a=1 To Len(st$)
   z$ = Mid$(st$,a,1)
   If z$=";"

    If name_ok=1 And a<Len(st$)
     coctail_zutat$(coctails,nr)=befehl$(newst$,"=")
     coctail_menge(coctails,nr)=wert(newst$,"=")
     nr=nr+1
    End If

    If name_ok=0 Then coctail_name$(coctails) = newst$ : AddGadgetItem coctail,newst$ : name_ok=1

    If a=Len(st$) Then coctail_zubereitung$(coctails) = newst$
    newst$="" : z$=""
   End If
   newst$=newst$+z$
  Next : newst$=""

 Wend : CloseFile f
 End If
 refresh_coctails
End Function

Function befehl$(st$,find$)
 For a=1 To Len(st$)
  If Mid$(st$,a,1)=find$ Then st$=Left$(st$,a-1) : Exit
 Next
 Return st$
End Function

Function wert$(st$, find$ = "=")
 For a=1 To Len(st$)
  If Mid$(st$,a,1)=find$ Then st$=Right$(st$,Len(st$)-a)
 Next
 Return st$
End Function

Function delbr$(st$)
For a=1 To Len(st$)
b$=Mid$(st$,a,1)
 If Asc(b$)=13 Then a=a+1 : h$=h$+Chr$(1) Else h$=h$+b$
Next
Return h$
End Function

Function makebr$(st$)
For a=1 To Len(st$)
b$=Mid$(st$,a,1)
 If Asc(b$)=1 Then h$=h$+Chr$(13)+Chr$(10) Else h$=h$+b$
Next
Return h$
End Function

Amaretto;Ananassaft;Angostura;Anisette;Apfelsaft;Apricot Brandy;Aquavit
Bananenlikör(Crème de Bananes);Barak Palinka;Bitter Lemon;Bitter Orange;Blue Curacao;Blutorangensaft;Brauner Rum;Brombeerlikör
Calvados;Campari;Cassis;Chartreuse Verte;Cherry Brandy;Cognac;Cola;Cointreau;Crème de Cacao;Curacao Triple Sec
Drambuie;Dubonnet
Eigelb;Eiweiß;Erbeeren;Erbeersirup
Galliano;Gin;Ginger Ale;Granatapfelsirup;Grand Marnier;Grapefruitsaft;Grenadin
Himbeergeist
Irish Cream Likör
Jamaica Rum;Jambosala
Kaffeelikör;Kakao;Kalúa;Kirschwasser;Kiwi;Kiwi(püriert);Kokosnusscreme;Kokossirup;Korn
Läuterzucker;Limettensaft,Limettensirup
Mandellikör;Maracujasaft;Maraschino
Orangensaft;Orangenlikör
Parfait Armour;Pernod;Pfefferminzsirup;Pfirsichlikör;Pfirsich-Nektar;Portwein
Sahne;Salz;Sangrita;Scotch Wiskey;Slivovitz;Sodawasser;Southern Comfort
Tequila;Tomatensaft;Tonic Water;Traubensaft
Vanille Pulver;Vermouth Dry;Vermouth Rosso
Weißer Rum;Weißwein(trocken);Weizenkorn;Wodka
Zitronensaft;Zucker;Zuckersirup

SelectGadgetItem coctail,nr-1