################################################################################
# Put in yoiur Includes folder, and add testline.lpr to your addonsused.lpr file - type !testline
################################################################################


CatchEvent OnMSO( $userName, $text ) # Player event
	$idxOfFirstSpace = indexOf( $text, " ");
	IF( $idxOfFirstSpace == -1 ) THEN
	  $command = $text;
	  $argv = "";
	ELSE
	  $command = subStr( $text,0,$idxOfFirstSpace );
	  $argv = trim( subStr( $text,$idxOfFirstSpace ) );
	ENDIF

	SWITCH ( $command )
		CASE "!testline":
			Dotestline();
			BREAK;
	ENDSWITCH
EndCatchEvent


Sub Dotestline() #$KeyFlags,$id'
	
	# Set various vars for GUI size and location
	$TLL = 50;		# TOL - Top Origin Left edge of main content window
	$TLT = 50;		# Top Origin Top edge of main content window
	$TLH = 5;  		# TRH - Top Row Height

	# Test section

	openPrivButton ("testline",$TLL,$TLT-1,60,$TLH+45,5,-1,16,"");

	openPrivButton ("testline0",$TLL,$TLT,8,$TLH,5,-1,0,"0");
	openPrivButton ("testline1",$TLL,$TLT+5,8,$TLH,5,-1,1,"1");
	openPrivButton ("testline2",$TLL,$TLT+10,8,$TLH,5,-1,2,"2");
	openPrivButton ("testline3",$TLL,$TLT+15,8,$TLH,5,-1,3,"3");	
	openPrivButton ("testline4",$TLL,$TLT+20,8,$TLH,5,-1,4,"4");	
	openPrivButton ("testline5",$TLL,$TLT+25,8,$TLH,5,-1,5,"5");	
	openPrivButton ("testline6",$TLL,$TLT+30,8,$TLH,5,-1,6,"6");	
	openPrivButton ("testline7",$TLL,$TLT+35,8,$TLH,5,-1,7,"7");
	
	openPrivButton ("testline8",$TLL+10,$TLT,8,$TLH,5,-1,8,"8");
	openPrivButton ("testline9",$TLL+10,$TLT+5,8,$TLH,5,-1,9,"9");	
	openPrivButton ("testline10",$TLL+10,$TLT+10,8,$TLH,5,-1,10,"10");	
	openPrivButton ("testline11",$TLL+10,$TLT+15,8,$TLH,5,-1,11,"11");
	openPrivButton ("testline12",$TLL+10,$TLT+20,8,$TLH,5,-1,12,"12");	
	openPrivButton ("testline13",$TLL+10,$TLT+25,8,$TLH,5,-1,13,"13");	
	openPrivButton ("testline14",$TLL+10,$TLT+30,8,$TLH,5,-1,14,"14");	
	openPrivButton ("testline15",$TLL+10,$TLT+35,8,$TLH,5,-1,15,"15");
		
	openPrivButton ("testline16",$TLL+20,$TLT,8,$TLH,5,-1,16,"16");
	openPrivButton ("testline17",$TLL+20,$TLT+5,8,$TLH,5,-1,17,"17");	
	openPrivButton ("testline18",$TLL+20,$TLT+10,8,$TLH,5,-1,18,"18");	
	openPrivButton ("testline19",$TLL+20,$TLT+15,8,$TLH,5,-1,19,"19");
	openPrivButton ("testline20",$TLL+20,$TLT+20,8,$TLH,5,-1,20,"20");	
	openPrivButton ("testline21",$TLL+20,$TLT+25,8,$TLH,5,-1,21,"21");
	openPrivButton ("testline22",$TLL+20,$TLT+30,8,$TLH,5,-1,22,"22");	
	openPrivButton ("testline23",$TLL+20,$TLT+35,8,$TLH,5,-1,23,"23");
		
	openPrivButton ("testline24",$TLL+30,$TLT,8,$TLH,5,-1,24,"24");	
	openPrivButton ("testline25",$TLL+30,$TLT+5,8,$TLH,5,-1,25,"25");	
	openPrivButton ("testline26",$TLL+30,$TLT+10,8,$TLH,5,-1,26,"26");
	openPrivButton ("testline27",$TLL+30,$TLT+15,8,$TLH,5,-1,27,"27");	
	openPrivButton ("testline28",$TLL+30,$TLT+20,8,$TLH,5,-1,28,"28");	
	openPrivButton ("testline29",$TLL+30,$TLT+25,8,$TLH,5,-1,29,"29");
	openPrivButton ("testline30",$TLL+30,$TLT+30,8,$TLH,5,-1,30,"30");	
	openPrivButton ("testline31",$TLL+30,$TLT+35,8,$TLH,5,-1,31,"31");
	
	openPrivButton ("testline32",$TLL+40,$TLT,8,$TLH,5,-1,32,"32");
	openPrivButton ("testline33",$TLL+40,$TLT+5,8,$TLH,5,-1,33,"33");
	openPrivButton ("testline34",$TLL+40,$TLT+10,8,$TLH,5,-1,34,"34");
	openPrivButton ("testline35",$TLL+40,$TLT+15,8,$TLH,5,-1,35,"35");	
	openPrivButton ("testline36",$TLL+40,$TLT+20,8,$TLH,5,-1,36,"36");	
	openPrivButton ("testline37",$TLL+40,$TLT+25,8,$TLH,5,-1,37,"37");	
	openPrivButton ("testline38",$TLL+40,$TLT+30,8,$TLH,5,-1,38,"38");	
	openPrivButton ("testline39",$TLL+40,$TLT+35,8,$TLH,5,-1,39,"39");
	
	openPrivButton ("testline40",$TLL+50,$TLT,8,$TLH,5,-1,40,"40");
	openPrivButton ("testline41",$TLL+50,$TLT+5,8,$TLH,5,-1,41,"41");	
	openPrivButton ("testline42",$TLL+50,$TLT+10,8,$TLH,5,-1,42,"42");	
	openPrivButton ("testline43",$TLL+50,$TLT+15,8,$TLH,5,-1,43,"43");

	# numbers above 43 give same result
	
	
	OpenPrivButton ("testlineclose",$TLL,$TLT+41,60,$TLH+1,5,-1,35,"CLOSE",ThisHurtsMyEyes); 	
	
EndSub

Sub ThisHurtsMyEyes ($KeyFlags,$id)
 	closeButtonRegex (GetCurrentPlayerVar("UserName"), "testline*");
EndSub