Søger [Fartmåler gratis]

[Per1xe]

Søger en god E2 Fartmåler man kan bruge i byerne. helst gratis tak

 

Mvh per1xe

[Hondo]

hejsa tjek lige efter hvad andre har lavet jeg har netop nu fundet 2 fartmåler på forum så det handler bare om at lede 😄 

[Kagen]

4 minutter siden, Hondo skrev:

hejsa tjek lige efter hvad andre har lavet jeg har netop nu fundet 2 fartmåler på forum så det handler bare om at lede 😄 

Ret sikker på at de 2 fartmålere ikke måler med den funktion som den hånd målte fartmåler gør? 

[Hondo]

Lige nu, Kagen skrev:

Ret sikker på at de 2 fartmålere ikke måler med den funktion som den hånd målte fartmåler gør? 

det gør de heller ikke men mente bare at det er muligt at finde en fartmåler som han kan bruge 😄

[Trixx]

Ingen ide om den her virker, i kan selv teste den lol

Spoiler

@name Fartmaaler
@inputs [R1 R2]:entity
@outputs 
@persist Set:table
@trigger 
# [auto] Manglende fartbdebetaling | Fart: 37/35 km/t | Bde: 1,000kr.
if(first()) {
    
    Set["Speed_limit1",number] = 35
    Set["Speed_limit2",number] = 80
    
    setName("Fartm"+aa()+"ler
Af Trixx")
    
    function string moneyFormat(N:number) { #lol outdated shit
        local Formatted = N+""
        local Last = ""
    
        while (1) {
            Formatted = Formatted:replaceRE("^(-?%d+)(%d%d%d)", "%1,%2")
            if(Formatted == Last) {break}
            Last = Formatted
        }
        return Formatted
    }
    
    function number entity:getExtraFines() { #Trixx er 100% pro koder
        local WR = This:wantedReason()
       
        local R = WR:explode(" ")
        if(WR:find("Manglende")) {
           
            local N = R[10,string]:replace(",",""):replace("kr.",""):toNumber()
           
            if(N > 500) {
                return N  
            }
        }
        elseif(WR:lower():find("b"+oe()+"de")) {
           
            local Rx = WR:replace(",", ""):replace(".",""):replace("kr.",""):explode(" ")
            local Max = 0
           
            foreach(K, S:string = Rx) {
                local N = S:toNumber() #Brute is da way? 
                if(N > Max){Max = N} # Here on earth we like bruteforcing...
            }
            if(Max > 500) {return Max} 
        }
        return 0
    }
    
    function void entity:check(Limit:number) {
        local Speed = This:kmh()
        if(Speed > Limit & !This:elsOn()) {
            local Driver = This:driver()
            local Fine = calculateFine(Speed,Limit)
            if(Driver:isWanted()) {
                local OldFine = Driver:getExtraFines()
                local NewFine = Fine + OldFine
                local NewFine = clamp(NewFine, 0, 25000) # i have not really looked into this. but i think i need to always use local, to make the var stay local :)
                
                local Reason = format("[gentagende] Manglende fartb%sdebetaling | Fart: %i/%i km/t | B%sde: %skr.", oe(), Speed, Limit, oe(), moneyFormat(NewFine))
                
                Driver:giveFine(Reason,NewFine)
            }
            else {
                local Reason = format("[auto] Manglende fartb%sdebetaling | Fart: %i/%i km/t | B%sde: %skr.", oe(), Speed, Limit, oe(), moneyFormat(Fine))
                Driver:giveFine(Reason,Fine)
            }
        }
    }
}
elseif(~R1 & R1:isVehicle()) {R1:check(Set["Speed_limit1",number])}
elseif(~R2 & R2:isVehicle()) {R2:check(Set["Speed_limit2",number])}
elseif(fineNoClk()) {   
    local Ply = finePlayer()
    if(Ply:isWanted()) {
        concmd("darkrp unwanted "+Ply:userId())
        concmd(format("say /wanted %s Manglende fartb%sdebetaling - AOS eller b%sde p%s 10.000kr", Ply:steamID(), oe(), oe(), aa())) # Needs delay maybe?
    }
}