Guest User

Untitled

a guest
Dec 6th, 2018
115
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.51 KB | None | 0 0
  1. ON 1:TEXT:*:?: {
  2. if ($1 == !Login) {
  3. var %pass = $readini(SeconBOT-Users.ini,$2,Password)
  4. if (!%pass) { msg $nick 0,1You have entered wrong username. | Halt }
  5. if (%pass != $3) { msg $nick 0,1You have entered wrong password. | Halt }
  6. var %adr = $iif($address($nick,2),$ifmatch,$nick)
  7. var %accessLevel = $readini(SeconBOT-Users.ini,$2,Level)
  8. .auser Loggedin $nick %accessLevel
  9. writeini SeconBOT-Loggedin.ini %adr Username $2
  10. msg $nick 0,1You are now logged in to15 $2 0with (15 $+ %adr $+ 0).
  11. msg #Secon 15,1 $+ $nick 0is now logged in to15 $2 0( $+ 14 $+ $ulist($nick).info $+ 0 $+ ) with (15 $+ %adr $+ 0).
  12. }
  13. }
  14.  
  15. ON Loggedin:TEXT:*:?: {
  16. if ($1 == !Register) {
  17. if (!$2 || !$3 || !$4) { msg $nick 0,1You have entered a wrong syntax for this command! | Halt }
  18. var %userExists = $readini(SeconBOT-Users.ini,$2,Level)
  19. if (%userExists) { msg $nick 0,1 The username 14 $+ $2 0is already in use! | Halt }
  20. writeini SeconBOT-Users.ini $2 Password $3
  21. writeini SeconBOT-Users.ini $2 Level $4
  22. msg $nick 0,1Successfully registered a new user:14 $2 0(15 $+ $4 $+ 0).
  23. }
  24. }
  25.  
  26. ON Loggedin:JOIN:#: {
  27. if (# != #Secon) { Halt }
  28. .ruser $nick
  29. }
  30.  
  31. ON Loggedin:PART:#Secon: {
  32. var %adr = $iif($address($nick,2),$ifmatch,$nick)
  33. var %log = $readini(SeconBOT-Loggedin.ini,%adr,Username)
  34. msg $nick 0,1You are now logged out from14 %log $+ 0!
  35. msg #Secon 15,1 $+ $nick $+ 0 is now logged out from 14 $+ %log $+ 0account.
  36. .ruser $nick
  37. }
Add Comment
Please, Sign In to add comment