1. /* İyi kullanımlar, Sowingwa. */
2.  
3. /*Kütüphane*/
4. #include                                <a_samp>
5. #include                                <PAWN.cmd> // izcmd kullanıyorsan değiştirebilirsin.
6.  
7. /*Tanımlar*/
8. #define                 E_POSTA_MAX_KARAKTER            (34)
9. #define                 E_POSTA_MIN_KARAKTER            (5)
10.  
11. /*Dialoglar*/
12. #define                 BOS_MESAJ                       (9998) // Modunda bulunan dialog satırına uyarla, aksi taktirde çakışmalar oluşabilir.
13. #define                 E_POSTA_EKLE                    (9999) // Modunda bulunan dialog satırına uyarla, aksi taktirde çakışmalar oluşabilir.
14.  
15. /*Dize*/
16. enum oyuncu_d
17. {
18.         e_posta[E_POSTA_MAX_KARAKTER],
19. };
20. new oyuncuData[MAX_PLAYERS][oyuncu_d];
21.  
22. /*Diğer*/
23. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
24. {
25.         switch(dialogid)
26.         {
27.             case E_POSTA_EKLE:
28.             {
29.                 if(response)
30.                 {
31.                     new str[128];
32.                     if(strfind(inputtext , "@" , true) == -1) return EpostaDialog(playerid, "Doğru bir e-posta adresi giriniz!");
33.                                 if(strlen(inputtext) < E_POSTA_MIN_KARAKTER || strlen(inputtext) > E_POSTA_MAX_KARAKTER)
34.                                 {
35.                                    
36.                                     format(str, sizeof(str), "Girdiğiniz e-posta, %d karakterden az %d karaktesrden fazla olamaz.", E_POSTA_MIN_KARAKTER, E_POSTA_MAX_KARAKTER);
37.                                         EpostaDialog(playerid, str);
38.                                         return 1;
39.                                 }
40.                                 str[0] = 0;
41.                                 format(str, sizeof(str), "{FFFFFF}E-posta adresiniz, {FFFF00}%s {FFFFFF}olarak güncellendi!", inputtext);
42.                                 format(oyuncuData[playerid][e_posta], E_POSTA_MAX_KARAKTER, inputtext);
43.                                 ShowPlayerDialog(playerid, BOS_MESAJ, DIALOG_STYLE_MSGBOX, "E-Posta Adresi Ekle", str, "Kapat", "");
44.                 }
45.             }
46.         }
47.         return 1;
48. }
49.  
50. stock EpostaDialog(playerid, hata[] = "-")
51. {
52.         new str[512];
53.     if(strcmp(hata, "-", true))
54.     {
55.                 format(str, sizeof(str), "{FF0000}%s\n\n\
56.                 {FFFFFF}E-posta adresi eklemek için aşağıda bulunan kısıma,\n\
57.                 {FFFFFF}kullandığınız doğru E-posta adresini giriniz.\n\n\
58.                 {FFFFFF}Doğru girilmediği taktirde, normalde olduğu gibi hesap çalınmalarında sorumluluk size aittir.\n\
59.                 ", hata);
60.         }
61.         else
62.         {
63.                 format(str, sizeof(str), "{FF0000}\
64.                 {FFFFFF}E-posta adresi eklemek için aşağıda bulunan kısıma,\n\
65.                 {FFFFFF}kullandığınız doğru E-posta adresini giriniz.\n\n\
66.                 {FFFFFF}Doğru girilmediği taktirde, normalde olduğu gibi hesap çalınmalarında sorumluluk size aittir.\n\
67.                 ");
68.         }
69.         return ShowPlayerDialog(playerid, E_POSTA_EKLE, DIALOG_STYLE_INPUT, "E-Posta Adresi Ekle", str, "Onayla", "Iptal");
70. }
71.  
72. CMD:eposta(playerid, params[])
73. {
74.         if(strlen(oyuncuData[playerid][e_posta]))
75.         {
76.             new str[138];
77.                 format(str, sizeof(str), "{FFFFFF}E-posta adresiniz zaten mevcut, {FFFF00}%s {FFFFFF}.", oyuncuData[playerid][e_posta]);
78.                 ShowPlayerDialog(playerid, BOS_MESAJ, DIALOG_STYLE_MSGBOX, "E-Posta Adresi Ekle", str, "Kapat", "");
79.                 return 1;
80.         }
81.         EpostaDialog(playerid);
82.         return 1;
83. }