Advertisement
kvann

Selge Fun

Mar 10th, 2013
266
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 7.88 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3. #include <sscanf2>
  4. #include <a_mysql>
  5. #include <foreach>
  6. #include <streamer>
  7. #include <removebuilding>
  8.  
  9. #define SCM SendClientMessage
  10.  
  11. #define COLOR_WHITE 0xFFFFFFFF
  12.  
  13. #define MYSQL_USER "xxxx"
  14. #define MYSQL_PASS "xxxxx"
  15. #define MYSQL_DB "xxxx"
  16. #define MYSQL_HOST "xxxx"
  17.  
  18. enum {
  19.     DIALOG_LOGI,
  20.     DIALOG_REGA,
  21. }
  22.  
  23. new db;
  24.  
  25. enum pInfo {
  26.     mID,
  27.     mRaha,
  28.     mAdmin,
  29.     mSkoor,
  30.     mLogitud,
  31. }
  32. new KasutajaInfo[MAX_PLAYERS][pInfo];
  33.  
  34. native WP_Hash(buffer[], len, const str[]);
  35. native IsValidVehicle(vehicleid);
  36.  
  37. main() { }
  38.  
  39. public OnGameModeInit()
  40. {
  41.     ShowPlayerMarkers(1);
  42.     DisableInteriorEnterExits();
  43.     SetGameModeText("Selge Fun v0.1");
  44.     AddPlayerClass(0, 1958.3783, 1343.1572, 15.3746, 269.1425, 0, 0, 0, 0, 0, 0);
  45.     db = mysql_connect(MYSQL_HOST, MYSQL_USER, MYSQL_DB, MYSQL_PASS);
  46.     mysql_debug(1);
  47.     if (mysql_ping())
  48.     {
  49.         print("MySQL ühendus õnnestus!");
  50.     }
  51.     else
  52.     {
  53.         print("MySQL ühendus ebaõnnestus!");
  54.     }
  55.     SetTimer("SalvestaKasutajad", 1000, 1);
  56.     return 1;
  57. }
  58.  
  59. forward SalvestaKasutajad();
  60. public SalvestaKasutajad()
  61. {
  62.     foreach (Player, i)
  63.     {
  64.         if (!IsPlayerConnected(i) || !KasutajaInfo[i][mLogitud]) continue;
  65.         ResetPlayerMoney(i);
  66.         GivePlayerMoney(i, KasutajaInfo[i][mRaha]);
  67.         new string[256], nimi[24];
  68.         GetPlayerName(i, nimi, 24);
  69.         mysql_format(db, string, "UPDATE `kasutajad` SET `raha` = %i, `skoor` = %i, `adminlvl` = %i WHERE `kasutaja` = '%s'",
  70.         KasutajaInfo[i][mRaha], KasutajaInfo[i][mSkoor], KasutajaInfo[i][mAdmin], nimi);
  71.         mysql_function_query(db, string, false, "", "");
  72.     }
  73. }
  74.  
  75. public OnGameModeExit()
  76. {
  77.     return 1;
  78. }
  79.  
  80. public OnPlayerRequestClass(playerid, classid)
  81. {
  82.     return 1;
  83. }
  84.  
  85. forward LeiaKasutaja(playerid);
  86. public LeiaKasutaja(playerid)
  87. {
  88.     new rows, fields;
  89.     cache_get_data(rows, fields);
  90.     if (rows)
  91.     {
  92.         ShowPlayerDialog(playerid, DIALOG_LOGI, DIALOG_STYLE_PASSWORD, "Sisselogimine",
  93.         "Tere tulemat Selge Fun serverisse! \n\n Sisesta alljärgnevasse kasti enda parool.", "Logi sisse!", "Lahku");
  94.     }
  95.     else
  96.     {
  97.         ShowPlayerDialog(playerid, DIALOG_REGA, DIALOG_STYLE_PASSWORD, "Registreerumine",
  98.         "Tere tulemast Selge Fun serverisse! \n\n Teil puudub serverist kasutaja. \n Sisesta alljärgnevasse kasti enda tulevane parool.",
  99.         "Registreeru!", "Lahku");
  100.     }
  101. }
  102.  
  103. public OnPlayerConnect(playerid)
  104. {
  105.     KasutajaInfo[playerid][mID] = 0;
  106.     KasutajaInfo[playerid][mRaha] = 0;
  107.     KasutajaInfo[playerid][mAdmin] = 0;
  108.     KasutajaInfo[playerid][mSkoor] = 0;
  109.     KasutajaInfo[playerid][mLogitud] = 0;
  110.     new string[256], nimi[24];
  111.     GetPlayerName(playerid, nimi, 24);
  112.     mysql_format(db, string, "SELECT * FROM `kasutajad` WHERE `kasutaja`='%s' LIMIT 1", nimi);
  113.     mysql_function_query(db, string, true, "LeiaKasutaja", "d", playerid);
  114.     return 1;
  115. }
  116.  
  117. public OnPlayerDisconnect(playerid, reason)
  118. {
  119.     return 1;
  120. }
  121.  
  122. public OnPlayerSpawn(playerid)
  123. {
  124.     return 1;
  125. }
  126.  
  127. public OnPlayerDeath(playerid, killerid, reason)
  128. {
  129.     return 1;
  130. }
  131.  
  132. public OnVehicleSpawn(vehicleid)
  133. {
  134.     return 1;
  135. }
  136.  
  137. public OnVehicleDeath(vehicleid, killerid)
  138. {
  139.     return 1;
  140. }
  141.  
  142. public OnPlayerText(playerid, text[])
  143. {
  144.     return 1;
  145. }
  146.  
  147. public OnPlayerCommandText(playerid, cmdtext[])
  148. {
  149.     return 0;
  150. }
  151.  
  152. public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
  153. {
  154.     return 1;
  155. }
  156.  
  157. public OnPlayerExitVehicle(playerid, vehicleid)
  158. {
  159.     return 1;
  160. }
  161.  
  162. public OnPlayerStateChange(playerid, newstate, oldstate)
  163. {
  164.     return 1;
  165. }
  166.  
  167. public OnPlayerEnterCheckpoint(playerid)
  168. {
  169.     return 1;
  170. }
  171.  
  172. public OnPlayerLeaveCheckpoint(playerid)
  173. {
  174.     return 1;
  175. }
  176.  
  177. public OnPlayerEnterRaceCheckpoint(playerid)
  178. {
  179.     return 1;
  180. }
  181.  
  182. public OnPlayerLeaveRaceCheckpoint(playerid)
  183. {
  184.     return 1;
  185. }
  186.  
  187. public OnRconCommand(cmd[])
  188. {
  189.     return 1;
  190. }
  191.  
  192. public OnPlayerRequestSpawn(playerid)
  193. {
  194.     if (KasutajaInfo[playerid][mLogitud] == 0) return 0;
  195.     return 1;
  196. }
  197.  
  198. public OnObjectMoved(objectid)
  199. {
  200.     return 1;
  201. }
  202.  
  203. public OnPlayerObjectMoved(playerid, objectid)
  204. {
  205.     return 1;
  206. }
  207.  
  208. public OnPlayerPickUpPickup(playerid, pickupid)
  209. {
  210.     return 1;
  211. }
  212.  
  213. public OnVehicleMod(playerid, vehicleid, componentid)
  214. {
  215.     return 1;
  216. }
  217.  
  218. public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
  219. {
  220.     return 1;
  221. }
  222.  
  223. public OnVehicleRespray(playerid, vehicleid, color1, color2)
  224. {
  225.     return 1;
  226. }
  227.  
  228. public OnPlayerSelectedMenuRow(playerid, row)
  229. {
  230.     return 1;
  231. }
  232.  
  233. public OnPlayerExitedMenu(playerid)
  234. {
  235.     return 1;
  236. }
  237.  
  238. public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
  239. {
  240.     return 1;
  241. }
  242.  
  243. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  244. {
  245.     return 1;
  246. }
  247.  
  248. public OnRconLoginAttempt(ip[], password[], success)
  249. {
  250.     return 1;
  251. }
  252.  
  253. public OnPlayerUpdate(playerid)
  254. {
  255.     return 1;
  256. }
  257.  
  258. public OnPlayerStreamIn(playerid, forplayerid)
  259. {
  260.     return 1;
  261. }
  262.  
  263. public OnPlayerStreamOut(playerid, forplayerid)
  264. {
  265.     return 1;
  266. }
  267.  
  268. public OnVehicleStreamIn(vehicleid, forplayerid)
  269. {
  270.     return 1;
  271. }
  272.  
  273. public OnVehicleStreamOut(vehicleid, forplayerid)
  274. {
  275.     return 1;
  276. }
  277.  
  278. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  279. {
  280.     switch (dialogid)
  281.     {
  282.         case DIALOG_LOGI:
  283.         {
  284.             new pass[129], nimi[24], string[256];
  285.             GetPlayerName(playerid, nimi, 24);
  286.             WP_Hash(pass, 129, inputtext);
  287.             mysql_format(db, string, "SELECT * FROM `kasutajad` WHERE `kasutaja` = '%s' AND `parool` = '%s'", nimi, pass);
  288.             mysql_function_query(db, string, true, "LogiKontroll", "d", playerid);
  289.         }
  290.         case DIALOG_REGA:
  291.         {
  292.             if (strlen(inputtext) < 6) return ShowPlayerDialog(playerid, DIALOG_REGA, DIALOG_STYLE_PASSWORD, "Registreerumine",
  293.             "Parooli pikkus peab olema vähemalt 6 tähemärki. \n\n Proovi uuesti!", "Registreeru!", "Lahku");
  294.             new pass[129], nimi[24], string[256];
  295.             GetPlayerName(playerid, nimi, 24);
  296.             WP_Hash(pass, 129, inputtext);
  297.             mysql_format(db, string, "INSERT INTO kasutajad (kasutaja, parool) VALUES ('%s', '%s')", nimi, pass);
  298.             mysql_function_query(db, string, false, "", "");
  299.             SCM(playerid, COLOR_WHITE, "Sinu kasutaja on registreeritud!");
  300.             KasutajaInfo[playerid][mLogitud] = 1;
  301.             SpawnPlayer(playerid);
  302.         }
  303.     }
  304.     return 1;
  305. }
  306.  
  307. forward LogiKontroll(playerid);
  308. public LogiKontroll(playerid)
  309. {
  310.     new rows, fields;
  311.     cache_get_data(rows, fields);
  312.     if (rows)
  313.     {
  314.         SCM(playerid, COLOR_WHITE, "Olete edukalt sisse logitud!");
  315.         new cache[24];
  316.         cache_get_row(0, 0, cache);
  317.         KasutajaInfo[playerid][mID] = strval(cache);
  318.         cache_get_row(0, 3, cache);
  319.         KasutajaInfo[playerid][mRaha] = strval(cache);
  320.         cache_get_row(0, 4, cache);
  321.         KasutajaInfo[playerid][mSkoor] = strval(cache);
  322.         cache_get_row(0, 7, cache);
  323.         KasutajaInfo[playerid][mAdmin] = strval(cache);
  324.         KasutajaInfo[playerid][mLogitud] = 1;
  325.         SpawnPlayer(playerid);
  326.     }
  327.     else
  328.     {
  329.         ShowPlayerDialog(playerid, DIALOG_LOGI, DIALOG_STYLE_PASSWORD, "Sisselogimine",
  330.         "Sisestasid vigase parooli. \n\n Proovi uuesti!", "Logi sisse!", "Lahku");
  331.     }
  332. }
  333.  
  334. public OnPlayerClickPlayer(playerid, clickedplayerid, source)
  335. {
  336.     return 1;
  337. }
  338. CMD:masin(playerid, p[])
  339. {
  340.     new model, c1, c2;
  341.     if (sscanf(p, "iI(1)I(1)", model, c1, c2)) return SCM(playerid, COLOR_WHITE, "KASUTUS: /masin <Mudeli ID> <Värv 1> <Värv 2>");
  342.     new Float:x, Float:y, Float:z, Float:a;
  343.     GetPlayerPos(playerid, x, y, z);
  344.     GetPlayerFacingAngle(playerid, a);
  345.     new id = CreateVehicle(model, x, y, z, a, c1, c2, 0);
  346.     PutPlayerInVehicle(playerid, id, 0);
  347.     SCM(playerid, COLOR_WHITE, "Sõiduk tekitatud!");
  348.     return 1;
  349. }
  350. CMD:ls(playerid)
  351. {
  352.     SendClientMessage(playerid, 0xFFFFFFFF, "Oled teleporditud Los Santosesse!");
  353.     SetPlayerPos(playerid, 1524.4299,-1678.3191,13.2316);
  354.     return 1;
  355. }
  356.  
  357. CMD:lv(playerid)
  358. {
  359.     SendClientMessage(playerid, 0xFFFFFFFF, "Oled teleporditud Las Venturasesse!");
  360.     SetPlayerPos(playerid, 2108.3521,1171.1936,10.5474);
  361.     return 1;
  362. }
  363.  
  364. CMD:sf(playerid)
  365. {
  366.     SendClientMessage(playerid, 0xFFFFFFFF, "Oled teleporditud San Fierrosse!");
  367.     SetPlayerPos(playerid, -1989.9741,138.8005,27.2662);
  368.     return 1;
  369. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement