Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

offline auth

By: a guest on Aug 3rd, 2012  |  syntax: None  |  size: 4.17 KB  |  hits: 71  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ##############main.ms###############
  2. bind(player_join, null, null, @event, @server_name,
  3.        
  4.         tmsg(@event[player], '§4please login /lgi [pass] or register /rgp [pass]')
  5.                        
  6.         if(equals(pinfo(@event['player'],3), get_value(@event['player'],'ip')),
  7.                 assign(@stval,@event['player'])
  8.             store_value(@stval,'lgin', true)
  9.         store_value(@stval,'lgintime', time())
  10.                 tmsg(@event[player], '§4Sesstion restored')
  11.     )
  12.        
  13. )
  14.  
  15.  bind(player_chat, null, null, @event,
  16.       if(equals(get_value(@event['player'],'lgin'),false),
  17.        msg('§cyou need to be logged in todo this')
  18.                 msg('§c/rgp [pass] to register pass')
  19.                 msg('§c/lgi [pass] to login')
  20.                 cancel()
  21.     )
  22. )
  23.  
  24. bind(player_command, null, null, @event,
  25.    
  26.         if(equals(get_value(@event['player'],'lgin'),false),
  27.             assign(@ca,array('/lgi','/rgp'))
  28.         if(not(array_contains(@ca,to_lower(@event['prefix']))),
  29.             msg('§cyou need to be logged in todo this')
  30.                     msg('§c/rgp [pass] to register pass')
  31.                     msg('§c/lgi [pass] to login')
  32.                         cancel()
  33.         )
  34.    )
  35. )
  36.  
  37. bind(player_interact, null, null, @event,
  38.        
  39.         if(equals(get_value(@event['player'],'lgin'),false),
  40.             msg('§cyou need to be logged in todo this')
  41.                 msg('§c/rgp [pass] to register pass')
  42.                 msg('§c/lgi [pass] to login')
  43.                 cancel()       
  44.         )
  45. )
  46.  
  47. bind(player_quit, null, null, @event,
  48.        
  49.         assign(@stval,@event['player'])
  50.         store_value(@stval,'lgin', false)
  51.         store_value(@stval,'lginatpmt', 0)
  52.         store_value(@stval,'lgouttime', time())
  53. )
  54.  
  55. #####config.txt####
  56.  
  57. rgp:/rgp $pass = >>>
  58.     if(has_value(player(),'pass'),
  59.                
  60.             msg('you already set up an account for this user /snp to set a new pass')
  61.                 die()
  62.         )
  63.         if(not(has_value(player(),'pass')),
  64.            
  65.             assign(@stval,player())
  66.             store_value(@stval,'pass', $pass)
  67.                 store_value(@stval,'lgin', false)
  68.                 store_value(@stval,'ip', pinfo(player(),3))
  69.                 msg('§caccount registerd you can now login with /lgi [pass]')
  70.                 die()
  71.         )
  72. <<<
  73.  
  74. snp:/snp $pass = >>>
  75.         if(equals(get_value(player(),'lgin'),true),
  76.             assign(@stval,player())
  77.             store_value(@stval,'pass', $pass)
  78.             store_value(@stval,'lgin', false)
  79.             msg('§cpassword reset you need to relogin now')
  80.             die()
  81.         )
  82.         if(equals(get_value(player(),'lgin'),false),
  83.             msg('§cyou need to log in todo this')
  84.             die()
  85.         )
  86. <<<
  87.  
  88. lgi:/lgi $pass = >>>   
  89.         if(gte(get_value(player(),'lginatpmt'),5),
  90.                 assign(@stval,player())
  91.                 store_value(@stval,'lginatpmt', 0)
  92.                 store_value(@stval,'lgin', false)
  93.                 kick(player(),'Too many login attempts')
  94.                 die()
  95.         )
  96.         if(equals(get_value(player(),'pass'),$pass),
  97.         assign(@stval,player())
  98.                 store_value(@stval,'lginatpmt', 0)
  99.                 store_value(@stval,'lgin', true)
  100.                 store_value(@stval,'ip', pinfo(player(),3))
  101.                 store_value(@stval,'lgintime', time())
  102.                 msg('§cyou are now logged in')
  103.                 die()
  104.         )
  105.         if(not(equals(get_value(player(),'pass'),$pass)),
  106.                 assign(@stval,player())
  107.             if(not(has_value(player(),'lginatpmt')),   
  108.                     store_value(@stval,'lginatpmt', 0)
  109.                 )
  110.                 assign(@stad,inc(get_value(@stval,'lginatpmt'),1))
  111.                 store_value(@stval,'lginatpmt', @stad)
  112.                 msg('§cincorrect pass')
  113.                 die()
  114.         )
  115.         #if(equals(get_value(player(),'lginatpmt'),4),
  116.                 #msg('§cincorrect pass you have one more try')
  117.                 #die()
  118.         #)
  119. <<<
  120.  
  121. lgo:/lgo $pass = >>>   
  122.         if(equals(get_value(player(),'pass'),$pass),
  123.         assign(@stval,player())
  124.                 store_value(@stval,'lgin', false)
  125.                 store_value(@stval,'lginatpmt', 0)
  126.                 msg('§cyou are now logged out')
  127.                 store_value(@stval,'ip', pinfo(player(),3))
  128.                 die()
  129.         )
  130.         if(not(equals(get_value(player(),'pass'),$pass)),
  131.                 assign(@stval,player())
  132.                 store_value(@stval,'lginatpmt', 0)
  133.                 msg('§cincorrect pass')
  134.                 die()
  135.         )
  136. <<<
  137.  
  138. spp:/spp $player $pass = >>>           
  139.         if(array_contains(pgroup(player()), 'Admins'),
  140.             assign(@stval,player($player))
  141.             store_value(@stval,'pass', $pass)
  142.             store_value(@stval,'lgin', false)
  143.             store_value(@stval,'lginatpmt', 0)
  144.             msg('§cpass setup for ' ,player($player), '')
  145.     )  
  146. <<<
  147.  
  148. rsla:/rsla $player = >>>               
  149.         if(array_contains(pgroup(player()), 'Admins'),
  150.             assign(@stval,player($player))
  151.             store_value(@stval,'lginatpmt', 0)
  152.             msg('§clogin attempts reset for ' ,player($player), '')
  153.     )  
  154. <<<
create a new version of this paste RAW Paste Data