Przenośny bank

[sddwdfsfgdh]

Witam :huh:
Udostępniam quest napisany przez BlackYuko ja tylko go spolszczyłem.

Jeśli są jakiekolwiek błędy ortograficzne/stylistyczne pisać to poprawie
Bez żadnych ceregieli, więc tak :

1. Do quest_functions :

banca.DeletePin
banca.Deposit
banca.ExistPin
banca.GetPin
banca.ReadAccount
banca.ReadPin
banca.ReadValue
banca.SetPin
banca.Withdraw

Lub :
http://pastebin.com/uQQg6pdv

2. banca.quest :

--**
--** Script banca portatile
--** by BlackYuko Skype: manu___88
--** Spolszenie by sddwdfsfgdh dla Mpcfroum.pl
--**

quest banca begin
state start begin
when letter begin
send_letter("Przenośny Bank ")
end

when button or info begin
say_title("Bank - Menu Główne ")
say("Witaj "..pc.get_name()..".[ENTER]")
say_reward("Obecne saldo wynosi : "..banca.ReadAccount().." Yang[ENTER]")
say("Wybierz operacje :[ENTER]")
local s = select("Ustawienia PIN'u ","Wpłać Yang ","Wypłać Yang ","Dokonaj przelewu ","Anuluj ")
if s == 5 then
send_letter("Przenośny Bank ")
return

---------------********** Ustawienia PIN **********---------------

elseif s == 1 then
say_title("Bank - Ustawienia PIN'u ")
say("Wybierz operacje :[ENTER]")
local s = select("Zmiana PIN'u ", "Wyłączenie PIN'u ","Anuluj ")
if s == 3 then
send_letter("Przenośny Bank ")
return
elseif s == 1 then
if not banca.ExistPin() then
say_title("Bank - Nowy kod PIN ")
say("Twój kod PIN jest wyłączony.")
say("Czy chcesz ustawić go teraz ?[ENTER]")
local s = select("Tak ","Nie ")
if s == 2 then
send_letter("Przenośny Bank ")
return
end
local nuovo_pin = banca.ReadValue("Bank - Nowy kod PIN ", "Wprowadź nowy kod PIN :[ENTER]")
if not nuovo_pin then
send_letter("Przenośny Bank ")
return
end
banca.SetPin(nuovo_pin)
say_title("Bank - Nowy kod PIN ")
say("Kod PIN został utworzony. ")
say("Gratulacje ! [ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
if not banca.ReadPin("Bank - Zmiana PIN'u") then
send_letter("Przenośny Bank ")
return
end
local nuovo_pin = banca.ReadValue("Bank - Zmiana PIN'u", "Wprowadź nowy kod PIN :[ENTER]")
if not nuovo_pin then
send_letter("Przenośny Bank ")
return
end
banca.SetPin(nuovo_pin)
say_title("Bank - Zmiana PIN'u ")
say("Kod PIN został zaaktualizowany. ")
say("Gratulacje ! [ENTER]")
wait()
send_letter("Przenośny Bank ")
elseif s == 2 then
if not banca.ExistPin() then
say_title("Bank - Wyłączanie PIN'u ")
say("Kod PIN został wyłączony !!![ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
if not banca.ReadPin("Bank - Wyłączanie PIN'u ") then
send_letter("Przenośny Bank ")
return
end
say_title("Bank - Wyłączanie PIN'u ")
say("Chcesz deaktywować kod PIN ?[ENTER]")
local s = select("Tak ","Nie ")
if s == 2 then
send_letter("Przenośny Bank ")
return
end
banca.DeletePin()
say_title("Bank - Wyłączanie PIN'u ")
say("Kod PIN został wyłączony !!![ENTER]")
wait()
send_letter("Przenośny Bank ")
end

---------------********** Wpłać Yang**********---------------

elseif s == 2 then
if banca.ExistPin() then
if not banca.ReadPin("Bank - Wpłać Yang ") then
send_letter("Przenośny Bank ")
return
end
end
local n = banca.ReadValue("Bank - Wpłać Yang ", "Wpisz kwotę do zdeponowania w banku :[ENTER]")
if not n then
send_letter("Przenośny Bank ")
return
end
if pc.get_gold() < n then
say_title("Bank - Wpłać Yang")
say("Posiadasz za mało Yang![ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
banca.Deposit(n)
pc.changemoney(-n)
say_title("Bank - Wpłać Yang")
say("Do banku wpłacono : "..n.." Yang.[ENTER]")
wait()
send_letter("Przenośny Bank ")

---------------********** Wypłać Yang **********---------------

elseif s == 3 then
if banca.ExistPin() then
if not banca.ReadPin("Bank - Wypłacanie Yang ") then
send_letter("Przenośny Bank ")
return
end
end
local n = banca.ReadValue("Bank - Wypłacanie Yang ", "Wprowadź kwotę do wypłacenia z banku :[ENTER]")
if not n then
send_letter("Przenośny Bank ")
return
elseif pc.get_gold()+n > 1999999999 then
say_title("Bank - Wypłacanie Yang ")
say("Posiadasz za dużo pieniędzy, ich wycofanie grozi ")
say("zbugowaniem się yangów! [ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
local res = banca.Withdraw(n)
if res then
say_title("Bank - Wypłacanie Yang ")
say("Nie posiadasz takiej kwoty w banku![ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
pc.changemoney(n)
say_title("Bank - Wypłacanie Yang ")
say("Wypłacono "..n.." Yang.[ENTER]")
wait()
send_letter("Przenośny Bank ")

---------------********** Dokonaj przelewu **********---------------

elseif s == 4 then
if banca.ExistPin() then
if not banca.ReadPin("Bank - Dokonywanie przelewu ") then
send_letter("Przenośny Bank ")
return
end
end
say_title("Bank - Dokonywanie przelewu ")
say("Dzięki tej funkcji możesz prznieść wybraną ")
say("ilośc Yang z tego konta na inne konto")
say("bankowe.[ENTER]")
wait()
local n = banca.ReadValue("Bank - Dokonywanie przelewu ", "Wprowadź kwote do wysłania na drugie konto :[ENTER]")
if not n then
send_letter("Przenośny Bank ")
return
end
say_title("Bank - Dokonywanie przelewu ")
say("Wpisz nazwę postaci na którą wysyłasz Yangi :[ENTER]")
say_reward("Zwróć uwagę na wpisywaną nazwe postaci !!! ")
say_reward("Jeśli wpiszesz niepoprawnie, stracisz Yangi bezzwrotnie !!![ENTER] ")
local name = tostring(input())
if name == "" then
say_title("Bank - Dokonywanie przelewu ")
say("Wprowadzono nieprawidłową nazwę postaci. [ENTER]")
wait()
send_letter("Przenośny Bank ")
return
elseif name == pc.get_name() then
say_title("Bank - Wysyłanie Yang")
say("Nie możesz wpisać swojej nazwy postaci.[ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
say_title("Bank - Dokonywanie przelewu ")
say("Dane przelewu :[ENTER]")
say_reward(" - Kwota do wysłania : "..n.." Yang")
say_reward(" - Nazwa odbiorcy : "..name.." [ENTER]")
say("To twoja ostatnia szansa, aby sprawdzić czy nazwa ")
say("odbiorcy jest prawidłowa ! ")
say("Czy chcesz kontynuować ?[ENTER]")
local a = select("Tak ","Nie ")
if a == 2 then
send_letter("Przenośny Bank ")
return
end
local res = banca.Withdraw(n)
if res then
say_title("Banca - Wysyłanie Yang")
say("Nie posiadasz takiej kwoty w banku, ")
say("aby móc dokonać przelewu ! [ENTER]")
wait()
send_letter("Przenośny Bank ")
return
end
banca.Deposit(n, name)
say_title("Bank - Przelew zakończony ")
say("Przelew został dokonany ! ")
say("Gratulacje ! [ENTER] ")
say_reward(" - Nazwa odbiorcy : "..name.."")
say_reward(" - Kwota przesłana : "..n.." Yang[ENTER]")
wait()
send_letter("Przenośny Bank ")
end
end

---------------********** Funkcje skryptowe **********---------------

--** Czytanie PIN'u
function ReadPin(title)
local current_pin = banca.GetPin()
local result = false
repeat
say_title(""..title.."")
say("Wprowadź kod PIN:[ENTER]")
local pin = tonumber(input())
if pin != current_pin then
say_title(""..title.."")
say("Wprowadzony kod PIN jest niepoprawny. ")
say("Chcesz powtórzyć wprowadzanie ?[ENTER]")
local s = select("Tak ","Nie ")
if s == 2 then
break
end
else
result = true
break
end
until false
return result
end

--** Czytanie sumy Yang
function ReadValue(title, message)
local result = false
repeat
say_title(""..title.."")
say(""..message.."")
local var = tonumber(input())
if var == nil or var <= 0 then
say_title(""..title.."")
say("Wprowadzona wartość jest nieodpowiednia. ")
say("Należy wpisać wartość większą niż zero.[ENTER]")
say("Chcesz powtórzyć wprowadzanie?[ENTER]")
local b = select ("Tak ","Nie ")
if b == 2 then
break
end
else
result = var
break
end
until false
return result
end

--** Funkcje PIN'ów
function ExistPin()
if pc.getqf("StatoPin") == 0 then
return false
else
return true
end
end

function DeletePin()
pc.setqf("StatoPin", 0)
end

function SetPin(new_pin)
pc.setqf("StatoPin", 1)
pc.setqf("Pin", new_pin)
end

function GetPin()
return pc.getqf("Pin")
end

--** Funkcje zarządzania kontem
function Deposit(money, pc_name)
if pc_name == nil then
pc_name = pc.get_name()
end
local n1 = game.get_event_flag(pc_name.."_conto_1")
local n2 = game.get_event_flag(pc_name.."_conto_2")
local threshold = 1000000000
local total = n1*threshold+n2+money
game.set_event_flag(pc_name.."_conto_1", math.floor(total/threshold))
game.set_event_flag(pc_name.."_conto_2", math.mod(total, threshold))
end

function Withdraw(money)
local pc_name = pc.get_name()
local n1 = game.get_event_flag(pc_name.."_conto_1")
local n2 = game.get_event_flag(pc_name.."_conto_2")
local threshold = 1000000000
local total = n1*threshold+n2-money
if total < 0 then
return true
end
game.set_event_flag(pc_name.."_conto_1", math.floor(total/threshold))
game.set_event_flag(pc_name.."_conto_2", math.mod(total, threshold))
return false
end

function ReadAccount()
local pc_name = pc.get_name()
local n1 = game.get_event_flag(pc_name.."_conto_1")
local n2 = game.get_event_flag(pc_name.."_conto_2")
local threshold = 1000000000
return n1*threshold+n2
end
end
end

Lub :
http://pastebin.com/5S77HqA2

( Macie na stronce lub w spoilerze wybierajcie )

Pozdrawiam

Jeśli było to proszę o usunięcie.

[z4z0l]

Najbardziej zastanawiają mnie tutaj flagi eventowe przy czym obok mamy zwykłe qf. Potrafi ktoś wytłumaczyć?

[JachuPL]

Najbardziej zastanawiają mnie tutaj flagi eventowe przy czym obok mamy zwykłe qf. Potrafi ktoś wytłumaczyć?

pamiętaj polaku nie koduj po pijaku. Chociaż w tym wypadku to raczej włochu, bo quest jest BlackYuko

[Azaron]

Nieumiejętnie napisany quest na bank - bug gwarantowany

[sddwdfsfgdh]

Up i tak mam inny quest, ale jaki tu widzisz bug ?