#include <a_samp>
#include <Dini>
#include <ocmd>

#define MAX_BANKS 100 // Wieviele Bänke es maximal geben soll
#define Startgeld 100000000 // Wieviel Geld am Anfang auf der Bank sein soll
#define K_STARTGELD 2000 // Wieviel Geld nach dem Erstellen eines Kontos direkt als Bonus auf der Bank sein sollen
#define farbe 0xFFFFFF // In welcher Farbe die Texte angezeigt werden sollen, kannst du hier einstellen
#define PICKUP_ID 1272 // Welche Pickup-ID benutzt werden soll

//DIALOGE - Sollten die ID's bereits bei einem anderen Dialog im Gamemode/Filterscript verwendet werden, sind diese zu ändern
#define DIALOG_BANK 8000
#define DIALOG_BANK2 8001
#define DIALOG_KONTOSTAND 8002
#define DIALOG_EINZAHLEN 8003
#define DIALOG_ABHEBEN 8004
#define DIALOG_AUFL 8005
#define DIALOG_CREATE 8006

new Float:Ausgangx[MAX_PLAYERS];
new Float:Ausgangy[MAX_PLAYERS];
new Float:Ausgangz[MAX_PLAYERS];

enum Bankdaten
{
    Float:Bankx,
    Float:Banky,
    Float:Bankz,
	Bankersteller[MAX_PLAYER_NAME],
	Geld,
	Name[124],
	ID,
	pickup,
	Text3D:textdraw
}
new BankInfo[MAX_BANKS][Bankdaten];

enum Bankkonto
{
	Besitzer,
	Vermoegen,
	Pin
}
new BankkontenInfo[MAX_PLAYERS][Bankkonto];

public OnFilterScriptInit()
{
	print("\n--------------------------------------");
	print(" Dynamisches Banksystem by Fießling");
	print("--------------------------------------\n");
	for(new i=0;i<MAX_BANKS;i++)
	{
		BankLaden(i);
	}
	CreatePickup(PICKUP_ID,1,2305.9353,-16.1329,26.7496,-1);
 	CreatePickup(1239,1,2316.6089,-9.9751,26.7422,-1);
 	Create3DTextLabel("Drücke Enter, um auf dein Konto zuzugreifen!",farbe,2316.6089,-9.9751,26.7422,20,-1);
	return 1;
}

public OnFilterScriptExit()
{
	BankSpeichern();
	return 1;
}

public OnPlayerRequestClass(playerid, classid)
{
	return 1;
}

public OnPlayerConnect(playerid)
{
	KontoLaden(playerid);
	return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
	KontoSpeichern(playerid);
	return 1;
}

public OnPlayerSpawn(playerid)
{
	return 1;
}

public OnPlayerDeath(playerid, killerid, reason)
{
	return 1;
}

public OnVehicleSpawn(vehicleid)
{
	return 1;
}

public OnVehicleDeath(vehicleid, killerid)
{
	return 1;
}

public OnPlayerText(playerid, text[])
{
	return 1;
}

//OCMD Befehle
ocmd:createbank(playerid,params[])
{
	new bname[128],string[128];
	if(IsPlayerAdmin(playerid))
	{
		if(sscanf(params,"s",bname))return SendClientMessage(playerid,farbe,"BENUTZE: /createbank [Bankname]");
		CreateBank(playerid,bname);
		format(string,sizeof string,"Du hast eine Bank mit dem Namen %s erstellt!",bname);
		SendClientMessage(playerid,farbe,string);
	}
	else {SendClientMessage(playerid,farbe,"FEHLER: Du bist kein Administrator!");}
	return 1;
}

ocmd:delbank(playerid,params[])
{
	new bid,bank[128];
	format(bank,sizeof bank,"/Bank/%d.txt",bid);
	if(IsPlayerAdmin(playerid))
	{
		if(sscanf(params,"i",bid))return SendClientMessage(playerid,farbe,"BENUTZE: /delbank [BankID]");
		format(bank,sizeof bank,"/Bank/%d.txt",bid);
		if(dini_Exists(bank))
		{
      		dini_Remove(bank);
		    SendClientMessage(playerid,farbe,"Du hast die Bank erfolgreich gelöscht!");
		    for(new i=0;i<MAX_BANKS;i++)
		    {
				if(i==bid)
				{
					DestroyPickup(BankInfo[i][pickup]);
					Delete3DTextLabel(BankInfo[i][textdraw]);
			    	BankLaden(i);
				}
			}
		}
		else return SendClientMessage(playerid,farbe,"FEHLER: Es existiert keine Bank mit dieser ID!");
	}
	else {SendClientMessage(playerid,farbe,"FEHLER: Du bist kein Administrator!");}
	return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
	return 0;
}

public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
	return 1;
}

public OnPlayerExitVehicle(playerid, vehicleid)
{
	return 1;
}

public OnPlayerStateChange(playerid, newstate, oldstate)
{
	return 1;
}

public OnPlayerEnterCheckpoint(playerid)
{
	return 1;
}

public OnPlayerLeaveCheckpoint(playerid)
{
	return 1;
}

public OnPlayerEnterRaceCheckpoint(playerid)
{
	return 1;
}

public OnPlayerLeaveRaceCheckpoint(playerid)
{
	return 1;
}

public OnRconCommand(cmd[])
{
	return 1;
}

public OnPlayerRequestSpawn(playerid)
{
	return 1;
}

public OnObjectMoved(objectid)
{
	return 1;
}

public OnPlayerObjectMoved(playerid, objectid)
{
	return 1;
}

public OnPlayerPickUpPickup(playerid, pickupid)
{
	return 1;
}

public OnVehicleMod(playerid, vehicleid, componentid)
{
	return 1;
}

public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
{
	return 1;
}

public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
	return 1;
}

public OnPlayerSelectedMenuRow(playerid, row)
{
	return 1;
}

public OnPlayerExitedMenu(playerid)
{
	return 1;
}

public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
	return 1;
}

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
	if(newkeys == KEY_SECONDARY_ATTACK)
	{
		for(new i=0;i<MAX_BANKS;i++)
		{
		    if(IsPlayerInRangeOfPoint(playerid,3.0,BankInfo[i][Bankx],BankInfo[i][Banky],BankInfo[i][Bankz]))
		    {
		        Ausgangx[playerid]=BankInfo[i][Bankx];
		        Ausgangy[playerid]=BankInfo[i][Banky];
		        Ausgangz[playerid]=BankInfo[i][Bankz];
		        SetPlayerVirtualWorld(playerid,i++);
		        SetPlayerInterior(playerid,0);
		        SetPlayerPos(playerid,2305.9353,-16.1329,26.7496);
				SetPlayerFacingAngle(playerid,269.4800);
				SetCameraBehindPlayer(playerid);
		    }
		    if(IsPlayerInRangeOfPoint(playerid,2.0,2305.9353,-16.1329,26.7496))
		    {
		        SetPlayerInterior(playerid,0);
		        SetPlayerPos(playerid,Ausgangx[playerid],Ausgangy[playerid],Ausgangz[playerid]);
		        SetPlayerVirtualWorld(playerid,0);
		        SetCameraBehindPlayer(playerid);
		    }
		}
		if(IsPlayerInRangeOfPoint(playerid,1.0,2316.6089,-9.9751,26.7422))
		{
		    new bankk[128],name[MAX_PLAYER_NAME];
		    GetPlayerName(playerid,name,sizeof name);
		    format(bankk,sizeof bankk,"/Bankkonten/%s.txt",name);
		    if(dini_Exists(bankk))
	    	{
	    		ShowPlayerDialog(playerid,DIALOG_BANK,DIALOG_STYLE_INPUT,"S.A. Bank","Bitte gebe dein Geheim-Pin in das untenstehende Feld!","Weiter","Abbrechen");
			}
			else
			{
		    	ShowPlayerDialog(playerid,DIALOG_CREATE,DIALOG_STYLE_MSGBOX,"S.A. Bank","Möchtest du ein Bankkonto erstellen?","Ja","Nein");
			}
		}
	}
	return 1;
}

public OnRconLoginAttempt(ip[], password[], success)
{
	return 1;
}

public OnPlayerUpdate(playerid)
{
	return 1;
}

public OnPlayerStreamIn(playerid, forplayerid)
{
	return 1;
}

public OnPlayerStreamOut(playerid, forplayerid)
{
	return 1;
}

public OnVehicleStreamIn(vehicleid, forplayerid)
{
	return 1;
}

public OnVehicleStreamOut(vehicleid, forplayerid)
{
	return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
	new string[128];
	if(dialogid == DIALOG_BANK)
	{
	    if(response)
	    {
	        if(BankkontenInfo[playerid][Pin] == strval(inputtext))
	        {
	            ShowPlayerDialog(playerid,DIALOG_BANK2,DIALOG_STYLE_LIST,"S.A. Bank","Kontostand\nEinzahlen\nAbheben\nKonto auflösen","Okay","Abbrechen");
	        }
	        else return SendClientMessage(playerid,farbe,"FEHLER: Der Pin war falsch!");
	    }
	}
	if(dialogid == DIALOG_BANK2)
	{
	    if(response)
		{
		    if(listitem==0)
		    {
		        format(string,sizeof string,"Kontostand: %d$",BankkontenInfo[playerid][Vermoegen]);
		        ShowPlayerDialog(playerid,DIALOG_KONTOSTAND,DIALOG_STYLE_MSGBOX,"S.A. Bank - Kontostand",string,"Okay","Abbrechen");
		    }
		    if(listitem==1)
		    {
				ShowPlayerDialog(playerid,DIALOG_EINZAHLEN,DIALOG_STYLE_INPUT,"S.A. Bank - Einzahlen","Tippe dein gewünschten Betrag, welchen du einzahlen möchtest, in das Feld unten ein!","Okay","Abbrechen");
		    }
		    if(listitem==2)
		    {
		        ShowPlayerDialog(playerid,DIALOG_ABHEBEN,DIALOG_STYLE_INPUT,"S.A. Bank - Abheben","Tippe dein gewünschten Betrag, welchen du von deinem Konto abheben möchtest, in das Feld unten ein!","Okay","Abbrechen");
		    }
		    if(listitem==3)
		    {
		        ShowPlayerDialog(playerid,DIALOG_AUFL,DIALOG_STYLE_MSGBOX,"S.A. Bank","Möchtest du dein Konto wirklich auflösen?","Ja","Nein");
		    }
		}
	}
	if(dialogid == DIALOG_KONTOSTAND)
	{
		if(response)
		{
		    ShowPlayerDialog(playerid,DIALOG_BANK2,DIALOG_STYLE_LIST,"S.A. Bank","Kontostand\nEinzahlen\nAbheben\nKonto auflösen","Okay","Abbrechen");
		}
	}
	if(dialogid == DIALOG_EINZAHLEN)
	{
	    if(response)
	    {
	        new geld = GetPlayerMoney(playerid);
	        if(geld>=strval(inputtext))
	        {
				new oldbank = BankkontenInfo[playerid][Vermoegen];
				BankkontenInfo[playerid][Vermoegen] = oldbank+strval(inputtext);
				format(string,sizeof string,"Du hast %d$ auf dein Konto eingezahlt!",strval(inputtext));
				SendClientMessage(playerid,farbe,string);
				GivePlayerMoney(playerid,-strval(inputtext));
			}
			else return SendClientMessage(playerid,farbe,"FEHLER: Soviel Geld hast du nicht!");
			ShowPlayerDialog(playerid,DIALOG_BANK2,DIALOG_STYLE_LIST,"S.A. Bank","Kontostand\nEinzahlen\nAbheben\nKonto auflösen","Okay","Abbrechen");
	    }
	}
	if(dialogid == DIALOG_ABHEBEN)
	{
	    if(response)
	    {
	        if(BankkontenInfo[playerid][Vermoegen]>=strval(inputtext))
	        {
		        new oldbank = BankkontenInfo[playerid][Vermoegen];
				BankkontenInfo[playerid][Vermoegen] = oldbank-strval(inputtext);
				format(string,sizeof string,"Du hast %d$ vom deinem Konto abgehoben!",strval(inputtext));
				SendClientMessage(playerid,farbe,string);
				GivePlayerMoney(playerid,strval(inputtext));
			}
			else return SendClientMessage(playerid,farbe,"FEHLER: Soviel Geld ist auf dem Konto nicht verfügbar!");
			ShowPlayerDialog(playerid,DIALOG_BANK2,DIALOG_STYLE_LIST,"S.A. Bank","Kontostand\nEinzahlen\nAbheben\nKonto auflösen","Okay","Abbrechen");
	    }
	}
	if(dialogid == DIALOG_AUFL)
	{
	    if(response)
	    {
			new bankk[128],name[MAX_PLAYER_NAME];
			GetPlayerName(playerid,name,sizeof name);
			format(bankk,sizeof bankk,"/Bankkonten/%s.txt",name);
			if(dini_Exists(bankk))
			{
				dini_Remove(bankk);
				SendClientMessage(playerid,farbe,"Du hast dein Bankkonto erfolgreich aufgelöst!");
			}
			else return SendClientMessage(playerid,farbe,"FEHLER: Du hast kein Konto bei der Bank!");
	    }
	}
	if(dialogid == DIALOG_CREATE)
	{
		if(response)
		{
		    CreateKonto(playerid);
		}
	}
	return 1;
}

public OnPlayerClickPlayer(playerid, clickedplayerid, source)
{
	return 1;
}

stock CreateBank(playerid,bankname[])
{
	new bank[128],name[MAX_PLAYER_NAME];
	GetPlayerName(playerid,name,sizeof name);
	for(new i=0;i<MAX_BANKS;i++)
	{
	    format(bank,sizeof bank,"/Bank/%d.txt",i);
		if(!dini_Exists(bank))
		{
		    GetPlayerPos(playerid,BankInfo[i][Bankx],BankInfo[i][Banky],BankInfo[i][Bankz]);
		    BankInfo[i][Geld]=Startgeld;
		    BankInfo[i][ID]=i;
			format(BankInfo[i][Name],124,bankname);
			dini_Create(bank);
			dini_Set(bank,"Name",bankname);
			dini_Set(bank,"Ersteller",name);
			dini_FloatSet(bank,"XKoords",BankInfo[i][Bankx]);
			dini_FloatSet(bank,"YKoords",BankInfo[i][Banky]);
			dini_FloatSet(bank,"ZKoords",BankInfo[i][Bankz]);
			dini_IntSet(bank,"Geld",BankInfo[i][Geld]);
			dini_IntSet(bank,"ID",i);
			BankInfo[i][textdraw] = Create3DTextLabel(BankInfo[i][Name],farbe,BankInfo[i][Bankx],BankInfo[i][Banky],BankInfo[i][Bankz],20,0);
			BankInfo[i][pickup] = CreatePickup(PICKUP_ID,1,BankInfo[i][Bankx],BankInfo[i][Banky],BankInfo[i][Bankz],0);
			dini_IntSet(bank,"PickUp",BankInfo[i][pickup]);
			return 0;
		}
	}
    return true;
}

stock CreateKonto(playerid)
{
	new bankk[128],name[MAX_PLAYER_NAME], pin, string[128];
	GetPlayerName(playerid,name,sizeof name);
	format(bankk,sizeof bankk,"/Bankkonten/%s.txt",name);
	if(!dini_Exists(bankk))
	{
		dini_Create(bankk);
		pin = 1000 + random(8999);
		BankkontenInfo[playerid][Pin] = pin;
		BankkontenInfo[playerid][Vermoegen] = K_STARTGELD;
		dini_IntSet(bankk,"Pin",pin);
		dini_IntSet(bankk,"Vermoegen",K_STARTGELD);
		dini_Set(bankk,"Besitzer",name);
		format(string,sizeof string,"Glückwunsch zu deinem neuem Konto! Du hast %d$ als Startguthaben auf deinem Konto. Deine Pin-Nummer ist: %d!",K_STARTGELD,pin);
		SendClientMessage(playerid,farbe,string);
	}
	else return SendClientMessage(playerid,farbe,"FEHLER: Du hast bereits ein Konto bei der Bank!");
	return 1;
}

stock KontoSpeichern(playerid)
{
	new bankk[124],name[MAX_PLAYER_NAME];
	GetPlayerName(playerid,name,sizeof name);
	format(bankk,sizeof bankk,"/Bankkonten/%s.txt",name);
	if(dini_Exists(bankk))
	{
	    dini_IntSet(bankk,"Vermoegen",BankkontenInfo[playerid][Vermoegen]);
	}
	return 1;
}

stock KontoLaden(playerid)
{
	new bankk[124],name[MAX_PLAYER_NAME];
	GetPlayerName(playerid,name,sizeof name);
	format(bankk,sizeof bankk,"/Bankkonten/%s.txt",name);
	if(dini_Exists(bankk))
	{
		format(BankkontenInfo[playerid][Besitzer],124,dini_Get(bankk,"Besitzer"));
		BankkontenInfo[playerid][Vermoegen]=dini_Int(bankk,"Vermoegen");
		BankkontenInfo[playerid][Pin]=dini_Int(bankk,"Pin");
	}
	return 1;
}

stock BankSpeichern()
{
	new bank[124];
	for(new i=0;i<MAX_BANKS;i++)
	{
	    format(bank,sizeof bank,"/Bank/%d.txt",i);
	    if(dini_Exists(bank))
	    {
	        dini_Set(bank,"Name",BankInfo[i][Name]);
			dini_FloatSet(bank,"XKoords",BankInfo[i][Bankx]);
			dini_FloatSet(bank,"YKoords",BankInfo[i][Banky]);
			dini_FloatSet(bank,"ZKoords",BankInfo[i][Bankz]);
			dini_IntSet(bank,"Geld",BankInfo[i][Geld]);
	        return 1;
	    }
	}
	return 1;
}

stock BankLaden(bankid)
{
	new bank[124], string[124];
 	format(bank,sizeof bank,"/Bank/%d.txt",bankid);
  	if(dini_Exists(bank))
   	{
   	    format(string,sizeof string,"%s\nBank ID: %d",dini_Get(bank,"Name"),dini_Int(bank,"ID"));
    	format(BankInfo[bankid][Name],124,dini_Get(bank,"Name"));
     	BankInfo[bankid][Bankx]=dini_Float(bank,"XKoords");
      	BankInfo[bankid][Banky]=dini_Float(bank,"YKoords");
       	BankInfo[bankid][Bankz]=dini_Float(bank,"ZKoords");
		BankInfo[bankid][Geld]=dini_Int(bank,"Geld");
		BankInfo[bankid][ID]=dini_Int(bank,"ID");
		Create3DTextLabel(string,farbe,BankInfo[bankid][Bankx],BankInfo[bankid][Banky],BankInfo[bankid][Bankz],20,0);
		CreatePickup(PICKUP_ID,1,BankInfo[bankid][Bankx],BankInfo[bankid][Banky],BankInfo[bankid][Bankz],0);
	}
	return 1;
}
stock sscanf(string[], format[], {Float,_}:...)
{
	#if defined isnull
		if (isnull(string))
	#else
		if (string[0] == 0 || (string[0] == 1 && string[1] == 0))
	#endif
		{
			return format[0];
		}
	#pragma tabsize 4
	new
		formatPos = 0,
		stringPos = 0,
		paramPos = 2,
		paramCount = numargs(),
		delim = ' ';
	while (string[stringPos] && string[stringPos] <= ' ')
	{
		stringPos++;
	}
	while (paramPos < paramCount && string[stringPos])
	{
		switch (format[formatPos++])
		{
			case '\0':
			{
				return 0;
			}
			case 'i', 'd':
			{
				new
					neg = 1,
					num = 0,
					ch = string[stringPos];
				if (ch == '-')
				{
					neg = -1;
					ch = string[++stringPos];
				}
				do
				{
					stringPos++;
					if ('0' <= ch <= '9')
					{
						num = (num * 10) + (ch - '0');
					}
					else
					{
						return -1;
					}
				}
				while ((ch = string[stringPos]) > ' ' && ch != delim);
				setarg(paramPos, 0, num * neg);
			}
			case 'h', 'x':
			{
				new
					num = 0,
					ch = string[stringPos];
				do
				{
					stringPos++;
					switch (ch)
					{
						case 'x', 'X':
						{
							num = 0;
							continue;
						}
						case '0' .. '9':
						{
							num = (num << 4) | (ch - '0');
						}
						case 'a' .. 'f':
						{
							num = (num << 4) | (ch - ('a' - 10));
						}
						case 'A' .. 'F':
						{
							num = (num << 4) | (ch - ('A' - 10));
						}
						default:
						{
							return -1;
						}
					}
				}
				while ((ch = string[stringPos]) > ' ' && ch != delim);
				setarg(paramPos, 0, num);
			}
			case 'c':
			{
				setarg(paramPos, 0, string[stringPos++]);
			}
			case 'f':
			{

				new changestr[16], changepos = 0, strpos = stringPos;
				while(changepos < 16 && string[strpos] && string[strpos] != delim)
				{
					changestr[changepos++] = string[strpos++];
    				}
				changestr[changepos] = '\0';
				setarg(paramPos,0,_:floatstr(changestr));
			}
			case 'p':
			{
				delim = format[formatPos++];
				continue;
			}
			case '\'':
			{
				new
					end = formatPos - 1,
					ch;
				while ((ch = format[++end]) && ch != '\'') {}
				if (!ch)
				{
					return -1;
				}
				format[end] = '\0';
				if ((ch = strfind(string, format[formatPos], false, stringPos)) == -1)
				{
					if (format[end + 1])
					{
						return -1;
					}
					return 0;
				}
				format[end] = '\'';
				stringPos = ch + (end - formatPos);
				formatPos = end + 1;
			}
			case 'u':
			{
				new
					end = stringPos - 1,
					id = 0,
					bool:num = true,
					ch;
				while ((ch = string[++end]) && ch != delim)
				{
					if (num)
					{
						if ('0' <= ch <= '9')
						{
							id = (id * 10) + (ch - '0');
						}
						else
						{
							num = false;
						}
					}
				}
				if (num && IsPlayerConnected(id))
				{
					setarg(paramPos, 0, id);
				}
				else
				{
					#if !defined foreach
						#define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
						#define __SSCANF_FOREACH__
					#endif
					string[end] = '\0';
					num = false;
					new
						name[MAX_PLAYER_NAME];
					id = end - stringPos;
					foreach (Player, playerid)
					{
						GetPlayerName(playerid, name, sizeof (name));
						if (!strcmp(name, string[stringPos], true, id))
						{
							setarg(paramPos, 0, playerid);
							num = true;
							break;
						}
					}
					if (!num)
					{
						setarg(paramPos, 0, INVALID_PLAYER_ID);
					}
					string[end] = ch;
					#if defined __SSCANF_FOREACH__
						#undef foreach
						#undef __SSCANF_FOREACH__
					#endif
				}
				stringPos = end;
			}
			case 's', 'z':
			{
				new
					i = 0,
					ch;
				if (format[formatPos])
				{
					while ((ch = string[stringPos++]) && ch != delim)
					{
						setarg(paramPos, i++, ch);
					}
					if (!i)
					{
						return -1;
					}
				}
				else
				{
					while ((ch = string[stringPos++]))
					{
						setarg(paramPos, i++, ch);
					}
				}
				stringPos--;
				setarg(paramPos, i, '\0');
			}
			default:
			{
				continue;
			}
		}
		while (string[stringPos] && string[stringPos] != delim && string[stringPos] > ' ')
		{
			stringPos++;
		}
		while (string[stringPos] && (string[stringPos] == delim || string[stringPos] <= ' '))
		{
			stringPos++;
		}
		paramPos++;
	}
	do
	{
		if ((delim = format[formatPos++]) > ' ')
		{
			if (delim == '\'')
			{
				while ((delim = format[formatPos++]) && delim != '\'') {}
			}
			else if (delim != 'z')
			{
				return delim;
			}
		}
	}
	while (delim > ' ');
	return 0;
}