Advertisement
MagNeteC

Global Variable

Dec 7th, 2013
298
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.67 KB | None | 0 0
  1. /*
  2.     =======================================
  3.     |                                     |
  4.     |         «®    GVar     ®»           |
  5.     |        Created By MagNeteC          |
  6.     |             13.11.2013              |
  7.     |                                     |
  8.     =======================================
  9. */
  10. /* nativeler
  11. native SetGVarInt(gname[],veri,id = 0);
  12. native GetGVarInt(gname[],id = 0);
  13. native SetGVarFloat(gname,Float:veri,id = 0);
  14. native GetGVarFloat(gname[],id = 0);
  15. native SetGVarString(gname[],veri[],id = 0);
  16. native GetGVarString(gname[],str_return[],len,id = 0);
  17. native DeleteGVar(gname[],id = 0);
  18. native IsSetGVar(gname[],id = 0);
  19. */
  20. #if defined _GVar_Included
  21.         #endinput
  22. #endif
  23.  
  24. #define _GVar_Included
  25.  
  26. #if !defined MaxGString
  27. #define MaxGString (16384)
  28. #endif
  29. stock SetGVarInt(gname[],veri,id = 0)
  30. {
  31.     setproperty(id, gname, veri);
  32. }
  33. stock GetGVarInt(gname[],id = 0)
  34. {
  35.     return getproperty(id,gname);
  36. }
  37. stock SetGVarFloat(gname[],Float:veri,id = 0)
  38. {
  39.     setproperty(id, gname, _:veri);
  40. }
  41. stock Float:GetGVarFloat(gname[],id = 0)
  42. {
  43.     return Float: getproperty(id, gname );
  44. }
  45. stock SetGVarString(gname[],veri[],id = 0)
  46. {
  47.     if(strlen(veri) > MaxGString)return printf("%s adli veri kaydedilemedi. (Sebep: String boyutu çok büyük!)",gname);
  48.     return setproperty( id, _, getproperty(id,gname) + MaxGString, veri );
  49. }
  50. stock GetGVarString(gname[],str_return[],len = sizeof(str_return),id = 0)
  51. {
  52.     getproperty( id, _, getproperty(id,gname) + MaxGString, str_return );
  53.     strunpack( str_return, str_return, len );
  54. }
  55. stock DeleteGVar(gname[],id = 0)
  56. {
  57.     deleteproperty(id,gname);
  58. }
  59. stock IsSetGVar(gname[],id = 0)
  60. {
  61.     return existproperty(id, gname);
  62. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement