function chatZoom takes integer p, real x returns nothing
if x<500 then //set limits on how far the player can zoom in and out
set x=500
elseif x>4500 then
set x=4500
endif
if GetLocalPlayer()==Player(p) then
call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE,x,0)
endif
endfunction
function FuncChatEvent takes nothing returns nothing
local integer p = GetPlayerId(GetTriggerPlayer())
local string s = GetEventPlayerChatString()
local real arg1
local integer arg2
// Other chat commands omitted
if SubString(s,0,5) == "-zoom" then
set arg1 = S2R(SubString(s,6,StringLength(s)))
call chatZoom(p,arg1)
endif
endfunction
// Trigger initialization junk omitted