- /* İyi kullanımlar, Sowingwa. */
- /*Kütüphane*/
- #include <a_samp>
- #include <PAWN.cmd> // izcmd kullanıyorsan değiştirebilirsin.
- /*Tanımlar*/
- #define E_POSTA_MAX_KARAKTER (34)
- #define E_POSTA_MIN_KARAKTER (5)
- /*Dialoglar*/
- #define BOS_MESAJ (9998) // Modunda bulunan dialog satırına uyarla, aksi taktirde çakışmalar oluşabilir.
- #define E_POSTA_EKLE (9999) // Modunda bulunan dialog satırına uyarla, aksi taktirde çakışmalar oluşabilir.
- /*Dize*/
- enum oyuncu_d
- {
- e_posta[E_POSTA_MAX_KARAKTER],
- };
- new oyuncuData[MAX_PLAYERS][oyuncu_d];
- /*Diğer*/
- public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
- {
- switch(dialogid)
- {
- case E_POSTA_EKLE:
- {
- if(response)
- {
- new str[128];
- if(strfind(inputtext , "@" , true) == -1) return EpostaDialog(playerid, "Doğru bir e-posta adresi giriniz!");
- if(strlen(inputtext) < E_POSTA_MIN_KARAKTER || strlen(inputtext) > E_POSTA_MAX_KARAKTER)
- {
- format(str, sizeof(str), "Girdiğiniz e-posta, %d karakterden az %d karaktesrden fazla olamaz.", E_POSTA_MIN_KARAKTER, E_POSTA_MAX_KARAKTER);
- EpostaDialog(playerid, str);
- return 1;
- }
- str[0] = 0;
- format(str, sizeof(str), "{FFFFFF}E-posta adresiniz, {FFFF00}%s {FFFFFF}olarak güncellendi!", inputtext);
- format(oyuncuData[playerid][e_posta], E_POSTA_MAX_KARAKTER, inputtext);
- ShowPlayerDialog(playerid, BOS_MESAJ, DIALOG_STYLE_MSGBOX, "E-Posta Adresi Ekle", str, "Kapat", "");
- }
- }
- }
- return 1;
- }
- stock EpostaDialog(playerid, hata[] = "-")
- {
- new str[512];
- if(strcmp(hata, "-", true))
- {
- format(str, sizeof(str), "{FF0000}%s\n\n\
- {FFFFFF}E-posta adresi eklemek için aşağıda bulunan kısıma,\n\
- {FFFFFF}kullandığınız doğru E-posta adresini giriniz.\n\n\
- {FFFFFF}Doğru girilmediği taktirde, normalde olduğu gibi hesap çalınmalarında sorumluluk size aittir.\n\
- ", hata);
- }
- else
- {
- format(str, sizeof(str), "{FF0000}\
- {FFFFFF}E-posta adresi eklemek için aşağıda bulunan kısıma,\n\
- {FFFFFF}kullandığınız doğru E-posta adresini giriniz.\n\n\
- {FFFFFF}Doğru girilmediği taktirde, normalde olduğu gibi hesap çalınmalarında sorumluluk size aittir.\n\
- ");
- }
- return ShowPlayerDialog(playerid, E_POSTA_EKLE, DIALOG_STYLE_INPUT, "E-Posta Adresi Ekle", str, "Onayla", "Iptal");
- }
- CMD:eposta(playerid, params[])
- {
- if(strlen(oyuncuData[playerid][e_posta]))
- {
- new str[138];
- format(str, sizeof(str), "{FFFFFF}E-posta adresiniz zaten mevcut, {FFFF00}%s {FFFFFF}.", oyuncuData[playerid][e_posta]);
- ShowPlayerDialog(playerid, BOS_MESAJ, DIALOG_STYLE_MSGBOX, "E-Posta Adresi Ekle", str, "Kapat", "");
- return 1;
- }
- EpostaDialog(playerid);
- return 1;
- }