API tools faq
paste
Guest User

VBMail - Email system - By: ViniBorn

a guest
Aug 20th, 2011
3,521
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.47 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.  
  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("/buypc", cmdtext, true, 10) == 0)
  85. {
  86. if(GetPlayerMoney(playerid) < 2000)
  87. return SendClientMessage(playerid, 0xAFAFAFAA,"You don't have this amount.");
  88.  
  89. new email[32];
  90. format(email,32,Local,Player(playerid));
  91.  
  92. if(dini_Exists(email))
  93. return SendClientMessage(playerid, 0xAFAFAFAA,"You already have a computer.");
  94.  
  95. dini_Create(email);
  96.  
  97. for(new i=0;i<sizeof(Emails);i++)
  98. dini_Set(email,Emails[i],"Empty");
  99.  
  100. GameTextForPlayer(playerid, "Cost : $ 2.000", 5000, 1);
  101. GivePlayerMoney(playerid, -2000);
  102. PlayerPlaySound(playerid, 1052, 0.0, 0.0, 0.0);
  103. SendClientMessage(playerid, 0xAFAFAFAA, "Now you can use /email.");
  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,"You don't have a computer.");
  114.  
  115. new listitems[] = "Read\nSend\nDelete";
  116. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", listitems,"Select","Exit");
  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, "Inbox : ", string,"Select","Back");
  143. }
  144. case 1: ShowPlayerDialog(playerid, 227,DIALOG_STYLE_INPUT,"E-mail","Enter the receiver's name:","Send","Back");
  145. case 2: ShowPlayerDialog(playerid, 228,DIALOG_STYLE_INPUT,"E-mail","Enter the number of e-mail:","Delete","Back");
  146. }
  147. }
  148. }
  149. else if(dialogid == 226)//Read
  150. {
  151. if(!response)
  152. {
  153. new listitems[] = "Read\nSend\nDelete";
  154. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", listitems,"Select","Exit");
  155. }
  156. else
  157. MyEmail(playerid,listitem);
  158. }
  159. else if(dialogid == 227)//Send (receiver)
  160. {
  161. if(!response)
  162. {
  163. new listitems[] = "Read\nSend\nDelete";
  164. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", listitems,"Select","Exit");
  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,"[ERROR] The player doesn't have a computer.");
  177.  
  178. new str[128];
  179. format(str,128,"You are about to send an email to %s. Enter your message.", inputtext);
  180. SendClientMessage(playerid, 0xFFD700AA,str);
  181. format(Receiver[playerid],32,inputtext);
  182. return ShowPlayerDialog(playerid,229,DIALOG_STYLE_INPUT,"E-mail","Enter your message:","Send","Back");
  183. }
  184. else
  185. SendClientMessage(playerid,0xAA3333AA,"[ERROR] The account doesn't exist.");
  186. }
  187. }
  188. else if(dialogid == 228)//Delete
  189. {
  190. if(!response)
  191. {
  192. new listitems[] = "Read\nSend\nDelete";
  193. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", listitems,"Select","Exit");
  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],"Empty");
  203. }
  204. }
  205. else if(dialogid == 229)//Send (message)
  206. {
  207. if(response)
  208. {
  209. SendClientMessage(playerid,0xFFD700AA,"E-mail successfully sent.");
  210. SendEmail(playerid,inputtext);
  211. }
  212. }
  213. else if(dialogid == 230)//Show e-mail
  214. {
  215. if(response)
  216. {
  217. new listitems[] = "Read\nSend\nDelete";
  218. ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", listitems,"Select","Exit");
  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]),"Empty",true)==0)
  230. return ShowPlayerDialog(playerid, 225, DIALOG_STYLE_LIST, "My email : ", "Read\nSend\nDelete","Select","Exit");
  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, "Inbox", email2, "Back", "Exit");
  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],"Empty");
  252. }
  253. else
  254. {
  255. format(str,128,"%s %s - Sender : %s",Status[1],string,Player(playerid));
  256. for(new i=0;i<sizeof(Emails);i++)
  257. if(strcmp(dini_Get(email,Emails[i]),"Empty",true)==0)
  258. {
  259. new giveid = ReturnUser(Receiver[playerid]);
  260. if(IsPlayerConnected(giveid))
  261. GameTextForPlayer(giveid, "You received a new e-mail.", 5000, 5);
  262. dini_Set(email,Emails[i],str);
  263. return 1;
  264. }
  265.  
  266. return SendClientMessage(playerid,0xAA3333AA,"[ERROR] The inbox is full.");
  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!