Also I'm trying to add this code to a map with a cheat pack if that will make much of a differnce
Spoiler:
if(GetEventPlayerChatString()=="-crops")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Vcrp',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-vines")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cvin',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-vines2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Avin',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-poison")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cpos',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-pebbles")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Bdrr',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-cobble")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Qcbp',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-leaves")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Alvd',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-leaves2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Clvg',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Ldrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Fdro',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cdrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt4")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Xdrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Isnw',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nsnr',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nsnw',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Iice',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Idki',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nice',-1,0x3B9ACA00,1)
endif
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Vcrp',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-vines")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cvin',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-vines2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Avin',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-poison")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cpos',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-pebbles")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Bdrr',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-cobble")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Qcbp',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-leaves")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Alvd',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-leaves2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Clvg',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Ldrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Fdro',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Cdrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-dirt4")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Xdrt',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Isnw',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nsnr',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-snow3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nsnw',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Iice',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice2")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Idki',-1,0x3B9ACA00,1)
elseif(GetEventPlayerChatString()=="-ice3")
call SetTerrainTypeBJ(GetRectCenter(GetWorldBounds()),'Nice',-1,0x3B9ACA00,1)
endif