Vehicle name, rewrite the code, calculate the result

Example without SAMPFUNCS. For 0.3.DL, works everywhere and easy to change.

FC0AxZi.png

PHP: 
{$CLEO .cs}
{$USE bitwise}
0000:

WHILE TRUE
WAIT 0

IF 0AB0:   is_key_pressed 99 // Numpad 3
THEN
    0B12: 31@ = 31@ XOR 1        
    IF 0039:   31@ == 1
    THEN 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Auta~n~~g~Wlaczone" time 1000
    ELSE 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Auta~n~~r~Wylaczone" time 1000   
    END
    WAIT 1000
END

IF 31@ == 1
THEN
    IF 0256:   player $PLAYER_CHAR defined
    THEN           
        0AC8: 1@ = allocate_memory_size 1024
        0AC8: 2@ = allocate_memory_size 1024
        0AB1: @getChatString 2 SampVersionID 3 ChatID 99 _Returned: Text 1@ PrefixText 2@ Color 3@ PrefixColor 4@
        0AC8: 5@ = allocate_memory_size 1024
        0AB1: @DeleteColorCodesFromText 2 text 1@ memory_to_store_characters_as_text 5@
        0AC8: $VEH = allocate_memory_size 1024
        0AD3: $VEH = format "[VEH] Podaj nazwe pojazdu widocznego na obrazku, otrzymasz"        
        IF 0AB1: @IfTextContains 2 String1 5@ String2 $VEH _Returned: Text $NOT_USED
        THEN
            0209: $RANDOMIZER = random_int_in_ranges 100 250
            WAIT $RANDOMIZER
            0AB1: @GetTextdrawModel 1 ID 8 _Returned: Model $VEH_ID $NOT_USED $NOT_USED $NOT_USED $NOT_USED $NOT_USED $NOT_USED       
            0AC8: 6@ = allocate_memory_size 260
            0ADB: 6@s = car_model $VEH_ID name   
            0AC8: $VEH_ODP = allocate_memory_size 1024
            0AD3: $VEH_ODP = format "%s" 6@s                          
            0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $VEH_ODP
            0AC9: free_allocated_memory $VEH_ODP
            WAIT 300                                                        
        END       
    END
END

END
0A93: terminate_this_custom_script

sBqlXaD.png

PHP: 
{$CLEO .cs}
{$USE bitwise}
0000:

WHILE TRUE
WAIT 0

IF 0AB0:   is_key_pressed 98 // Numpad 2
THEN
    0B12: 31@ = 31@ XOR 1        
    IF 0039:   31@ == 1
    THEN 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Kod~n~~g~Wlaczony" time 1000
    ELSE 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Kod~n~~r~Wylaczony" time 1000   
    END
    WAIT 1000
END

IF 31@ == 1
THEN
    IF 0256:   player $PLAYER_CHAR defined
    THEN           
        0AC8: 1@ = allocate_memory_size 1024
        0AC8: 2@ = allocate_memory_size 1024
        0AB1: @getChatString 2 SampVersionID 3 ChatID 99 _Returned: Text 1@ PrefixText 2@ Color 3@ PrefixColor 4@
        0AC8: 5@ = allocate_memory_size 1024
        0AB1: @DeleteColorCodesFromText 2 text 1@ memory_to_store_characters_as_text 5@
        0AC8: $CODE = allocate_memory_size 1024
        0AD3: $CODE = format "[CODE] Kto pierwszy wpisze"        
        IF 0AB1: @IfTextContains 2 String1 5@ String2 $CODE _Returned: Text $NOT_USED
        THEN
            0AB1: @GetLastCharacters 2 String 5@ Characters 29 rnt $CODE_GEN
            0AB1: @DeleteLastChars 2 $CODE_GEN 19            
            0AC8: $CODE_ODP = allocate_memory_size 1024
            0AD3: $CODE_ODP = format "%s" $CODE_GEN            
            0209: $RANDOMIZER = random_int_in_ranges 200 400
            WAIT $RANDOMIZER            
            0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $CODE_ODP
            0AC9: free_allocated_memory $CODE_ODP
            WAIT 300                                            
        END       
    END
END

END
0A93: terminate_this_custom_script
crT2z6H.png

PHP: 
{$CLEO .cs}
{$USE bitwise}
0000:

WHILE TRUE
WAIT 0

IF 0AB0:   is_key_pressed 97 // Numpad 1
THEN
    0B12: 31@ = 31@ XOR 1        
    IF 0039:   31@ == 1
    THEN 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Liczenie~n~~g~Wlaczone" time 1000
    ELSE 0AD1: show_formatted_text_highpriority "~r~PBS: ~y~Liczenie~n~~r~Wylaczone" time 1000   
    END
    WAIT 1000
END

IF 31@ == 1
THEN
    IF 0256:   player $PLAYER_CHAR defined
    THEN           
        0AC8: 1@ = allocate_memory_size 1024
        0AC8: 2@ = allocate_memory_size 1024
        0AB1: @getChatString 2 SampVersionID 3 ChatID 99 _Returned: Text 1@ PrefixText 2@ Color 3@ PrefixColor 4@
        0AC8: 5@ = allocate_memory_size 1024
        0AB1: @DeleteColorCodesFromText 2 text 1@ memory_to_store_characters_as_text 5@
        0AC8: $TEST = allocate_memory_size 1024
        0AD3: $TEST = format "[TEST] Kto pierwszy poda wynik dzialania"        
        IF 0AB1: @IfTextContains 2 String1 5@ String2 $TEST _Returned: Text $NOT_USED
        THEN
            5@ += 40            
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d - %d + %d" $A $B $C
            THEN
                0062: $A -= $B
                005A: $A += $C   
                0AC8: $MINUS_PLUS = allocate_memory_size 1024
                0AD3: $MINUS_PLUS = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $MINUS_PLUS
                0AC9: free_allocated_memory $MINUS_PLUS 
                WAIT 300               
            END            
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d - %d - %d" $A $B $C
            THEN
                0062: $A -= $B
                0062: $A -= $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ 
                WAIT 300               
            END             
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d + %d - %d" $A $B $C
            THEN
                005A: $A += $B
                0062: $A -= $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                
            END
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d * %d * %d" $A $B $C
            THEN
                006A: $A *= $B
                006A: $A *= $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                
            END
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d * %d + %d" $A $B $C
            THEN
                006A: $A *= $B
                005A: $A += $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                
            END
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d * %d - %d" $A $B $C
            THEN
                006A: $A *= $B
                0062: $A -= $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ 
                WAIT 300               
            END            
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d + %d + %d" $A $B $C
            THEN
                005A: $A += $B
                005A: $A += $C   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                                
            END 
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d + %d * %d" $A $B $C
            THEN
                006A: $B *= $C 
                005A: $A += $B                  
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                                
            END             
            IF 0AD4: $NOT_USED = scan_string 5@ format "%d - %d * %d" $A $B $C
            THEN
                006A: $B *= $C
                0062: $A -= $B   
                0AC8: $LICZ = allocate_memory_size 1024
                0AD3: $LICZ = format "%d" $A
                0209: $RANDOMIZER = random_int_in_ranges 200 400
                WAIT $RANDOMIZER
                0AB1: @ProcessChatInput 2 SampVersionID 3 InputText $LICZ
                0AC9: free_allocated_memory $LICZ
                WAIT 300                                
            END                                                                     
        END                                                          
    END
END

END
0A93: terminate_this_custom_script
 

Attachments

  • PBS_Auta.cs
    35.8 KB · Views: 1
  • PBS_Kod.cs
    33.7 KB · Views: 1
  • PBS_Liczenie.cs
    38.3 KB · Views: 1
Click to expand...
You must log in or register to reply here.
Top