Advertisement
Guest User

Untitled

a guest
Feb 12th, 2016
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.78 KB | None | 0 0
  1. function Rejestracja( ja, params )
  2.  
  3. local result, passwd = sscanf(params,"s")
  4. if result == 1 then
  5. local fileRead = io.open("Baza_Danych/Konta/"..GetPlayerName(ja)..".db","r+")
  6. if fileRead then
  7. Wiadomosc(ja,255,0,0,"Istnieje konto z ową nazwą.")
  8. fileRead:close()
  9. else
  10. Wiadomosc(ja,0,255,60,"Konto zostało założone, Podsumowanie. : ")
  11. Gracz[ja].password = passwd
  12. Gracz[ja].zalogowany = 1
  13. Stun(ja,0)
  14. DajKolor(ja,255,255,255)
  15. PossAndAngle(ja,38937.015625, 3914.1574707031, -2196.0952148438,271)
  16. Wiadomosc(ja,0,255,60,"Nazwa Konta. : "..GetPlayerName(ja))
  17. Wiadomosc(ja,0,255,60,"Haslo do konta. : "..Gracz[ja].password)
  18. Wiadomosc(ja,0,255,60,"Życzymy miłej gry.")
  19. ShowDraw(ja,GameTime)
  20. ShowDraw(ja,realtime)
  21. Wloczega(ja)
  22. Gracz[ja].idklasy = 1
  23. ZapisKonta(ja)
  24. koloryiprawa(ja)
  25. local path = PATH_FILE..GetPlayerName(ja).."_items.db";
  26. if openFile(path, "r") then
  27. local items = readFileLines(path, "sd");
  28. if items then
  29. for i in pairs(items) do
  30. GiveItem(ja, items[i][1], items[i][2]);
  31. end
  32. end
  33. closeFile(path);
  34. else
  35. if openFile(path, "w+") then
  36. closeFile(path);
  37. end
  38. end
  39. end
  40. else
  41. Wiadomosc(ja,255,0,0,"Zła składnia. Wpisz : /zarejestruj hasło")
  42. end
  43.  
  44. end
  45.  
  46. function Logowanie( ja, params )
  47.  
  48. local result, passwd = sscanf(params,"s")
  49. if result == 1 then
  50. local file = io.open("Baza_Danych/Konta/"..GetPlayerName(ja)..".db", "r+")
  51. if file then
  52. local result, pass = sscanf(file:read("*l"),"s")
  53. if result == 1 then
  54.  
  55. if pass == passwd then
  56. Gracz[ja].password = passwd
  57. Wiadomosc(ja,0,255,60,"Logowanie przebiegło pomyślnie, Życzymy miłej gry.")
  58. Gracz[ja].zalogowany = 1
  59. WczytKonta(ja)
  60. Stun(ja,0)
  61. DajKolor(ja,255,255,255)
  62. ShowDraw(ja,GameTime)
  63. ShowDraw(ja,realtime)
  64. koloryiprawa(ja)
  65. local path = PATH_FILE..GetPlayerName(ja).."_items.db";
  66. if openFile(path, "r") then
  67. local items = readFileLines(path, "sd");
  68. if items then
  69. for i in pairs(items) do
  70. GiveItem(ja, items[i][1], items[i][2]);
  71. end
  72. end
  73. closeFile(path);
  74. else
  75. if openFile(path, "w+") then
  76. closeFile(path);
  77. end
  78. end
  79. else
  80. Wiadomosc(ja,255,0,0,"Acces Denied.!")
  81. end
  82. end
  83. file:close()
  84. else
  85. Wiadomosc(ja,255,0,0,"Nie posiadasz konta na tym serwerze.!")
  86. end
  87. end
  88.  
  89. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement