quest banca begin
state start begin
when 20092.chat."Banca" begin
say_title ( "Banchiere" )
if pc . getqf ( "bancapin" ) == 0 then
say ( "Vuoi creare un conto?" )
say ( "" )
local selsn = select ( "Si." , "No." )
if selsn == 1 then
say ( "Inserisci il tuo pin " )
say ( "( consigliato quattro numeri ) :" )
say ( "" )
local pin = tonumber( input( "" ) )
pc . setqf ("bancapin" , pin )
pc . setqf ("bancaconto" , 0 )
end
else
say ( "Per poter accedere alle azioni bancarie")
say ( "è necessario inserire il Pin " )
local entpin = tonumber( input( "" ) )
local entpins = pc . getqf ("bancapin")
--say ( "|" .. entpin .. "|" .. pc . getqf ("bancapin") .. "|" )
if entpin == entpins then
say ( "Bentornato !" )
say ( "Il tuo pin è : " .. pc . getqf ("bancapin") )
say ( "Il tuo conto attuale è di : " .. pc . getqf ("bancaconto") .. "000 Yang" )
say ( "Cosa vorresti fare ? " )
say ( "" )
local selaz = select ( "Prelevare Yang" , "Depositare Yang" , "Modificare Pin" , "Chiudere Conto" , "Niente Grazie" )
if selaz == 5 then
-----------Niente Grazie--------------
--------------------------------------
--------------------------------------
elseif selaz == 1 then
-----------Prelevare Yang-------------
--------------------------------------
say ( "La mia è una banca molto grossa," )
say ( "per questo la minima cifra di ogni" )
say ( "versamento e preliveo sarà di 1000 yang." )
say ( "Inserisci quante unità da 1000 yang vuoi prelevare." )
local ritsom = tonumber( input( "" ) )
if ( pc . gold + ( ritsom * 1000 ) ) <= 2000000000 then
if pc . getqf ( "bancaconto" ) >= ritsom then
say ( "Vuoi davvero prelevare " .. ritsom .. "000 yang ?" )
say ( "" )
local selritsn = select ( "Si" , "No" )
if selritsn == 1 then
pc . changegold ( ( ritsom * 1000 ) )
pc . setqf ( "bancaconto" , pc . getqf ( "bancaconto" ) - ritsom )
say ( "Transazione effettuata con sccesso." )
say ( "" )
else
end
else
say ( "Non hai " .. ritsom .. "000 yang da prelevare." )
say ( "" )
end
else
say ( "Non puoi prelevare " .. ritsom .. "000 yang." )
say ( "" )
end
--------------------------------------
elseif selaz == 2 then
-----------Depositare Yang------------
--------------------------------------
say ( "La mia è una banca molto grossa," )
say ( "per questo la minima cifra di ogni" )
say ( "versamento e preliveo sarà di 1000 yang." )
say ( "Inserisci quante unità da 1000 yang vuoi depositare." )
local depsom = tonumber( input( "" ) )
if pc . gold >= ( depsom * 1000 ) then
say ( "Vuoi davvero depositare " .. depsom .. "000 yang ?" )
say ( "" )
local seldepsn = select ( "Si" , "No" )
if seldepsn == 1 then
pc . changegold ( - ( depsom * 1000 ) )
pc . setqf ( "bancaconto" , pc . getqf ( "bancaconto" ) + depsom )
say ( "Transazione effettuata con sccesso." )
say ( "" )
else
end
else
say ( "Non hai " .. depsom .. "000 yang da depositare." )
say ( "" )
end
--------------------------------------
elseif selaz == 3 then
---------Modifica Pin-------------------------
----------------------------------------------
say ( "Inserisci il tuo nuovo pin " )
say ( "( consigliato quattro numeri ) :" )
say ( "" )
local newpin = tonumber( input( "" ) )
pc . setqf ("bancapin" , newpin )
say ( "Pin modificato con successo" )
say ( pc . getqf ("bancapin") )
----------------------------------------------
elseif selaz == 4 then
---------------Chiudi Conto-------------------
----------------------------------------------
say_title ( "Banchiere" )
say_reward ( "Attenzione !" )
say ( "Se chiuderai il tuo conto ne potrai[ENTER]aprire uno novo,[ENTER]ma purtroppo i tuoi risparmi[ENTER]rimarranno alla banca." )
say ( "Vuoi davvero chiudere il conto?" )
say ( "" )
local selccon = select ( "Si" , "No" )
if selccon == 1 then
pc . setqf ("bancapin" , 0 )
pc . setqf ("bancaconto" , 0 )
say ( "Il tuo conto è stato chiuso." )
say ( "" )
end
-----------------------------------------------
end
else
say ( "Il pin inserito non è corretto." )
say ( "" )
end
end
end
end
end