# Message configurator V1.00 25-03-13 Initial version # ######################################################################### CatchSub OnConnectClose( $KeyFlags,$id ) OnConnectClose_Message_configurator(); EndCatchSub CatchSub TRI_split1_0( $userName ) # Player event Message_config_display_great_split_message(1); EndCatchSub CatchSub TRI_split1_1( $userName ) # Player event Message_config_display_good_split_message(1); EndCatchSub CatchSub TRI_split2_0( $userName ) # Player event Message_config_display_great_split_message(2); EndCatchSub CatchSub TRI_split2_1( $userName ) # Player event Message_config_display_good_split_message(2); EndCatchSub CatchSub TRI_split3_0( $userName ) # Player event Message_config_display_great_split_message(3); EndCatchSub CatchSub TRI_split3_1( $userName ) # Player event Message_config_display_good_split_message(3); EndCatchSub CatchSub TRI_lap_0( $userName ) # Player event Message_config_display_great_lap_message(); EndCatchSub CatchSub TRI_lap_1( $userName ) # Player event Message_config_display_good_lap_message(); EndCatchSub 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 "!msgcfg": Message_configurator( $KeyFlags ); BREAK; ENDSWITCH EndCatchEvent Sub OnConnectClose_Message_configurator() ### Get UserName and search in storedvalue.dbs for saved values for this user ### $userName = GetCurrentPlayerVar( "UserName" ); SetCurrentPlayerVar( "message_config_great_split",GetStoredValue( $userName . "message_config_great_split" ) ); SetCurrentPlayerVar( "message_config_good_split",GetStoredValue( $userName . "message_config_good_split" ) ); SetCurrentPlayerVar( "message_config_great_lap",GetStoredValue( $userName . "message_config_great_lap" ) ); SetCurrentPlayerVar( "message_config_good_lap",GetStoredValue( $userName . "message_config_good_lap" ) ); ### End ### ### Set default values if no values are loaded ### IF ( GetCurrentPlayerVar( "message_config_great_split" ) == "") THEN SetCurrentPlayerVar( "message_config_great_split","on" ); # Set default show great split to "on" ENDIF IF ( GetCurrentPlayerVar( "message_config_good_split" ) == "") THEN SetCurrentPlayerVar( "message_config_good_split","on" ); # Set default show good split to "on" ENDIF IF ( GetCurrentPlayerVar( "message_config_great_lap" ) == "") THEN SetCurrentPlayerVar( "message_config_great_lap","on" ); # Set default show great lap to "on" ENDIF IF ( GetCurrentPlayerVar( "message_config_good_lap" ) == "") THEN SetCurrentPlayerVar( "message_config_good_lap","on" ); # Set default show good lap to "on" ENDIF EndSub Sub Message_configurator ( $KeyFlags ) $tb_coordinate=50; $lr_coordinate=75; openPrivButton( "message_config_bg",$lr_coordinate,$tb_coordinate,50,57,5,-1,16,"" ); openPrivButton( "message_config_title",$lr_coordinate+1,$tb_coordinate+1,48,5,5,-1,0,"^7Message configurator V1.00" ); ### Show great split on/off ### openPrivButton( "message_config_show_great_split",$lr_coordinate+1,$tb_coordinate+6,48,5,5,-1,32,"^7Show great split" ); IF ( GetCurrentPlayerVar( "message_config_great_split" ) == "on" ) THEN openPrivButton( "message_config_great_split_on",$lr_coordinate+1,$tb_coordinate+11,24,5,5,-1,32,"^2Yes" ); openPrivButton( "message_config_great_split_off",$lr_coordinate+25,$tb_coordinate+11,24,5,5,-1,32,"^3No", message_config_great_split_setting ); ELSE openPrivButton( "message_config_great_split_on",$lr_coordinate+1,$tb_coordinate+11,24,5,5,-1,32,"^3Yes", message_config_great_split_setting ); openPrivButton( "message_config_great_split_off",$lr_coordinate+25,$tb_coordinate+11,24,5,5,-1,32,"^2No" ); ENDIF ### Show good split on/off ### openPrivButton( "message_config_show_good_split",$lr_coordinate+1,$tb_coordinate+16,48,5,5,-1,32,"^7Show good split" ); IF ( GetCurrentPlayerVar( "message_config_good_split" ) == "on" ) THEN openPrivButton( "message_config_good_split_on",$lr_coordinate+1,$tb_coordinate+21,24,5,5,-1,32,"^2Yes" ); openPrivButton( "message_config_good_split_off",$lr_coordinate+25,$tb_coordinate+21,24,5,5,-1,32,"^3No", message_config_good_split_setting ); ELSE openPrivButton( "message_config_good_split_on",$lr_coordinate+1,$tb_coordinate+21,24,5,5,-1,32,"^3Yes", message_config_good_split_setting ); openPrivButton( "message_config_good_split_off",$lr_coordinate+25,$tb_coordinate+21,24,5,5,-1,32,"^2No" ); ENDIF ### Show great lap on/off ### openPrivButton( "message_config_show_great_lap",$lr_coordinate+1,$tb_coordinate+26,48,5,5,-1,32,"^7Show great lap" ); IF ( GetCurrentPlayerVar( "message_config_great_lap" ) == "on" ) THEN openPrivButton( "message_config_great_lap_on",$lr_coordinate+1,$tb_coordinate+31,24,5,5,-1,32,"^2Yes" ); openPrivButton( "message_config_great_lap_off",$lr_coordinate+25,$tb_coordinate+31,24,5,5,-1,32,"^3No", message_config_great_lap_setting ); ELSE openPrivButton( "message_config_great_lap_on",$lr_coordinate+1,$tb_coordinate+31,24,5,5,-1,32,"^3Yes", message_config_great_lap_setting ); openPrivButton( "message_config_great_lap_off",$lr_coordinate+25,$tb_coordinate+31,24,5,5,-1,32,"^2No" ); ENDIF ### Show good lap on/off ### openPrivButton( "message_config_show_good_lap",$lr_coordinate+1,$tb_coordinate+36,48,5,5,-1,32,"^7Show good lap" ); IF ( GetCurrentPlayerVar( "message_config_good_lap" ) == "on" ) THEN openPrivButton( "message_config_good_lap_on",$lr_coordinate+1,$tb_coordinate+41,24,5,5,-1,32,"^2Yes" ); openPrivButton( "message_config_good_lap_off",$lr_coordinate+25,$tb_coordinate+41,24,5,5,-1,32,"^3No", message_config_good_lap_setting ); ELSE openPrivButton( "message_config_good_lap_on",$lr_coordinate+1,$tb_coordinate+41,24,5,5,-1,32,"^3Yes", message_config_good_lap_setting ); openPrivButton( "message_config_good_lap_off",$lr_coordinate+25,$tb_coordinate+41,24,5,5,-1,32,"^2No" ); ENDIF ### Save and Close button ### openPrivButton( "message_config_save_settings",$lr_coordinate+1,$tb_coordinate+51,24,5,5,-1,32,"^3Save settings", message_config_save_settings ); openPrivButton( "message_config_close",$lr_coordinate+25,$tb_coordinate+51,24,5,5,-1,32,"^3CLOSE", message_config_close ); ### End ### EndSub Sub message_config_great_split_setting ( $KeyFlags,$id ) IF ( GetCurrentPlayerVar( "message_config_great_split" ) == "on" ) THEN SetCurrentPlayerVar( "message_config_great_split","off" ); ELSE SetCurrentPlayerVar( "message_config_great_split","on" ); ENDIF Message_configurator( $KeyFlags ); EndSub Sub message_config_good_split_setting ( $KeyFlags,$id ) IF ( GetCurrentPlayerVar( "message_config_good_split" ) == "on" ) THEN SetCurrentPlayerVar( "message_config_good_split","off" ); ELSE SetCurrentPlayerVar( "message_config_good_split","on" ); ENDIF Message_configurator( $KeyFlags ); EndSub Sub message_config_great_lap_setting ( $KeyFlags,$id ) IF ( GetCurrentPlayerVar( "message_config_great_lap" ) == "on" ) THEN SetCurrentPlayerVar( "message_config_great_lap","off" ); ELSE SetCurrentPlayerVar( "message_config_great_lap","on" ); ENDIF Message_configurator( $KeyFlags ); EndSub Sub message_config_good_lap_setting ( $KeyFlags,$id ) IF ( GetCurrentPlayerVar( "message_config_good_lap" ) == "on" ) THEN SetCurrentPlayerVar( "message_config_good_lap","off" ); ELSE SetCurrentPlayerVar( "message_config_good_lap","on" ); ENDIF Message_configurator( $KeyFlags ); EndSub Sub message_config_close( $KeyFlags,$id ) ### Close buttons message configurator screen ### closePrivButton( "message_config_show_great_split&message_config_great_split_on&message_config_great_split_off" ); closePrivButton( "message_config_show_good_split&message_config_good_split_on&message_config_good_split_off" ); closePrivButton( "message_config_show_great_lap&message_config_great_lap_on&message_config_great_lap_off" ); closePriVButton( "message_config_show_good_lap&message_config_good_lap_on&message_config_good_lap_off" ); closePrivButton( "message_config_save_settings&message_config_close&message_config_title&message_config_bg" ); ### End ### EndSub Sub message_config_save_settings ( $KeyFlags,$id ) $userName = GetCurrentPlayerVar( "UserName" ); SetStoredValue( $userName . "message_config_great_split", GetCurrentPlayerVar( "message_config_great_split" ) ); SetStoredValue( $userName . "message_config_good_split", GetCurrentPlayerVar( "message_config_good_split" ) ); SetStoredValue( $userName . "message_config_great_lap", GetCurrentPlayerVar( "message_config_great_lap" ) ); SetStoredValue( $userName . "message_config_good_lap", GetCurrentPlayerVar( "message_config_good_lap" ) ); privMsg ("^7Settings saved" ); EndSub Sub Message_config_display_great_split_message ( $id ) $split_number=$id+0; $mList = GetListOfPlayers("N"); $mCount = arrayCount( $mList ); $plyNum=0; WHILE ($plyNum < $mCount) $uName = $mList[$plyNum]; IF ( GetPlayerVar( $uName, "message_config_great_split" ) == "on" ) THEN IF ( $split_number == 1 ) THEN privMsg( $uName, langEngine( "%{main_great1}%", NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF IF ( $split_number == 2 ) THEN privMsg( $uName, langEngine( "%{main_great2}%", NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF IF ( $split_number == 3 ) THEN privMsg( $uName, langEngine( "%{main_great3}%", NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF ENDIF $plyNum=$plyNum+1; ENDWHILE EndSub Sub Message_config_display_good_split_message ( $id ) $split_number=$id+0; $mList = GetListOfPlayers("N"); $mCount = arrayCount( $mList ); $plyNum=0; WHILE ($plyNum < $mCount) $uName = $mList[$plyNum]; IF ( GetPlayerVar( $uName, "message_config_good_split" ) == "on" ) THEN IF ( $split_number == 1 ) THEN privMsg( $uName, langEngine( "%{main_good1}%",NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF IF ( $split_number == 2 ) THEN privMsg( $uName, langEngine( "%{main_good2}%",NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF IF ( $split_number == 3 ) THEN privMsg( $uName, langEngine( "%{main_good3}%",NumToMSH(GetCurrentPlayerVar("SplitTime")),GetCurrentPlayerVar("NickName") ) ); ENDIF ENDIF $plyNum=$plyNum+1; ENDWHILE EndSub Sub Message_config_display_great_lap_message () $mList = GetListOfPlayers("N"); $mCount = arrayCount( $mList ); $plyNum=0; WHILE ($plyNum < $mCount) $uName = $mList[$plyNum]; IF ( GetPlayerVar( $uName, "message_config_great_lap" ) == "on" ) THEN privMsg( $uName, langEngine( "%{main_greatlap}%",NumToMSH( GetCurrentPlayerVar("LapTime") ), GetCurrentPlayerVar("NickName" ) ) ); ENDIF $plyNum=$plyNum+1; ENDWHILE EndSub Sub Message_config_display_good_lap_message () $mList = GetListOfPlayers("N"); $mCount = arrayCount( $mList ); $plyNum=0; WHILE ($plyNum < $mCount) $uName = $mList[$plyNum]; IF ( GetPlayerVar( $uName, "message_config_good_lap" ) == "on" ) THEN privMsg( $uName, langEngine( "%{main_goodlap}%",NumToMSH( GetCurrentPlayerVar("LapTime") ), GetCurrentPlayerVar("NickName" ) ) ); ENDIF $plyNum=$plyNum+1; ENDWHILE EndSub