Wieso krieg ich da kein Geld raus?
Verfasst: 22.11.2008 11:28
Irgendwas muss ich falsch gemacht haben, ich krieg irgendwie kein Geld aus meinem Programm. Dabei hab ich auch ne Finanzkrise, hab gestern beim Saufen fast meine ganzes BAföG auf den Kopp gehauen. Kann da einer helfen? Hier mein Code:
Code: Alles auswählen
;- Includes
IncludePath "Geldsack"
IncludeFile "Angelas Spendierhosen.pbi"
IncludeFile "Ypsilanti-und-die Kommunisten-Kochs Portemonaie.pbi"
IncludeFile "Glos-Langsamredners-Aschesäckle.pbi"
IncludeFile "Lafontaines-KGB-Börse.pbi"
IncludeFile "Gysis-trotz-Armanikutte-den-Kommunismus-predigend-Stasisparbüchse.pbi"; preach water, drink wine
;- Konstanten
Enumeration
Bankenkrise
Opelkrise
Trabbikrise
Beziehungskrise
EndEnumeration
;- Main
Open_Bettelwindow ()
Repeat
If Wahlkampf = 1
SetGadgetText(Politkerschnute, "Leute, ihr braucht euch da keine Sorgen machen, wir greifen euch da schon unter die Arme! Das Geld ist da, wir müssen es nur verteilen!")
Else
SetGadgetText(Politkerschnute, "Zur Zeit zwingen uns haushaltsrechtliche Vorgaben zur Sparsamkeit, da ist leider im Moment kein Spielraum vorhanden.")
EndIf
If Großbank = #Sich_mit_undurchsichtigen_Derivaten_und_Zertifikaten_verhoben
;Selberausbaden_da_wir_immerhin_in_einer_Marktwirtschaft_leben_wenngleich_in_einer_sozialen = 1 // canceled
Steuergelder = #Saftig_reinpumpen
EndIf
If Arbeitsplätze = #Bedroht And Not Arbeitsplätze = #Die_von_Leiharbeitern_die_aufgrund_der_Liberalisierung_des_Arbeitsrechts_den_Status_von_modernen_Sklaven_haben
Staat (medienwirksam_Helfen)
EndIf
Until Staatskasse = #leer