PHP Code:
quest moneybank begin
state start begin
when 20350.chat."Bank" begin
local pin = pc.getqf("konto_pin")
local konto_gold = pc.getqf("konto_gold")
if pin == 0 then
--------------------------- PIN FESTLEGEN! ---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Hallo. Ich bin Roland und Verwalte das")
say("Da du das erste mal mit mir sprichst möchte")
say("Ich dich bitten deine Pin fest zu legen.")
say("Nur eine Sichere 5 stellige Pin stellt")
say("sicher das dein Konto vor Dieben sicher")
say("ist.")
say("")
say_reward("Bitte 5 stellige Pin eingeben (Nur Zahlen)")
local pin_eing = tonumber(input("12345"))
if pin_eing > 9999 and pin_eing < 100000 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Diese Pin ist ok!")
say("")
say_reward("Pin " ..pin_eing.. " Speichern?")
local sel=select("Ja", "Nein")
if sel==1 then
pc.setqf("konto_pin", pin_eing)
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Pin wurde gespeichert.")
say("Bis bald mal.")
elseif sel==2 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 1")
end
elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Tut mir leid doch irgendwas stimmt nicht mit")
say("deiner Pin.")
say("")
say_reward("Info: Pin darf nur Zahlen enthalten!")
say_reward("Info: Pin darf nicht größer als 99999")
say_reward("oder kleiner als 10000 sein!")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 2")
end
else
--------------------------- PIN VORHANDEN! ---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Hallo. Ich bin Roland und Verwalte das")
say("Geld was die Leute mir anvertraun.")
say("")
say_reward("Was möchtest du tun?")
say("")
local sel=select("Geld geben", "Geld nehmen", "Konto Abfragen", "Pin ändern", "Nichts")
if sel==1 then
---------------------------GELD GEBEN---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Wie viel Geld auf Konto einzahlen?")
say("Maximal 1.999.999.999!")
say("")
say_reward("Dabei: " ..pc.get_money())
say("")
local geld_auf_konto = tonumber(input(""))
local auf_konto_new = tonumber(geld_auf_konto) + pc.getqf("konto_gold")
if geld_auf_konto < 0 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Das geht leider nicht.")
else
if pc.get_money() < geld_auf_konto then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel hast du garnicht dabei.")
else
if auf_konto_new < 2000000000 then
pc.change_money(-geld_auf_konto)
pc.setqf("konto_gold", auf_konto_new)
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Ich habe " ..geld_auf_konto.. " Gold auf dein Konto getan.")
else
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel kannst du nicht aufs Konto.")
say("machen. Das würde die Maximal menge")
say("von 1.999.999.999 überschreiten.")
end
end
end
else
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==2 then
---------------------------GELD ABHEBEN---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Wie viel Geld vom Konto abheben?")
say("")
say_reward("Auf Konto: " ..pc.getqf("konto_gold"))
say("")
local geld_von_konto = tonumber(input(""))
if geld_von_konto < 0 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Das geht leider nicht.")
else
if geld_von_konto > pc.getqf("konto_gold") then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel hast du nicht auf deinem Konto.")
elseif geld_von_konto <= pc.getqf("konto_gold") then
local gold_bug_check = pc.get_money() + geld_von_konto
if gold_bug_check < 2000000000 then
local auf_konto_new = tonumber(pc.getqf("konto_gold") - geld_von_konto)
pc.setqf("konto_gold", auf_konto_new)
pc.change_money(geld_von_konto)
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Ich habe dir " ..geld_von_konto.. " Gold gegeben.")
else
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Soviel kann ich dir nicht geben. Das würde")
say("Dein Gold auf 0 Setzen! (0 GOLD BUG)")
end
end
end
else
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==3 then
---------------------------GELD ABFRAGEN---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Du möchtest wissen wie viel Gold du auf deinem")
say("Konto hast? Nun gut du hast:")
say("")
say_reward("Gold auf Konto: " ..pc.getqf("konto_gold"))
elseif sel==4 then
---------------------------PIN ÄNDERN---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bitte aktuelle Pin eingeben.")
local pin_abf = tonumber(input(""))
if pin_abf == pc.getqf("konto_pin") then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Pin ist Korrekt.")
say("Bitte Neue Pin eingeben. (Nur Zahlen)")
local pin_eing = tonumber(input("12345"))
if pin_eing > 9999 and pin_eing < 100000 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Diese Pin ist ok!")
say("")
say_reward("Pin " ..pin_eing.. " Speichern?")
local sel=select("Ja", "Nein")
if sel==1 then
pc.setqf("konto_pin", pin_eing)
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Pin wurde erfolgreich geändert.")
say("Bis bald mal.")
elseif sel==2 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 3")
end
elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Tut mir leid doch irgendwas stimmt nicht mit")
say("deiner Pin. Deshalb habe ich sie nicht geändert.")
say("")
say("")
say_reward("Info: Pin darf nur Zahlen enthalten!")
say_reward("Info: Pin darf nicht größer als 99999")
say_reward("oder kleiner als 10000 sein!")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 4")
end
else
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Falsche Pin.")
end
elseif sel==5 then
---------------------------Abbrechen---------------------------
say_title("Roland spricht zu ".. pc.get_name() ..".")
say("")
say("Bis bald mal.")
else
-- Fehler abfangen!
say("Unbekannter Fehler!")
say("Bitte umgehend mit ihren")
say("Fehler Code beim Serverleiter")
say("melden!")
say("Fehler Code: 5")
end
end
end
end
end






