API tools faq
paste
Guest User

[HUN]VBMail - Emails system fordította: Suzuki

a guest
Mar 21st, 2013
138
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.69 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. Name: VBMail
  3. Description: Email system
  4. Author: ViniBorn
  5. Contact : [email protected]
  6. Country : Brazil
  7. Fordította: Suzuki
  8.  
  9. *** *** *** ***** *** *** *** *** ***** ******** ****** ***
  10. *** *** *** *** *** *** *** *** ** *** *** *** *** *** *** ***
  11. *** *** *** *** *** *** *** *** ** *** *** *** *** *** *** ***
  12. *** *** *** *** *** *** *** *** ** *** *** *** *** *** *** ***
  13. ****** *** *** ****** *** *** **** ***** *** *** *** ******
  14.  
  15.  
  16.  
  17.  
  18.  
  19. Do not remove the credits.
  20. Your name is valuable, do not mess it.
  21.  
  22.  
  23. Comments:
  24.  
  25. - The default directory for saving e-mail is: scriptfiles / emails. Create e-mail folder.
  26.  
  27. - The default directory for user accounts is: scriptfiles / users. Modify the Players defines, according to
  28. where the accounts are saved on your server.
  29.  
  30. - The inbox each player has a capacity of 10 emails.
  31.  
  32.  
  33. Updates :
  34.  
  35. * 20/08/11
  36.  
  37. - New method for reading email using DIALOG_STYLE_LIST
  38. - Indication of e-mails (Read) or (not read)
  39.  
  40.  
  41. */
  42.  
  43. #include <a_samp>
  44. #include <Dini>
  45.  
  46. #define Local "/emails/%s.ini" // Directory of emails
  47. #define Players "/users/%s.ini" // Directory of accounts
  48.  
  49. new Receiver[MAX_PLAYERS][32];
  50. static const Status[2][14] = {
  51. {"(Read) - "},
  52. {"(Not read) - "}
  53. };
  54. new Emails[][10] = {
  55. "1",
  56. "2",
  57. "3",
  58. "4",
  59. "5",
  60. "6",
  61. "7",
  62. "8",
  63. "9",
  64. "10"
  65. };
  66.  
  67. public OnFilterScriptInit()
  68. {
  69. print("\n--------------------------------------");
  70. print(" E-mail system By: ViniBorn");
  71. print(" - Do not remove the credits - ");
  72. print("--------------------------------------\n");
  73. return 1;
  74. }
  75.  
  76. public OnFilterScriptExit()
  77. {
  78. print("\n\tE-mail system finished.");
  79. return 1;
  80. }
  81.  
  82. public OnPlayerCommandText(playerid, cmdtext[])
  83. {
  84. if (strcmp("/pcvasarlas", cmdtext, true, 10) == 0)
  85. {
  86. if(GetPlayerMoney(playerid) < 2000)
  87. return SendClientMessage(playerid, 0xAFAFAFAA,"Nincsen elég pénzed..");
  88.  
  89. new email[32];
  90. format(email,32,Local,Player(playerid));
  91.  
  92. if(dini_Exists(email))
  93. return SendClientMessage(playerid, 0xAFAFAFAA,"Már van egy számítógéped.");
  94.  
  95. dini_Create(email);
  96.  
  97. for(new i=0;i<sizeof(Emails);i++)
  98. dini_Set(email,Emails[i],"Üres");
  99.  
  100. GameTextForPlayer(playerid, "költség. : $ 2.000", 5000, 1);
  101. GivePlayerMoney(playerid, -2000);
  102. PlayerPlaySound(playerid, 1052, 0.0, 0.0, 0.0);
  103. SendClientMessage(playerid, 0xAFAFAFAA, "Most már használhatja az e-mailját /email parancsal.");
  104.  
  105. return 1;
  106. }
  107. if(strcmp("/email", cmdtext, true, 10) == 0)
  108. {
  109. new email[32];
  110. format(email,32,Local,Player(playerid));
  111.  
  112. if(!dini_Exists(email))
  113. return SendClientMessage(playerid, 0xAFAFAFAA,"Önnek nincsen számítógépe.");
  114.  
  115. new listitems[] = "Olvasás\nKüld\nTörlés";
  116. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  117.  
  118. return 1;
  119. }
  120. return 0;
  121. }
  122.  
  123. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  124. {
  125. if(dialogid == 225)
  126. {
  127. if(!response)
  128. return 0;
  129. else
  130. {
  131. new str[128], email[32], string[1024];
  132. format(email,32,Local,Player(playerid));
  133. switch (listitem)
  134. {
  135. case 0:
  136. {
  137. for(new i=0;i<sizeof(Emails);i++)
  138. {
  139. format(str,128,"{C2A2DA}%d - %s\n",strval(Emails[i]),dini_Get(email,Emails[i]));
  140. strcat(string, str);
  141. }
  142. ShowPlayerDialog(playerid, 226, DIALOG_STYLE_LIST, "postafiók : ", string,"Választ","Vissza");
  143. }
  144. case 1: ShowPlayerDialog(playerid, 227,DIALOG_STYLE_INPUT,"E-mail","Adja meg a címzett nevét:","Küld","Vissza");
  145. case 2: ShowPlayerDialog(playerid, 228,DIALOG_STYLE_INPUT,"E-mail","Adja meg a telefonszámát a küldéshez.","Törlés","Vissza");
  146. }
  147. }
  148. }
  149. else if(dialogid == 226)//Olvasás
  150. {
  151. if(!response)
  152. {
  153. new listitems[] = "Olvasás\nKüldés\nTörlés";
  154. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  155. }
  156. else
  157. MyEmail(playerid,listitem);
  158. }
  159. else if(dialogid == 227)//Küldés (receiver)
  160. {
  161. if(!response)
  162. {
  163. new listitems[] = "Olvasás\nKüldés\nTörlés";
  164. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  165. }
  166. else
  167. {
  168. new file[64];
  169. format(file, sizeof(file), Players,inputtext);
  170. if(dini_Exists(file))
  171. {
  172. new giveid = ReturnUser(inputtext);
  173. format(file,32,Local,Player(giveid));
  174.  
  175. if(!dini_Exists(file))
  176. return SendClientMessage(playerid, 0xAA3333AA,"[Hiba] A Játékos nem rendelkezik számítógéppel.");
  177.  
  178. new str[128];
  179. format(str,128,"Arra készüszl, hogy küldj egy e-mailt %s. Írja be az üzenetet..", inputtext);
  180. SendClientMessage(playerid, 0xFFD700AA,str);
  181. format(Receiver[playerid],32,inputtext);
  182. return ShowPlayerDialog(playerid,229,DIALOG_STYLE_INPUT,"E-mail","Írja be az üzenetet:","Küldés","Vissza");
  183. }
  184. else
  185. SendClientMessage(playerid,0xAA3333AA,"[Hiba] A Fiók nem létezik.");
  186. }
  187. }
  188. else if(dialogid == 228)//Törlés
  189. {
  190. if(!response)
  191. {
  192. new listitems[] = "Olvasás\nKüldés\nTörlés";
  193. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  194. }
  195. else
  196. {
  197. new n;
  198. n = strval(inputtext);
  199.  
  200. new email[32];
  201. format(email,32,Local,Player(playerid));
  202. dini_Set(email,Emails[n-1],"Üres");
  203. }
  204. }
  205. else if(dialogid == 229)//Olvasás (üzenet.)
  206. {
  207. if(response)
  208. {
  209. SendClientMessage(playerid,0xFFD700AA,"E-mail sikeresen elküldted.");
  210. SendEmail(playerid,inputtext);
  211. }
  212. }
  213. else if(dialogid == 230)//Email megjelenítése.
  214. {
  215. if(response)
  216. {
  217. new listitems[] = "Olvasás\nKüldés\nTörlés";
  218. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  219. }
  220. }
  221. return 1;
  222. }
  223.  
  224. stock MyEmail(playerid,number)
  225. {
  226. new email[32],email2[128];
  227. format(email,32,Local,Player(playerid));
  228.  
  229. if(strcmp(dini_Get(email,Emails[number]),"Üres",true)==0)
  230. return ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "Én email-óm : ", listitems,"Választ","Kilépés");
  231.  
  232. format(email2,128,"%s",dini_Get(email,Emails[number]));
  233. if(email2[1] == 'N')
  234. {
  235. strdel(email2,0,14);
  236. dini_Set(email,Emails[number],email2);
  237. format(email2,128,"%s%s",Status[0],dini_Get(email,Emails[number]));
  238. dini_Set(email,Emails[number],email2);
  239. }
  240. ShowPlayerDialog(playerid, 230, DIALOG_STYLE_MSGBOX, "Postafiók", email2, "Vissza", "Kilépés");
  241. return 1;
  242. }
  243.  
  244. stock SendEmail(playerid,const string[])
  245. {
  246. new email[32],str[128];
  247. format(email,32,Local,Receiver[playerid]);
  248. if(!dini_Exists(email))
  249. {
  250. for(new i=0;i<sizeof(Emails);i++)
  251. dini_Set(email,Emails[i],"Üres");
  252. }
  253. else
  254. {
  255. format(str,128,"%s %s -Feladó : %s",Status[1],string,Player(playerid));
  256. for(new i=0;i<sizeof(Emails);i++)
  257. if(strcmp(dini_Get(email,Emails[i]),"Üres",true)==0)
  258. {
  259. new giveid = ReturnUser(Receiver[playerid]);
  260. if(IsPlayerConnected(giveid))
  261. GameTextForPlayer(giveid, "Ön kapott egy új e-mailt.", 5000, 5);
  262. dini_Set(email,Emails[i],str);
  263. return 1;
  264. }
  265.  
  266. return SendClientMessage(playerid,0xAA3333AA,"[Hiba] A postafiók megtelt.");
  267. }
  268. return 1;
  269. }
  270.  
  271. stock Player(playerid)
  272. {
  273. new pname[MAX_PLAYER_NAME];
  274. GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
  275. return pname;
  276. }
  277.  
  278. stock IsNumeric(const string[])
  279. {
  280. for (new i = 0, j = strlen(string); i < j; i++)
  281. if(string[i] > '9' || string[i] < '0') return 0;
  282.  
  283. return 1;
  284. }
  285.  
  286. stock ReturnUser(PlayerName[])
  287. {
  288. if(IsNumeric(PlayerName))
  289. return strval(PlayerName);
  290. else
  291. {
  292. new found=0, id;
  293. for(new i=0; i <= MAX_PLAYERS; i++)
  294. {
  295. if(IsPlayerConnected(i))
  296. {
  297. new foundname[MAX_PLAYER_NAME];
  298. GetPlayerName(i, foundname, MAX_PLAYER_NAME);
  299. new namelen = strlen(foundname);
  300. new bool:searched=false;
  301. for(new pos=0; pos <= namelen; pos++)
  302. {
  303. if(searched != true)
  304. {
  305. if(strfind(foundname,PlayerName,true) == pos)
  306. {
  307. found++;
  308. id = i;
  309. }
  310. }
  311. }
  312. }
  313. }
  314. if(found == 1)
  315. return id;
  316. else
  317. return INVALID_PLAYER_ID;
  318. }
  319. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!