;========================
; Holzchopfs ausführliche Variante

; Initialisierung
Graphics 400,300,16,2

Const menge1_max = 450
Const menge2_max = 500
Const menge3_max = 600
Const menge4_max = 750


; Eingabe

menge1 = Input( "Gramm von Zutat 1:" )
menge2 = Input( "Gramm von Zutat 2:" )
menge3 = Input( "Gramm von Zutat 3:" )
menge4 = Input( "Gramm von Zutat 4:" )

Print "Beträgt die Raumptemperatur 30°C oder mehr? [J/N]"
raumtemp = ( Lower( Input$() ) = "j" )
Print "Ist der Arbeitsplatz sauber? [J/N]"
sauber = ( Lower( Input$() ) = "j" )
Print "Wird eine Absaugvorrichtung verwendet? [J/N]"
absaug = ( Lower( Input$() ) = "j" )

; Berechnung nach dem Schema:
;
;            ,--,  ,---,  ,--,
; Zutat 1 ---|>0|--|   |  |  |
;            :--:  |AND|--|  |
; Zutat 4 ---|>0|--|   |  |  |
;            `--`  `---`  |  |
;                         |  |
; Zutat 1 max -,          |  |
;              |          |  |
;            ,--,  ,--,   |  |
; Zutat 1 ---|> |--|  |   |  |
;            `--`  |  |   |  |
; Zutat 2 max -,   |  |   |  |
;              |   |  |   |  |
;            ,--,  |  |   |  |
; Zutat 2 ---|> |--|  |   |  |
;            `--`  |  |   |  |
; Zutat 3 max -,   |  |   |  |
;              |   |OR|---|  |
;            ,--,  |  |   |  |
; Zutat 3 ---|> |--|  |   |  |
;            `--`  |  |   |OR|--- Explodieren
; Zutat 4 max -,   |  |   |  |
;              |   |  |   |  |
;            ,--,  |  |   |  |
; Zutat 4 ---|> |--|  |   |  |
;            `--`  `--`   |  |
;                         |  |
;            ,---,        |  |
; Zutat 2 ---|   | ,----, |  |
;            | + |-|>600|-|  |
; Zutat 3 ---|   | `----` |  |
;            `---`        |  |
;                         |  |
;            ,--,  ,---,  |  |
; Raumtemp --|  |  |   |  |  |
;            |OR|--|   |  |  |
; Sauber ---o|  |  |AND|--|  |
;            `--`  |   |  |  |
; Absaug ---------o|   |  |  |
;                  `---`  `--`

Explosion = menge1 > 0 And menge4 > 0
Explosion = Explosion Or ( menge1 > menge1_max Or menge2 > menge2_max Or menge3 > menge3_max Or menge4 > menge4_max )
Explosion = Explosion Or ( ( menge2 + menge3 ) > 600 )
Explosion = Explosion Or ( ( raumtemp Or ( Not sauber ) ) And ( Not absaug ) )

; Ausgabe
Print
Print "Das gemisch würde " + Mid$( "nicht ", 1, ( Not Explosion ) * 6 ) + "explodieren!"
Print
Print "Die Verbindung ist stabil: " + ( Not Explosion )
WaitKey()

End

graphics 800,600,32,2
setbuffer frontbuffer()

Const maxGramm1 = 500
Const maxGramm2 = 500
Const maxGramm3 = 500
Const maxGramm4 = 500

local Zutat1,Zutat2,Zutat3,Zutat4
Local Temperatur, Abzug, Dreck
Local Gemisch=0
Local temp,temp2

.start

Zutat1 = Input("Menge 1.Zutat (Gramm): ")
zutat2 = Input("Menge 2.Zutat (Gramm): ")
Zutat3 = Input("Menge 3.Zutat (Gramm): ")
Zutat4 = Input("Menge 4.Zutat (Gramm): ")

Temperatur = Input("Ist die Temperatur über 30°C? (1/0): ")
Abzug = Input("Ist ein Abzug vorhanden? (1/0): ")
Dreck = Input("liegt irgendwo Dreck rum? (1/0): ")
Gemisch = 0

;Abfragen ob man nicht zuviel genommen hat

temp = maxGramm1 - Zutat1
temp = temp Shr 31
Gemisch = Gemisch + temp
;Ausgenutzt wird bei dieser "Abfrage" das Sign-Bit, welches
;Signalisiert, ob eine Zahl negativ oder Positiv ist. Dieses
;bekommt man an die Stelle 1 mit Shr. Wenn es gesetzt war
;ist temp also 1 ansonsten 0

temp = maxGramm2 - Zutat2
temp = temp Shr 31
Gemisch = Gemisch + temp

temp = maxGramm3 - Zutat3
temp = temp Shr 31
Gemisch = Gemisch + temp

temp = maxGramm4 - Zutat4
temp = temp Shr 31
Gemisch = Gemisch + temp

;Abfragen ob die Mischung aus 1 und 4 besteht

temp = - Zutat1
temp = temp Shr 31

temp2 = - Zutat4
temp2 = temp2 Shr 31

temp = temp + temp2
temp = temp shr 1
Gemisch = Gemisch + temp

;Abfragen ob die Summe von 2 und 3 über 600 Gramm ist

temp = 600 - (Zutat2 + Zutat3)
temp = temp shr 31
Gemisch = Gemisch + temp

;Abfragen ob die Temp über 30° ist oder ob es einen Abzug gibt

temp = (Temperatur - Abzug)
temp = temp and 1

Gemisch = Gemisch + temp

;Abfragen ob die Umbegung dreckig ist oder ob es nen Abzug gibt

temp = (Dreck - Abzug)
temp = temp And 1

Gemisch = Gemisch + temp



Print
print Gemisch
Print "1 steht für <<geht in die Luft>>, 0 steht für <<ist stabil>>"
print ".................................."
print
print "nochmal? taste drücken!"
print

waitkey()
goto Start
end

Graphics 640,480
Print "Wilkommen beim Laborsimulator"
Delay 2000
Print
Name$=Input$("Wie ist ihr Name? > ")
Cls
Locate 0, 0
Print "Hallo " + Name$
Delay 2000
Print
Print "Heute werden Sie ein pyrotechnisches Experiment durchführen."
Print "Sie bekommen 4 Zutaten die Sie beliebig mischen können. "
Delay 5000
Print
Print "Seien Sie aber vorsichtig mit der Dosierung, sonnst kann es zu einer heftigen"
Print "Reaktion (warscheinlich Explosion) kommen die alle Substanzen zerstören oder"
Print "sehr gesundheitsschädigen für Sie sein kann."
Print
Print "Weiter mit beliebiger Taste."
WaitKey
Cls
Locate 0, 0
Print "Fangen wir an.
Delay 2000
Print
Print "Diese 4 Zutaten stehen ihnen zur Verfügung:"
Print
Print "1. Schwarzpulver, 2. Strontium, 3. Schwefel, 4. Kaliumnitrat"
Print
Print "Weiter mit beliebiger Taste."
WaitKey
Cls
Locate 0, 0
Konstant=400
Print "Nun folgt das Mischen der Zutaten!"
Print "Geben Sie weiter Unten die Menge für die Substanzen in Gramm an! "
Print "Die maximale Grammzahl pro Zutat darf " + Konstant + " nicht ueberschreiten!"
Print "Soll eine Zutat nicht verwendet werden, geben Sie bitte 0 an!"
Print

z1=Input$("1.Zutat: Schwarzpulver > ")
z2=Input$("2.Zutat: Strontium > ")
z3=Input$("3.Zutat: Schwefel > ")
z4=Input$("4.Zutat: Kaliumnitrat > ")
Repeat
Cls
Locate 0, 0
Print "Haben Sie den laborinternen Sicherheitsabzug in Betrieb?"
Print
Abzug$=Input$("(j/n) ")
Delay 500
While  Not Abzug$="j" Or Abzug$="J" Or Abzug$="n" Or Abzug$="N"
Print
Print "Antworten Sie bitte nur mit j oder n."
Delay 2000
Exit
Wend
Until Abzug$="j" Or Abzug$="J" Or Abzug$="n" Or Abzug$="N"

Repeat
Cls
Locate 0, 0
Print "Ist die aktuelle Raumtemperatur ueber 30°?"
Print
Temperatur$=Input$("(j/n) ")
Delay 500
While  Not Temperatur$="j" Or Temperatur$="J" Or Temperatur$="n" Or Temperatur$="N"
Print
Print "Antworten Sie bitte nur mit j oder n."
Delay 2000
Exit
Wend
Until Temperatur$="j" Or Temperatur$="J" Or Temperatur$="n" Or Temperatur$="N"
Repeat
Cls
Locate 0, 0
Print "Ist der Arbeitsbereich gereinigt?"
Print
Sauber$=Input$("(j/n) ")
Delay 500
While  Not Sauber$="j" Or Sauber$="J" Or Sauber$="n" Or Sauber$="N"
Print
Print "Antworten Sie bitte nur mit j oder n."
Delay 2000
Exit
Wend
Until Sauber$="j" Or Sauber$="J" Or Sauber$="n" Or Sauber$="N"

; Hier werden die Bedingungen für das Ergebnis festgelegt
While z1>0 And z4 >0
Gosub Explosion
Print
Print "Grund: Zutat 1 und 4 Dürfen nicht gemischt werden!"
WaitKey
End
Wend
While z1>Konstant Or z2>Konstant Or z3>Konstant Or z4>Konstant
Gosub Explosion
Print
Print "Grund: Die maximale Grammzahl wurde ueberschritten."
WaitKey
End
Wend
While  z2+z3>600
Gosub Explosion
Print
Print "Grund: Zutat 2 und 3 wurden falsch gemischt."
WaitKey
End
Wend
While  Abzug$="n" Or Abzug$="N" And Temperatur$="j"
Gosub Explosion
Print
Print "Grund: Bei zu hoher Temperatur ohne Sicherheitsabzug gearbeitet."
WaitKey
End
Wend
While  Abzug$="n" Or Abzug$="N" And Temperatur$="J"
Gosub Explosion
Print
Print "Grund: Bei zu hoher Temperatur ohne Sicherheitsabzug gearbeitet."
WaitKey
End
Wend
While  Abzug$="n" Or Abzug$="N" And Sauber$="n"
Gosub Explosion
Print
Print "Grund: Auf verschmutzten Arbeitsplatz ohne Sicherheitsabzug gearbeitet."
WaitKey
End
Wend
While  Abzug$="n" Or Abzug$="N" And Sauber$="N"
Gosub Explosion
Print
Print "Grund: Auf verschmutzten Arbeitsplatz ohne Sicherheitsabzug gearbeitet."
WaitKey
End
Wend

Cls
Locate 0, 0
Print "Herzlichen Glückwunsch " + Name$ + ", das Experiment war erfolgreich, da"
Print "es zu keiner Explosion geführt hat. 1 setzen! :) "
Print
Print "Beliebige Taste beendet das Programm."
WaitKey
End

.Explosion
Cls
Locate 0, 0
Print "Leider ist Ihnen beim Mixen ein Fehler unterlaufen und die Mischung"
Print "ist explodiert. Das Experiment ist Gescheitert."
Return

Const C_G1=500
Const C_G2=500
Const C_G3=500
Const C_G4=500

.anfang

Cls
Locate 0,0

G1 = Input("Zutat1 Menge:")
G2 = Input("Zutat2 Menge:")
G3 = Input("Zutat3 Menge:")
G4 = Input("Zutat4 Menge:")

RT = Input("Temperatur > 30°C:")
AS = Input("Arbeitsbereich sauber:")
SA = Input("Sicherheitsanzug:")

Dim ausgabe$(1)
   ausgabe(0) = "FALSE"
   ausgabe(1) = "TRUE"

explo1 = (G1 > 0) And (G4 > 0)

explo2 = (G1 > C_G1) Or (G2 > C_G2) Or (G3 > C_G3) Or (G4 > C_G4)

explo3 = (G2+G3)>600

explo4 = (Not(SA)) And (RT Or AS)

a = (explo1+explo2+explo3+explo4) > 0

Print ausgabe(Not(a))+" "+explo1+explo2+explo3+explo4

WaitKey()

Goto anfang

Print ( 15 Xor 2 )
Print ( 15 Xor 15 )
Print
Print Not( 15 Xor 2 )
Print Not( 15 Xor 15 )
Print
Print ( 15 = 2 )
Print ( 15 = 15 )

WaitKey()
End

;by Sibitiger

Graphics 400,400,256,2

Const mx1=500
Const mx2=675
Const mx3=753
Const mx4=500

Print "Antworte anstatt mit ja-nein immer mit 1-0"
Z1=Input("1. Zutat in Gramm:")
Z2=Input("2. Zutat in Gramm:")
Z3=Input("3. Zutat in Gramm:")
Z4=Input("4. Zutat in Gramm:")
dreck=Input("Ist die Arbeitsfläche sauber:")
Temp=Input("Wie ist die Raumtemperatur:")
Sicher=Input("Wird ein Sicherheitsabzug verwendet:")

ExploSi=Sicher
Explo23=(Z2+Z3)>600
Explo1=(mx1>Z1) Xor 1
Explo2=(mx2>Z2) Xor 1
Explo3=(mx3>Z3) Xor 1
Explo4=(mx2>Z4) Xor 1
Explodreck=dreck And ExploSi
ExploTemp=(30>Temp Xor 1) And ExploSi
;Explosi=Sicher
Explosi=Sgn(Explodreck+Explotemp)
Explo=Sgn(Explo23+Explo1+Explo2+Explo3+Explo4)
Print "1 steht dafür, dass das Gemisch explodieren würde
Print "und 0 steht dafür, dass es stabil bleibt:"
Print Explo
WaitKey()
End

;by Sibitiger

Graphics 400,400,256,2

Const mx1=500
Const mx2=675
Const mx3=753
Const mx4=500

Print "Antworte anstatt mit ja-nein immer mit 1-0"
Z1=Input("1. Zutat in Gramm:")
Z2=Input("2. Zutat in Gramm:")
Z3=Input("3. Zutat in Gramm:")
Z4=Input("4. Zutat in Gramm:")
dreck=Input("Ist die Arbeitsfläche sauber:")
Temp=Input("Wie ist die Raumtemperatur:")
Sicher=Input("Wird ein Sicherheitsabzug verwendet:")

ExploSi=Sicher
Explo23=(Z2+Z3)>600
Explo1=(mx1>=Z1) Xor 1
Explo2=(mx2>=Z2) Xor 1
Explo3=(mx3>=Z3) Xor 1
Explo4=(mx2>=Z4) Xor 1
Explodreck=dreck And ExploSi
ExploTemp=(30>=Temp Xor 1) And ExploSi
;Explosi=Sicher
Explosi=Sgn(Explodreck+Explotemp)
Explo=Sgn(Explo23+Explo1+Explo2+Explo3+Explo4)
Print "1 steht dafür, dass das Gemisch explodieren würde
Print "und 0 steht dafür, dass es stabil bleibt:"
Print Explo
WaitKey()
End