Problem with setTimer

[goofie88]

  
local level = 0 
  
function floodSA(source,command,speed) 
    if (isObjectInACLGroup ("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("Admin"))) then 
        if (speed) then 
            if (isTimer(waterTimer)) then 
                killTimer(waterTimer) 
                destroyElement(floodWater) 
                setWaterLevel(0) 
                level = 0 
                outputDebugString ("Previous flooding has been stopped by the server.") 
            end 
            local speed = tonumber(speed) 
            floodWater = createWater(-2998,-2998,0,2998,-2998,0,-2998,2998,0,2998,2998,0) 
            outputChatBox("--------------------------------",getRootElement(),255,0,0) 
            outputChatBox("ALERT: A FLOOD IS EMERGING! FIND HIGH GROUND!!!",getRootElement(),255,0,0) 
            outputChatBox("--------------------------------",getRootElement(),255,0,0) 
            waterTimer = setTimer(addSomeWater,100,0,speed) 
            outputDebugString("Flooding started by "..getPlayerName (source).." at a speed of "..speed..".") 
        else 
            outputChatBox("You must specify a speed.",source,255,0,0) 
        end 
    else 
        outputChatBox ("You must be an admin to use this command!",source,255,0,0) 
    end 
end 
  
function floodCd () 
setTimer ( floodSA() 
        outputChatBox ( "Flood will start in 5 sec" ) 
    end, 5000, 1 ) 
addCommandHandler("flood",floodCd) 

[2012-11-17 18:58:32] WARNING: Loading script failed: flood\flood.lua:30: ')' expected (to close '(' at line 29) near 'outputChatBox' 

Why doesnt it work? Seems theres no error for me

Edited November 17, 2012 by Guest

[Renkon]

setTimer ( function() 
        floodSA() 
        outputChatBox ( "Flood will start in 5 sec" ) 
    end, 5000, 1 ) 

You missed function()

Edited November 17, 2012 by Guest

[manve1]

  
local level = 0 
  
function floodSA(source,command,speed) 
    if (isObjectInACLGroup ("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("Admin"))) then 
        if (speed) then 
            if (isTimer(waterTimer)) then 
                killTimer(waterTimer) 
                destroyElement(floodWater) 
                setWaterLevel(0) 
                level = 0 
                outputDebugString ("Previous flooding has been stopped by the server.") 
            end 
            local speed = tonumber(speed) 
            floodWater = createWater(-2998,-2998,0,2998,-2998,0,-2998,2998,0,2998,2998,0) 
            outputChatBox("--------------------------------",root,255,0,0) 
            outputChatBox("ALERT: A FLOOD IS EMERGING! FIND HIGH GROUND!!!",root,255,0,0) 
            outputChatBox("--------------------------------",root,255,0,0) 
            waterTimer = setTimer(addSomeWater,100,0,speed) 
            outputDebugString("Flooding started by "..getPlayerName (source).." at a speed of "..speed..".") 
        else 
            outputChatBox("You must specify a speed.",source,255,0,0) 
        end 
    else 
        outputChatBox ("You must be an admin to use this command!",source,255,0,0) 
    end 
end 
  
function floodCd() 
setTimer ( function() 
        outputChatBox ( "Flood will start in 5 sec", root, 255, 0, 0 ) 
end, 5000, 1 ) 
end 
addCommandHandler("flood",floodCd) 

Edited November 17, 2012 by Guest

[goofie88]

Thank you Renkon there are no more errors but it doesnt call the flood

[manve1]

try my code

[Renkon]

floodSA(source,command,speed) <-- it requires 3 arguments

in setTimer you are calling it with no arguments!

[Anderl]

--declare global variables 
local iLevel = 0; 
local pTimer = false; 
  
--declare main functions 
function FloodSA( player, _, iWrSpeed ) 
    if (isObjectInACLGroup( "user." .. getAccountName( getPlayerAccount( player ) ), aclGetGroup( "Admin" ) )) then 
        if (iWrSpeed) then 
            if (isTimer( pTimer )) then 
                --kill timer & destroys water 
                killTimer( pTimer ); 
                 
                setWaterLevel( 0 ); 
                iLevel = 0; 
                 
                outputDebugString( "Previous flood has been stopped by the server" ); 
            end 
             
            iWrSpeed = tonumber( iWrSpeed ); 
             
            --starts new flood 
            outputDebugString( "Floodin' started by " .. getPlayerName( player ) .. "at a speed of 1 meter per " .. iWrSpeed .. " seconds!" ); 
            outputChatBox( "Water flood will start in 5 seconds!", root, 255, 0, 0, false ); 
             
            pTimer = setTimer( AddWater, ( iWrSpeed * 1000 ), 0 ); 
             
            outputChatBox( "--------------------------------", player, 255, 0, 0, false ); 
            outputChatBox( "ALERT: A FLOOD IS EMERGING! FIND A HIGH GROUND!!!", player, 255, 0, 0, false ); 
            outputChatBox( "--------------------------------", player, 255, 0, 0, false ); 
             
        else 
            --no speed arg passed; throwing error msg 
            outputChatBox( "You must specify a speed!", player, 255, 0, 0, false ); 
        end 
    else 
        --the element who called the command isn't an admin 
        outputChatBox( "You aren't an admin!", player, 255, 0, 0, false ); 
    end 
end 
addCommandHandler( "flood", FloodSA ); 
  
function AddWater() 
    if (iLevel) then 
        setWaterLevel( iLevel + 0.5 ); 
    end 
end 

Not tested, though. To use this do: /flood [0-infinite] - speed is ( specifiedArg * 1000 ) which means 1 = 1000, 2 = 2000, 3 = 3000, ...

P.S. Be sure to set the file as server-side.

Edited November 17, 2012 by Guest

[goofie88]

none of these scripts works

[Anderl]

Any errors in my script? How about using /debugscript 3?

[goofie88]

nope no errors

[Anderl]

What appears in the chat box?

[goofie88]

It writes "Water flood will start in 5 seconds!" and "ALERT: A FLOOD IS EMERGING! FIND A HIGH GROUND!!!" then it makes the water higher and stops

[goofie88]

ah I fixed the Timer but I have a new problem, when i do /flood-stop the water goes instantly down not slowly

/debugscript 3 - no errors

local level = 0 
local left = 5000 
  
function floodSA(source,command,speed) 
    if (isObjectInACLGroup ("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("Admin"))) then 
        if (speed) then 
        outputChatBox ("Flood will start in 5 sec") 
            if (isTimer(waterTimer)) then 
                killTimer(waterTimer) 
                destroyElement(floodWater) 
                setWaterLevel(0) 
                level = 0 
                outputDebugString ("Previous flooding has been stopped by the server.") 
            end 
            setTimer ( function () 
            local speed = tonumber(speed) 
            floodWater = createWater(-2998,-2998,0,2998,-2998,0,-2998,2998,0,2998,2998,0) 
            outputChatBox("--------------------------------",getRootElement(),255,0,0) 
            outputChatBox("ALERT: A FLOOD IS EMERGING! FIND HIGH GROUND!!!",getRootElement(),255,0,0) 
            outputChatBox("--------------------------------",getRootElement(),255,0,0) 
            waterTimer = setTimer(addSomeWater,100,0,speed) 
            outputDebugString("Flooding started by "..getPlayerName (source).." at a speed of "..speed..".") 
            end ,left, 1) 
        else 
            outputChatBox("You must specify a speed.",source,255,0,0) 
        end 
    else 
        outputChatBox ("You must be an admin to use this command!",source,255,0,0) 
    end 
end 
addCommandHandler("flood",floodSA) 
  
  
function addSomeWater(speed) 
    level = level+speed/100 
    setWaterLevel(level) 
end 
  
function delSomeWater () 
    height = getWaveHeight ( floodWater ) 
    setWaterLevel ( height - 0.1) 
end 
  
function stopFlood(source,command) 
    if (isObjectInACLGroup("user."..getAccountName(getPlayerAccount(source)),aclGetGroup("Admin"))) then 
            if (isTimer(waterTimer)) then 
                killTimer(waterTimer) 
                -- destroyElement(floodWater) 
                waterDown = setTimer(delSomeWater,100,0) 
                outputDebugString("Flooding stopped by "..getPlayerName(source)..".") 
                outputChatBox("THE FLOOD HAS PASSED, RETURN TO YOUR HOMES!",getRootElement(),255,0,0) 
            else 
                outputChatBox("There is no flood to stop.",source,255,0,0) 
            end 
end 
end 
addCommandHandler("flood-stop",stopFlood) 
  
function resetWater() 
    setWaterLevel(0) 
end 
addEventHandler("onResourceStop",getResourceRootElement(getThisResource()),resetWater)