LFS Forum - LFSLapper: Code Examples

This is a code sample how to create a loop within a Sub routine.
With displaying your current speed.



<?php 
###################################
#Event triggered when lapper start#
###################################
Event OnLapperStart()
    #Create Global variables
        Globalvar $Loop_On; $Loop_On = 0;
EndEvent

#################
#Command actions#
#################
Event 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 )
        
        #Stop loop & close button for all players
        CASE "!loopoff":
            $Loop_On = 0;
            
            #Get list of players sorted by Username
                $Racers = GetListOfPlayers("U");
            
            #FOREACH Loop
                FOREACH( $Var IN $Racers )
                    closeButton( $Var["value"], "speed");
                ENDFOREACH
        BREAK;
        
        #Start loop
        CASE "!loopon":
            $Loop_On = 1;
            globalmsg("execute sub Set_Loop()");
            Set_Loop(); #Goto Set_Loop Sub-routine
        BREAK;

    ENDSWITCH
EndEvent

Sub Set_Loop()
    IF ($Loop_On == 1) THEN
        #Get list of players sorted by Username    
        $Racers = GetListOfPlayers("U");                  
        FOREACH( $Var IN $Racers ) #For each player in the server
        #$Var["value"] = Username
            openButton( $Var["value"], "speed",175,124,25,5,5,2,96,"^7" . GetPlayerVar( $Var["value"], "InstantSpeed") . " " . GetPlayerVar( $Var["value"], "UnitSpeed")."^8 (".GetPlayerVar( $Var["value"], "Car").")");
            DelayedCommand( 1, Set_Loop); #1 second delay
        ENDFOREACH
    ENDIF
EndSub
?>