###################################
#Event triggered when lapper start#
###################################

Event OnLapperStart()

	GlobalVar $origL ;
	 $origL = "5" ;
	GlobalVar $origT ;
	 $origT = "46" ;

	GlobalVar $playernickname1 ;
	 $playernickname1 = "" ;
	GlobalVar $playernickname2 ;
	 $playernickname2 = "" ;
	GlobalVar $playernickname3 ;
	 $playernickname3 = "" ;
	GlobalVar $playernickname4 ;
	 $playernickname4 = "" ;
	GlobalVar $playernickname5 ;
	 $playernickname5 = "" ;
	GlobalVar $playernickname6 ;
	 $playernickname6 = "" ;
	GlobalVar $playernickname7 ;
	 $playernickname7 = "" ;
	GlobalVar $playernickname8 ;
	 $playernickname8 = "" ;
	GlobalVar $playernickname9 ;
	 $playernickname9 = "" ;
	GlobalVar $playernickname10 ;
	 $playernickname10 = "" ;
	GlobalVar $playernickname11 ;
	 $playernickname11 = "" ;
	GlobalVar $playernickname12 ;
	 $playernickname12 = "" ;
	GlobalVar $playernickname13 ;
	 $playernickname13 = "" ;
	GlobalVar $playernickname14 ;
	 $playernickname14 = "" ;
	GlobalVar $playernickname15 ;
	 $playernickname15 = "" ;
	GlobalVar $playernickname16 ;
	 $playernickname16 = "" ;
	GlobalVar $playernickname17 ;
	 $playernickname17 = "" ;
	GlobalVar $playernickname18 ;
	 $playernickname18 = "" ;
	GlobalVar $playernickname19 ;
	 $playernickname19 = "" ;
	GlobalVar $playernickname20 ;
	 $playernickname20 = "" ;
	GlobalVar $playernickname21 ;
	 $playernickname21 = "" ;
	GlobalVar $playernickname22 ;
	 $playernickname22 = "" ;
	GlobalVar $playernickname23 ;
	 $playernickname23 = "" ;
	GlobalVar $playernickname24 ;
	 $playernickname24 = "" ;

#################################################
#Connect messages when a player joins the server#
#################################################

Event OnConnect()
   IF( $playernickname1 =="")
  THEN
     $playernickname1 = $Nickname;
  ELSE
    IF( $playernickname2 =="")
    THEN
       $playernickname2 = $Nickname;
    ELSE
      IF( $playernickname3 =="")
      THEN
	       $playernickname3 = $Nickname;
      ELSE
        IF( $playernickname4 =="")
        THEN
	         $playernickname4 = $Nickname;
	ELSE
          IF( $playernickname5 =="")
          THEN
	           $playernickname5 = $Nickname;
          ELSE
            IF( $playernickname6 =="")
            THEN
	             $playernickname6 = $Nickname;
            ELSE
              IF( $playernickname7 =="")
              THEN
	               $playernickname7 = $Nickname;      
              ELSE
                IF( $playernickname8 =="")
                THEN
	                 $playernickname8 = $Nickname;
                ELSE
                  IF( $playernickname9 =="")
                  THEN
	                   $playernickname9 = $Nickname;
                  ELSE
                    IF( $playernickname10 =="")
                    THEN
	                     $playernickname10 = $Nickname;
                    ELSE
                      IF( $playernickname11 =="")
                      THEN
	                       $playernickname11 = $Nickname;
                      ELSE
                        IF( $playernickname12 =="")
                        THEN
	                         $playernickname12 = $Nickname;
                        ENDIF
		      ENDIF
		    ENDIF
		  ENDIF
		ENDIF
	      ENDIF
	    ENDIF
	  ENDIF
	ENDIF
      ENDIF
    ENDIF
  ENDIF

  IF( $playernickname13 =="")
  THEN
     $playernickname13 = $Nickname;
  ELSE
    IF( $playernickname14 =="")
    THEN
       $playernickname14 = $Nickname;
    ELSE
      IF( $playernickname15 =="")
      THEN
	       $playernickname15 = $Nickname;
      ELSE
        IF( $playernickname16 =="")
        THEN
	         $playernickname16 = $Nickname;
	ELSE
          IF( $playernickname17 =="")
          THEN
	           $playernickname17 = $Nickname;
          ELSE
            IF( $playernickname18 =="")
            THEN
	             $playernickname18 = $Nickname;
            ELSE
              IF( $playernickname19 =="")
              THEN
	               $playernickname19 = $Nickname;      
              ELSE
                IF( $playernickname20 =="")
                THEN
	                 $playernickname20 = $Nickname;
                ELSE
                  IF( $playernickname21 =="")
                  THEN
	                   $playernickname21 = $Nickname;
                  ELSE
                    IF( $playernickname22 =="")
                    THEN
	                     $playernickname22 = $Nickname;
                    ELSE
                      IF( $playernickname23 =="")
                      THEN
	                       $playernickname23 = $Nickname;
                      ELSE
                        IF( $playernickname24 =="")
                        THEN
	                         $playernickname24 = $Nickname;
                        ENDIF
		      ENDIF
		    ENDIF
		  ENDIF
		ENDIF
	      ENDIF
	    ENDIF
	  ENDIF
	ENDIF
      ENDIF
    ENDIF
  ENDIF

#And the rest of your script for OnConnect

EndEvent

#####################################################
#DisConnect messages when a player leaves the server#
#####################################################

Event OnDisConnect()
  IF( $playernickname1 == $Nickname)
  THEN
     $playernickname1 = "";
  ELSE
    IF( $playernickname2 == $Nickname)
    THEN
       $playernickname2 = "";
    ELSE
      IF( $playernickname3 == $Nickname)
      THEN
	       $playernickname3 = "";
      ELSE
        IF( $playernickname4 == $Nickname)
        THEN
	         $playernickname4 = "";
	ELSE
          IF( $playernickname5 == $Nickname)
          THEN
	           $playernickname5 = "";
          ELSE
            IF( $playernickname6 == $Nickname)
            THEN
	             $playernickname6 = "";
            ELSE
              IF( $playernickname7 == $Nickname)
              THEN
	               $playernickname7 = "";      
              ELSE
                IF( $playernickname8 == $Nickname)
                THEN
	                 $playernickname8 = "";
                ELSE
                  IF( $playernickname9 == $Nickname)
                  THEN
	                   $playernickname9 = "";
                  ELSE
                    IF( $playernickname10 == $Nickname)
                    THEN
	                     $playernickname10 = "";
                    ELSE
                      IF( $playernickname11 == $Nickname)
                      THEN
	                       $playernickname11 = "";
                      ELSE
                        IF( $playernickname12 == $Nickname)
                        THEN
	                         $playernickname12 = "";
                        ENDIF
		      ENDIF
		    ENDIF
		  ENDIF
		ENDIF
	      ENDIF
	    ENDIF
	  ENDIF
	ENDIF
      ENDIF
    ENDIF
  ENDIF

  IF( $playernickname13 == $Nickname)
  THEN
     $playernickname13 = "";
  ELSE
    IF( $playernickname14 == $Nickname)
    THEN
       $playernickname14 = "";
    ELSE
      IF( $playernickname15 == $Nickname)
      THEN
	       $playernickname15 = "";
      ELSE
        IF( $playernickname16 == $Nickname)
        THEN
	         $playernickname16 = "";
	ELSE
          IF( $playernickname17 == $Nickname)
          THEN
	           $playernickname17 = "";
          ELSE
            IF( $playernickname18 == $Nickname)
            THEN
	             $playernickname18 = "";
            ELSE
              IF( $playernickname19 == $Nickname)
              THEN
	               $playernickname19 = "";      
              ELSE
                IF( $playernickname20 == $Nickname)
                THEN
	                 $playernickname20 = "";
                ELSE
                  IF( $playernickname21 == $Nickname)
                  THEN
	                   $playernickname21 = "";
                  ELSE
                    IF( $playernickname22 == $Nickname)
                    THEN
	                     $playernickname22 = "";
                    ELSE
                      IF( $playernickname23 == $Nickname)
                      THEN
	                       $playernickname23 = "";
                      ELSE
                        IF( $playernickname24 == $Nickname)
                        THEN
	                         $playernickname24 = "";
                        ENDIF
		      ENDIF
		    ENDIF
		  ENDIF
		ENDIF
	      ENDIF
	    ENDIF
	  ENDIF
	ENDIF
      ENDIF
    ENDIF
  ENDIF
EndEvent

#################
#Command actions#
#################

Register MsgAction("!kick",MA_kick);
Sub MA_kick()
	$allow = "username1,username2,usernamex";
	openPrivButton( "player0",$origL,$origT,40,4,4,-1,32," KICK ", );	
	openPrivButton( "player1",$origL,$origT+4,20,4,4,-1,96," 1 " . $playernickname1,kickusr1 );
	openPrivButton( "player2",$origL,$origT+8,20,4,4,-1,96," 2 " . $playernickname2,kickusr2 );
	openPrivButton( "player3",$origL,$origT+12,20,4,4,-1,96," 3 " . $playernickname3,kickusr3 );
	openPrivButton( "player4",$origL,$origT+16,20,4,4,-1,96," 4 " . $playernickname4,kickusr4 );
	openPrivButton( "player5",$origL,$origT+20,20,4,4,-1,96," 5 " . $playernickname5,kickusr5 );
	openPrivButton( "player6",$origL,$origT+24,20,4,4,-1,96," 6 " . $playernickname6,kickusr6 );
	openPrivButton( "player7",$origL,$origT+28,20,4,4,-1,96," 7 " . $playernickname7,kickusr7 );
	openPrivButton( "player8",$origL,$origT+32,20,4,4,-1,96," 8 " . $playernickname8,kickusr8 );
	openPrivButton( "player9",$origL,$origT+36,20,4,4,-1,96," 9 " . $playernickname9,kickusr9 );
	openPrivButton( "player10",$origL,$origT+40,20,4,4,-1,96,"10 " . $playernickname10,kickusr10 );
	openPrivButton( "player11",$origL,$origT+44,20,4,4,-1,96,"11 " . $playernickname11,kickusr11 );
	openPrivButton( "player12",$origL,$origT+48,20,4,4,-1,96,"12 " . $playernickname12,kickusr12 );
	openPrivButton( "player13",$origL+20,$origT+4,20,4,4,-1,96,"13 " . $playernickname13,kickusr13 );
	openPrivButton( "player14",$origL+20,$origT+8,20,4,4,-1,96,"14 " . $playernickname14,kickusr14 );
	openPrivButton( "player15",$origL+20,$origT+12,20,4,4,-1,96,"15 " . $playernickname15,kickusr15 );
	openPrivButton( "player16",$origL+20,$origT+16,20,4,4,-1,96,"16 " . $playernickname16,kickusr16 );
	openPrivButton( "player17",$origL+20,$origT+20,20,4,4,-1,96,"17 " . $playernickname17,kickusr17 );
	openPrivButton( "player18",$origL+20,$origT+24,20,4,4,-1,96,"18 " . $playernickname18,kickusr18 );
	openPrivButton( "player19",$origL+20,$origT+28,20,4,4,-1,96,"19 " . $playernickname19,kickusr19 );
	openPrivButton( "player20",$origL+20,$origT+32,20,4,4,-1,96,"20 " . $playernickname20,kickusr20 );
	openPrivButton( "player21",$origL+20,$origT+36,20,4,4,-1,96,"21 " . $playernickname21,kickusr21 );
	openPrivButton( "player22",$origL+20,$origT+40,20,4,4,-1,96,"22 " . $playernickname22,kickusr22 );
	openPrivButton( "player23",$origL+20,$origT+44,20,4,4,-1,96,"23 " . $playernickname23,kickusr23 );
	openPrivButton( "player24",$origL+20,$origT+48,20,4,4,-1,96,"24 " . $playernickname24,kickusr24 );
	openPrivButton( "closeplayer",$origL,$origT+52,20,4,4,-1,16,"Close",closeplayer );
EndSub

Sub closeplayer()
  closePrivButton("player0&player1&player2&player3&player4&player5&player6&player7&player8&player9&player10&player11&player12&closeplayer");
  closePrivButton("player13&player14&player15&player16&player17&player18&player19&player20&player21&player22&player23&player24");
EndSub

Sub kickusr1()
  cmdLFS( "/kick " . $playernickname1 );
EndSub

Sub kickusr2()
  cmdLFS( "/kick " . $playernickname2 );
EndSub

Sub kickusr3()
  cmdLFS( "/kick " . $playernickname3 );
EndSub

Sub kickusr4()
  cmdLFS( "/kick " . $playernickname4 );
EndSub

Sub kickusr5()
  cmdLFS( "/kick " . $playernickname5 );
EndSub

Sub kickusr6()
  cmdLFS( "/kick " . $playernickname6 );
EndSub

Sub kickusr7()
  cmdLFS( "/kick " . $playernickname7 );
EndSub

Sub kickusr8()
  cmdLFS( "/kick " . $playernickname8 );
EndSub

Sub kickusr9()
  cmdLFS( "/kick " . $playernickname9 );
EndSub

Sub kickusr10()
  cmdLFS( "/kick " . $playernickname10 );
EndSub

Sub kickusr11()
  cmdLFS( "/kick " . $playernickname11 );
EndSub

Sub kickusr12()
  cmdLFS( "/kick " . $playernickname12 );
EndSub

Sub kickusr13()
  cmdLFS( "/kick " . $playernickname13 );
EndSub

Sub kickusr14()
  cmdLFS( "/kick " . $playernickname14 );
EndSub

Sub kickusr15()
  cmdLFS( "/kick " . $playernickname15 );
EndSub

Sub kickusr16()
  cmdLFS( "/kick " . $playernickname16 );
EndSub

Sub kickusr17()
  cmdLFS( "/kick " . $playernickname17 );
EndSub

Sub kickusr18()
  cmdLFS( "/kick " . $playernickname18 );
EndSub

Sub kickusr19()
  cmdLFS( "/kick " . $playernickname19 );
EndSub

Sub kickusr20()
  cmdLFS( "/kick " . $playernickname20 );
EndSub

Sub kickusr21()
  cmdLFS( "/kick " . $playernickname21 );
EndSub

Sub kickusr22()
  cmdLFS( "/kick " . $playernickname22 );
EndSub

Sub kickusr23()
  cmdLFS( "/kick " . $playernickname23 );
EndSub

Sub kickusr24()
  cmdLFS( "/kick " . $playernickname24 );
EndSub