NotesWhat is notes.io?

Notes brand slogan

Notes - notes.io

Popular notes
CatchEvent OnMSO( $userName, $text ) # Player event

$idxOfFirtsSpace = indexOf( $text, " ");
IF( $idxOfFirtsSpace == -1 ) THEN
$command = $text;
$argv = "";
ELSE
$command = subStr( $text,0,$idxOfFirtsSpace );
$argv = trim( subStr( $text,$idxOfFirtsSpace ) );
ENDIF

SWITCH( $command )

CASE "!kaydol":
Register( $KeyFlags,$id );
ELSE
PrivMsg( "^1You are not allowed to do that");
ENDIF
BREAK;
CASE "!regconfig":
Conf_Register( $KeyFlags,$id );
ELSE
PrivMsg( "^1YETKIN YOK");
ENDIF
BREAK;
CASE "!giriş":
Login( $KeyFlags,$id );
ELSE
PrivMsg( "^1You are not allowed to do that");
ENDIF
BREAK;
CASE "!regkontrol":

Manage_registrations( $KeyFlags,$id );
ELSE
PrivMsg( "^1YETKIN YOK");
ENDIF
BREAK;
ENDSWITCH
EndCatchEvent

CatchEvent OnLapperStart()
OnLapperStart_Registration();
EndCatchEvent

CatchEvent OnConnect( $userName ) # Player event
OnConnect_Ask_Registration();
EndCatchEvent

CatchEvent OnNewPlayerJoin( $userName ) # Player event
OnNewPlayerJoin_Registration();
EndCatchEvent

Sub OnLapperStart_Registration()
### Declare global variables ###
GlobalVar $register_version;
GlobalVar $register_teamname;
GlobalVar $register_option;
GlobalVar $register_show_logon;
GlobalVar $register_join_check;
GlobalVar $register_exclude_admins;
GlobalVar $register_counter;
GlobalVar $register_store_method;
GlobalVar $register_allow_duplicates;
GlobalVar $lfs_username;
GlobalVar $login_name;
GlobalVar $password;
GlobalVar $account_id;
GlobalVar $rows_displayed;
GlobalVar $total_rows_displayed;
### End ###

### Set version number ###
$register_version="V1.14";
### End ###

### Load stored values and give them a default setting if no stored value has been found ###
$register_teamname = GetStoredValue( "REGISTER_TEAMNAME" );
IF ($register_teamname == "")
THEN
$register_teamname ="[TEAMNAME]";
ENDIF

$register_option = GetStoredValue( "REGISTER_OPTION" );
IF ($register_option == "")
THEN
$register_option="admin";
ENDIF

$register_show_logon = GetStoredValue( "REGISTER_SHOW_LOGON" );
IF ($register_show_logon == "")
THEN
$register_show_logon="no";
ENDIF

$register_join_check = GetStoredValue( "REGISTER_JOIN_CHECK" );
IF ($register_join_check == "")
THEN
$register_join_check="no";
ENDIF

$register_exclude_admins = GetStoredValue( "REGISTER_EXCLUDE_ADMINS" );
IF ($register_exclude_admins == "")
THEN
$register_exclude_admins="yes";
ENDIF

$register_counter = GetStoredValue( "REGISTER_COUNTER" );
IF ($register_counter == "")
THEN
$register_counter=0;
ELSE
$register_counter = ToNum( GetStoredValue( "REGISTER_COUNTER" ) );
ENDIF

$register_store_method = GetStoredValue( "REGISTER_STORE_METHOD" );
IF ($register_store_method == "")
THEN
$register_store_method="lfsname";
ENDIF

$register_allow_duplicates = GetStoredValue( "REGISTER_ALLOW_DUPLICATES" );
IF ($register_allow_duplicates == "")
THEN
$register_allow_duplicates="yes";
ENDIF
### End ###

### Give global variables an empty value ###
$lfs_username="";
$login_name="";
$password="";
$account_id="";
$rows_displayed=0;
$total_rows_displayed=0;
### End ###
EndSub

Sub OnConnect_Ask_Registration()
### Set userName variable and load the nicknames of admins specified in admin.txt ###
$userName = GetCurrentPlayerVar( "UserName" );
UserGroupFromFile( "admin", "./admin.txt" );
### End ###

### Set allowed_to_join to no by default, this is only checked if check is enabled ###
SetCurrentPlayerVar( "allowed_to_join","no" );
### End ###

### If user isn't a specified admin, login or registration is required ###
IF ( $register_exclude_admins == "yes" )
THEN
IF( UserInGroup( "admin", $userName ) != 1 )
THEN
### Get UserName and search in storedvalue.dbs for saved values for this user ###
IF ( $register_store_method == "number" )
THEN
FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_username_" . $i ) == $userName )
THEN
SetCurrentPlayerVar( "logon_code",GetStoredValue( "logon_code_" . $i ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( "logon_password_" . $i ) );
ENDIF
ENDFOR
ELSE
SetCurrentPlayerVar( "logon_code",GetStoredValue( $userName . "logon_code" ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( $userName . "logon_password" ) );
ENDIF
### End ###

### Set number of logon attempts to 3 ###
SetCurrentPlayerVar( "login_attempts",3 );
### End ###

### Set left/right and top/bottom coordinates ###
$left_right_welcome=64;
$top_bottom_welcome=80;
### End ###

openPrivButton( "welcome_reg_bg",$left_right_welcome,$top_bottom_welcome,72,32,5,-1,16,"" );
openPrivButton( "welcome_reg_title",$left_right_welcome+1,$top_bottom_welcome+1,70,5,5,-1,32,"^7Sunucumuza hoşgeldin! EN/Welcome at this server" );
openPrivButton( "welcome_reg_server",$left_right_welcome+1,$top_bottom_welcome+6,70,5,5,-1,32,"^7Sunucumuzun Adı/Server Name: " . getLapperVar( "HostName" ) );

IF ($register_option == "user")
THEN
IF ( GetCurrentPlayerVar( "logon_code") == "" && GetCurrentPlayerVar( "logon_password") == "" )
THEN
openPrivButton( "welcome_register",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3Kaydol",Register );
ELSE
openPrivButton( "welcome_login",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3Giriş/login",Login );
ENDIF
ELSE
IF ( GetCurrentPlayerVar( "logon_code") != "" && GetCurrentPlayerVar( "logon_password") != "" )
THEN
openPrivButton( "welcome_login",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3Giriş/login",Login );
openPrivButton( "welcome_login1",$left_right_welcome+20,$top_bottom_welcome+21,35,5,5,-1,32,"^3Kayıt ol/Register",Register );
ELSE
openPrivButton( "welcome_register",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3MESSAGE: ^7Ask an admin..."
. "%nl%^7... to create an account for you");
ENDIF
ENDIF
openPrivButton( "leave_server_connect",$left_right_welcome+36,$top_bottom_welcome+16,35,5,5,-1,32,"^3Sunucudan ayrıl -_-",Leave_server );
openPrivButton( "action_required_connect",$left_right_welcome+1,$top_bottom_welcome+26,70,5,5,30,32,"^7Giriş yapmazsan atılacaksın. ^0Süren: %cpt%",Leave_server );
ELSE
PrivMsg ("^3MESSAGE: ^7Admins don't need to login on this server");
ENDIF
ELSE
### Get UserName and search in storedvalue.dbs for saved values for this user ###
IF ( $register_store_method == "number" )
THEN
FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_username_" . $i ) == $userName )
THEN
SetCurrentPlayerVar( "logon_code",GetStoredValue( "logon_code_" . $i ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( "logon_password_" . $i ) );
ENDIF
ENDFOR
ELSE
SetCurrentPlayerVar( "logon_code",GetStoredValue( $userName . "logon_code" ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( $userName . "logon_password" ) );
ENDIF
### End ###

### Set number of logon attempts to 3 ###
SetCurrentPlayerVar( "login_attempts",3 );
### End ###

### Set left/right and top/bottom coordinates ###
$left_right_welcome=64;
$top_bottom_welcome=80;
### End ###

openPrivButton( "welcome_reg_bg",$left_right_welcome,$top_bottom_welcome,72,32,5,-1,16,"" );
openPrivButton( "welcome_reg_title",$left_right_welcome+1,$top_bottom_welcome+1,70,5,5,-1,32,"^7Welcome at this ^7server" );
openPrivButton( "welcome_reg_server",$left_right_welcome+1,$top_bottom_welcome+6,70,5,5,-1,32,"^7You are on server: " . getLapperVar( "HostName" ) );
IF ( GetCurrentPlayerVar( "logon_code") != "" && GetCurrentPlayerVar( "logon_password") != "" )
THEN
openPrivButton( "welcome_login",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3Giriş",Login );
ELSE
IF ( UserInGroup( "admin", $userName ) == 1 )
THEN
openPrivButton( "welcome_register",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^1Admin register",Register );
SetCurrentPlayerVar( "admin_login_username",$userName );
ELSE
openPrivButton( "welcome_register",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3MESSAGE: ^7Ask an admin..."
. "%nl%^7... to create an account for you");
ENDIF
ENDIF

IF ($register_option == "user")
THEN
IF ( GetCurrentPlayerVar( "logon_code") == "" && GetCurrentPlayerVar( "logon_password") == "" )
THEN
openPrivButton( "welcome_register",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^3Kaydol",Register );
ENDIF
ENDIF
openPrivButton( "leave_server_connect",$left_right_welcome+36,$top_bottom_welcome+16,35,5,5,-1,32,"^3Sunucudan ayrıl",Leave_server );
openPrivButton( "action_required_connect",$left_right_welcome+1,$top_bottom_welcome+26,70,5,5,30,32,"^7Giriş yapmazsan atılacaksın. ^0Süren: %cpt%",Leave_server );
ENDIF
### End ###
EndSub

Sub OnNewPlayerJoin_Registration()
$userName = GetCurrentPlayerVar( "UserName" );

IF ($register_join_check == "yes")
THEN
IF ( GetCurrentPlayerVar( "allowed_to_join" ) == "no" && UserInGroup( "admin", $userName ) != 1 )
THEN
cmdLFS("/kick " . GetCurrentPlayerVar("NickName") );
PrivMsg ("^3MESSAGE: ^7Atıldın.");
ENDIF
ENDIF
EndSub

Sub Login( $KeyFlags,$id )
### Set left/right and top/bottom coordinates ###
$left_right_welcome=64;
$top_bottom_welcome=80;
### End ###

### Close buttons that were drawn when user connected ###
closePrivButton("welcome_reg_bg&welcome_reg_title&welcome_reg_server&welcome_login1&welcome_login&welcome_register&leave_server_connect&warning&action_required_connect");
### End ###

openPrivButton( "loginscreen_bg",$left_right_welcome,$top_bottom_welcome,72,42,5,-1,16,"" );
openPrivButton( "loginscreen_title",$left_right_welcome+1,$top_bottom_welcome+1,70,5,5,-1,32,"^715 TEMMUZ SUNUCU GİRİŞİ" );
openPrivButton( "loginscreen_1a",$left_right_welcome+1,$top_bottom_welcome+11,35,5,5,-1,32,"^7Kullanıcı adı: " );
IF ( GetCurrentPlayerVar( "logon_code_input" ) == "")
THEN
openPrivTextButton( "loginscreen_1b",$left_right_welcome+36,$top_bottom_welcome+11,35,5,5,32,"^3Kullanıcı adı","^3***",40,config_loginname );
ELSE
openPrivTextButton( "loginscreen_1b",$left_right_welcome+36,$top_bottom_welcome+11,35,5,5,32,"^3Kullanıcı adı","^3".GetCurrentPlayerVar( "logon_code_input" ),40,config_loginname );
ENDIF
openPrivButton( "loginscreen_2a",$left_right_welcome+1,$top_bottom_welcome+16,35,5,5,-1,32,"^7Şifre: " );
IF ( GetCurrentPlayerVar( "logon_password_input" ) == "")
THEN
openPrivTextButton( "loginscreen_2b",$left_right_welcome+36,$top_bottom_welcome+16,35,5,5,32,"^3Şifre","^3***",40,config_password );
ELSE
openPrivTextButton( "loginscreen_2b",$left_right_welcome+36,$top_bottom_welcome+16,35,5,5,32,"^3Şifre","^3".GetCurrentPlayerVar( "logon_password_input" ),40,config_password );
ENDIF

openPrivButton( "loginscreen_check",$left_right_welcome+1,$top_bottom_welcome+26,35,5,5,-1,32,"^3Giriş yap!",Check_login );
openPrivButton( "leave_server_login",$left_right_welcome+36,$top_bottom_welcome+26,35,5,5,-1,32,"^3Sunucudan ayrıl!",Leave_server );
openPrivButton( "action_required_login",$left_right_welcome+1,$top_bottom_welcome+36,70,5,5,60,32,"^7Giriş yapmazsan atılacaksın. ^0Süren: %cpt%",Leave_server );
EndSub

Sub Register( $KeyFlags,$id )
### Set left/right and top/bottom coordinates ###
$left_right_welcome=64;
$top_bottom_welcome=80;
### End ###

### Close buttons that were drawn when user connected ###
closePrivButton("welcome_reg_bg&welcome_reg_title&welcome_reg_server&welcome_login&welcome_login1&welcome_register&leave_server_connect&action_required_connect");
### End ###

### Set userName variable ###
$userName = GetCurrentPlayerVar( "UserName" );
### End ###

### Check if register option is set to 'user' and if user is or isn't an admin ###
### Check if user already has a registered account on this server, start registration if not, redirect to login screen if account is present ###
IF ($register_option == "user" && UserInGroup( "admin", $userName ) != 1)
THEN
IF ( GetCurrentPlayerVar( "logon_code") == "" && GetCurrentPlayerVar( "logon_password") == "" )
THEN
openPrivButton( "register_bg",$left_right_welcome,$top_bottom_welcome,72,67,5,-1,16,"" );
openPrivButton( "register_title",$left_right_welcome+1,$top_bottom_welcome+1,70,5,5,-1,32,"^7AY YILDIZ SUNUCU KAYIT FORMU" );
openPrivButton( "warning",$left_right_welcome+1,$top_bottom_welcome+11,70,5,5,-1,96," ^1!!! UYARI ^7- ^6WARNING ^7- ^1UYARI ^7- ^6WARNING !!! "
. "%nl%^7 "
. "%nl%^7- Bilgilerinizi unutmayınız, herhangi bir problemde bizlere ulaşınız."
. "%nl%^7- KAYIT SISTEMIMIZ DENEME ASAMASINDADIR. HATALARI OLABİLİR!!!");
openPrivButton( "register_1a",$left_right_welcome+1,$top_bottom_welcome+36,35,5,5,-1,32,"^7Login name: " );
IF ( GetCurrentPlayerVar( "logon_code_input_2" ) == "")
THEN
openPrivTextButton( "register_1b",$left_right_welcome+36,$top_bottom_welcome+36,35,5,5,32,"^3Login name","^3***",40,config_loginname_2 );
ELSE
openPrivTextButton( "register_1b",$left_right_welcome+36,$top_bottom_welcome+36,35,5,5,32,"^3Login name","^3".GetCurrentPlayerVar( "logon_code_input_2" ),40,config_loginname_2 );
ENDIF
openPrivButton( "register_2a",$left_right_welcome+1,$top_bottom_welcome+41,35,5,5,-1,32,"^7Password: " );
IF ( GetCurrentPlayerVar( "logon_password_input_2" ) == "")
THEN
openPrivTextButton( "register_2b",$left_right_welcome+36,$top_bottom_welcome+41,35,5,5,32,"^3Password","^3***",40,config_password_2 );
ELSE
openPrivTextButton( "register_2b",$left_right_welcome+36,$top_bottom_welcome+41,35,5,5,32,"^3Password","^3".GetCurrentPlayerVar( "logon_password_input_2" ),40,config_password_2 );
ENDIF

openPrivButton( "registration_check",$left_right_welcome+1,$top_bottom_welcome+51,35,5,5,-1,32,"^3Kaydını onayla!",Check_registration );
openPrivButton( "leave_server_register",$left_right_welcome+36,$top_bottom_welcome+51,35,5,5,-1,32,"^3Sunucudan ayrıl!",Leave_server );
openPrivButton( "action_required_register",$left_right_welcome+1,$top_bottom_welcome+61,70,5,5,60,32,"^7Giriş yapmazsan atılacaksın. ^0Süren: %cpt%",Leave_server );
ENDIF
ELSE
### If admin is forced to create an account for him self, the form is 5 rows longer, to make room for the countdown button ###
IF ( GetCurrentPlayerVar( "admin_login_username" ) != "" )
THEN
openPrivButton( "register_bg",$left_right_welcome,$top_bottom_welcome,72,72,5,-1,16,"" );
ELSE
openPrivButton( "register_bg",$left_right_welcome,$top_bottom_welcome,72,67,5,-1,16,"" );
ENDIF
### End ###

openPrivButton( "register_bg",$left_right_welcome,$top_bottom_welcome,72,67,5,-1,16,"" );
openPrivButton( "register_title",$left_right_welcome+1,$top_bottom_welcome+1,70,5,5,-1,32,"^7AY YILDIZ SUNUCU KAYIT FORMU" );
openPrivButton( "warning",$left_right_welcome+1,$top_bottom_welcome+11,70,5,5,-1,96," ^1!!! UYARI ^7- ^6WARNING ^7- ^1UYARI ^7- ^6WARNING !!! "
. "%nl%^7 "
. "%nl%^7- Bilgilerinizi unutmayınız, herhangi bir problemde bizlere ulaşınız."
. "%nl%^7- KAYIT SISTEMIMIZ DENEME ASAMASINDADIR. HATALARI OLABİLİR!!!");
openPrivButton( "register_1a",$left_right_welcome+1,$top_bottom_welcome+36,35,5,5,-1,32,"^7Yaşınız/your age? " );
IF ( $lfs_username == "" )
THEN
IF ( GetCurrentPlayerVar( "admin_login_username" ) != "" )
THEN
$lfs_username=GetCurrentPlayerVar( "admin_login_username" );
openPrivButton( "register_1b",$left_right_welcome+36,$top_bottom_welcome+36,35,5,5,-1,32,"^7".$lfs_username );
ELSE
openPrivTextButton( "register_1b",$left_right_welcome+36,$top_bottom_welcome+36,35,5,5,32,"^3Yaşınız/your age?","^3***",40,config_lfs_username );
ENDIF
ELSE
openPrivTextButton( "register_1b",$left_right_welcome+36,$top_bottom_welcome+36,35,5,5,32,"^3Yaşınız/your age?","^3".$lfs_username,40,config_lfs_username );
ENDIF
openPrivButton( "register_2a",$left_right_welcome+1,$top_bottom_welcome+41,35,5,5,-1,32,"^7Kullanıcı Adı: " );
IF ( $login_name == "" )
THEN
openPrivTextButton( "register_2b",$left_right_welcome+36,$top_bottom_welcome+41,35,5,5,32,"^3Kullanıcı Adı/username:","^3***",40,config_loginname_3 );
ELSE
openPrivTextButton( "register_2b",$left_right_welcome+36,$top_bottom_welcome+41,35,5,5,32,"^3Kullanıcı Adı/username:","^3".$login_name,40,config_loginname_3 );
ENDIF
openPrivButton( "register_3a",$left_right_welcome+1,$top_bottom_welcome+46,35,5,5,-1,32,"^7Şifre/pass: " );
IF ( $password == "" )
THEN
openPrivTextButton( "register_3b",$left_right_welcome+36,$top_bottom_welcome+46,35,5,5,32,"^3Şifre/pass:","^3***",40,config_password_3 );
ELSE
openPrivTextButton( "register_3b",$left_right_welcome+36,$top_bottom_welcome+46,35,5,5,32,"^3Şifre/pass:","^3".$password,40,config_password_3 );
ENDIF

openPrivButton( "registration_check",$left_right_welcome+1,$top_bottom_welcome+61,35,5,5,-1,32,"^3Kayıt ol",Check_registration );

### If admin is forced to create an account for him self, a 'Leave server' and countdown button are shown, to prevent someone from not creating an account ###
### Otherwise a normal 'Close' button will be displayed ###
IF ( GetCurrentPlayerVar( "admin_login_username" ) != "" )
THEN
openPrivButton( "leave_server_register_admin",$left_right_welcome+36,$top_bottom_welcome+61,35,5,5,-1,32,"^1Sunucudan ayrıl.",Leave_server );
openPrivButton( "action_required_register",$left_right_welcome+1,$top_bottom_welcome+66,70,5,5,60,32,"^7Giriş yapmazsan atılacaksın. ^0Süren: %cpt%",Leave_server );
ELSE
openPrivButton( "close_admin_reg",$left_right_welcome+36,$top_bottom_welcome+61,35,5,5,-1,32,"^3Kapat",close_admin_reg );
ENDIF
### End ###
ENDIF
### End ###
EndSub

Sub config_loginname ( $loginname_value,$text )
### Collect login name which has been entered in login screen ###
$loginname=$text;
SetCurrentPlayerVar( "logon_code_input",$loginname );
Login( $KeyFlags,$id );
### End ###
EndSub

Sub config_password ( $password_value,$text )
### Collect password name which has been entered in login screen ###
$password_user=$text;
SetCurrentPlayerVar( "logon_password_input",$password_user );
Login( $KeyFlags,$id );
### End ###
EndSub

Sub Check_login ( $KeyFlags,$id )
### Get UserName and search in storedvalue.dbs for saved values for this user ###
$userName = GetCurrentPlayerVar( "UserName" );

IF ( $register_store_method == "number" )
THEN
FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_username_" . $i ) == $userName )
THEN
SetCurrentPlayerVar( "logon_code",GetStoredValue( "logon_code_" . $i ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( "logon_password_" . $i ) );
ENDIF
ENDFOR
ELSE
SetCurrentPlayerVar( "logon_code",GetStoredValue( $userName . "logon_code" ) );
SetCurrentPlayerVar( "logon_password",GetStoredValue( $userName . "logon_password" ) );
ENDIF
### End ###

IF ( GetCurrentPlayerVar( "logon_code_input") == GetCurrentPlayerVar( "logon_code") && GetCurrentPlayerVar( "logon_password_input" ) == GetCurrentPlayerVar( "logon_password") )
THEN
closePrivButton("loginscreen_bg&loginscreen_title&loginscreen_1a&loginscreen_1b&loginscreen_2a&loginscreen_2b&loginscreen_check&leave_server_login&action_required_login");
PrivMsg ("^7Giriş başarılı!");
IF ($register_show_logon == "yes")
THEN
GlobalMsg ("^7".GetCurrentPlayerVar( "logon_code")."^7 has logged into the server");
ENDIF

IF ($register_join_check == "yes")
THEN
SetCurrentPlayerVar( "allowed_to_join","yes");
ENDIF
ELSE
PrivMsg ("^1WARNING: ^7GİRİŞ YAPILAMADI!");

IF ( ToNum(GetCurrentPlayerVar( "login_attempts")) >= 1)
THEN
$login_attempts=ToNum( GetCurrentPlayerVar( "login_attempts")-1 );
SetCurrentPlayerVar( "login_attempts",$login_attempts );
ENDIF

IF ( ToNum(GetCurrentPlayerVar( "login_attempts")) > 0)
THEN
PrivMsg ("^7GİRİŞ YAPMAYA DENEME HAKKIN! " . GetCurrentPlayerVar( "login_attempts") );
Login( $KeyFlags,$id );
ELSE
### Close login screen, this is for local admins, since they can't be kicked ###
closePrivButton("loginscreen_bg&loginscreen_title&loginscreen_1a&loginscreen_1b&loginscreen_2a&loginscreen_2b&loginscreen_check&leave_server_login&action_required_login");
### End ###

cmdLFS("/kick " . GetCurrentPlayerVar("UserName") );
ENDIF
ENDIF
EndSub

Sub config_lfs_username ( $lfs_username_value,$text )
### Collect kfs username which has been entered in registration screen ###
$lfs_username=$text;
Register( $KeyFlags,$id );
### End ###
EndSub

Sub config_loginname_2 ( $loginname_value,$text )
### Collect login name which has been entered in registration screen by a user ###
$loginname=$text;
SetCurrentPlayerVar( "logon_code_input_2",$loginname );
Register( $KeyFlags,$id );
### End ###
EndSub

Sub config_loginname_3 ( $loginname_value,$text )
### Collect login name which has been entered in registration screen by an admin ###
$login_name=$text;
Register( $KeyFlags,$id );
### End ###
EndSub

Sub config_password_2 ( $password_value,$text )
### Collect password which has been entered in registration screen by a user ###
$password_user=$text;
SetCurrentPlayerVar( "logon_password_input_2",$password_user );
Register( $KeyFlags,$id );
### End ###
EndSub

Sub config_password_3 ( $password_value,$text )
### Collect password which has been entered in registration screen by an admin ###
$password=$text;
Register( $KeyFlags,$id );
### End ###
EndSub

Sub Check_registration ( $KeyFlags,$id )
IF ($register_option == "user")
THEN
IF ( GetCurrentPlayerVar( "logon_code_input_2") != "" && GetCurrentPlayerVar( "logon_password_input_2") != "" )
THEN
IF ( $register_store_method == "number" )
THEN
SetCurrentPlayerVar( "logon_code_double","false" );

IF ( $register_allow_duplicates == "no" )
THEN
FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_code_" . $i ) == GetCurrentPlayerVar( "logon_code_input_2" ) )
THEN
SetCurrentPlayerVar( "logon_code_double","true" );
ENDIF
ENDFOR
ENDIF

IF ( GetCurrentPlayerVar( "logon_code_double" ) == "true" )
THEN
PrivMsg ("^3MESSAGE: ^7Zaten kayıtlı hesap var!");
ELSE
IF ( GetCurrentPlayerVar( "logon_code_input_2" ) != "" && GetCurrentPlayerVar( "logon_password_input_2" ) != "" )
THEN
$userName = GetCurrentPlayerVar( "UserName" );

SetStoredValue( "logon_username_" . $register_counter, $userName );
SetStoredValue( "logon_code_" . $register_counter, GetCurrentPlayerVar( "logon_code_input_2" ) );
SetStoredValue( "logon_password_" . $register_counter, GetCurrentPlayerVar( "logon_password_input_2" ) );

$register_counter=$register_counter+1;
SetStoredValue( "REGISTER_COUNTER", ToNum( $register_counter ) );

closePrivButton("register_bg&register_title&warning&register_1a&register_1b&register_2a&register_2b&registration_check&leave_server_register&action_required_register");
PrivMsg ("^7Registration okay");
Login( $KeyFlags,$id );
ELSE
PrivMsg ("^3MESSAGE: ^7Boş mesaj!");
ENDIF
ENDIF
ELSE
IF ( GetCurrentPlayerVar( "logon_code_input_2" ) != "" && GetCurrentPlayerVar( "logon_password_input_2" ) != "" )
THEN
$userName = GetCurrentPlayerVar( "UserName" );

SetStoredValue( $userName . "logon_code", GetCurrentPlayerVar( "logon_code_input_2" ) );
SetStoredValue( $userName . "logon_password", GetCurrentPlayerVar( "logon_password_input_2" ) );

closePrivButton("register_bg&register_title&warning&register_1a&register_1b&register_2a&register_2b&registration_check&leave_server_register&action_required_register");
PrivMsg ("^7Registration okay");
Login( $KeyFlags,$id );
ELSE
PrivMsg ("^3MESSAGE: ^7Boş mesaj!");
ENDIF
ENDIF
ELSE
IF ( GetCurrentPlayerVar( "logon_code_input_2") != "" && GetCurrentPlayerVar( "logon_password_input_2") == "" )
THEN
PrivMsg ("^1WARNING: ^7Password NOT set");
Register( $KeyFlags,$id );
ELSE
### Extra checks to see if a registration is done by an Admin ###
IF ( $lfs_username != "" && $login_name != "" && $password == "")
THEN
PrivMsg ("^3MESSAGE: ^7Boş mesaj!");
Register( $KeyFlags,$id );
ELSE
IF ( GetCurrentPlayerVar( "logon_code_input_2") == "" || $lfs_username != "" && $login_name == "" )
THEN
PrivMsg ("^3MESSAGE: ^7Boş mesaj!");
Register( $KeyFlags,$id );
ELSE
$userName = GetCurrentPlayerVar( "UserName" );

SetStoredValue( "logon_username_" . $register_counter, $userName );
SetStoredValue( "logon_code_" . $register_counter, $login_name );
SetStoredValue( "logon_password_" . $register_counter, $password );

$register_counter=$register_counter+1;
SetStoredValue( "REGISTER_COUNTER", ToNum( $register_counter ) );

closePrivButton("register_bg&register_title&warning&register_1a&register_1b&register_2a&register_2b&register_3a&register_3b&registration_check&close_admin_reg&leave_server_register_admin&action_required_register");
$lfs_username="";
$login_name="";
$password="";
PrivMsg ("^7Kaydın başarılı!");
Login( $KeyFlags,$id );
ENDIF
ENDIF
ENDIF
ENDIF
ELSE
IF ( $register_store_method == "number" )
THEN
SetCurrentPlayerVar( "logon_code_double","false" );
SetCurrentPlayerVar( "lfsname_double","false" );

IF ( $register_allow_duplicates == "no" )
THEN
FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_code_" . $i ) == $login_name )
THEN
SetCurrentPlayerVar( "logon_code_double","true" );
ENDIF
ENDFOR
ENDIF

FOR ($i=0;$i<$register_counter;$i=$i+1)
IF (GetStoredValue( "logon_username_" . $i ) == $lfs_username )
THEN
SetCurrentPlayerVar( "lfsname_double","true" );
ENDIF
ENDFOR

IF ( GetCurrentPlayerVar( "logon_code_double" ) == "true" )
THEN
PrivMsg ("^3MESSAGE: ^7There's already an account registered with...");
PrivMsg ("^7...that name");
ELSE
     
 
what is notes.io
  

Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...

With notes.io;

  • * You can take a note from anywhere and any device with internet connection.
  • * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
  • * You can quickly share your contents without website, blog and e-mail.
  • * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
  • * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.

Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.

Easy: Notes.io doesn’t require installation. Just write and share note!

Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )

Free: Notes.io works for 12 years and has been free since the day it was started.


You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;


Email: [email protected]

Twitter: http://twitter.com/notesio

Instagram: http://instagram.com/notes.io

Facebook: http://facebook.com/notesio



Regards;
Notes.io Team

     
 
Shortened Note Link
  
 
Looding Image
 
     
 
Long File
  
 

For written notes was greater than 18KB Unable to shorten.

To be smaller than 18KB, please organize your notes, or sign in.

  
     

Notes

I'm Feeling Lucky

repost for Instagram

Paste Keyboard iOS - Quick Replies

v 2.7.3

We'd love to hear from you. Please email us at [email protected]

Copyright 2022 Metromedya

ios uygulama geliştirme