addhook("hit","freeze") function freeze(id,source,weapon,hpdmg,apdmg)
	if weapon==50 then 
		parse("speedmod "..id.." -100") return 1
	end
end

{
			name = 'Bulbasaur', health = 100, image = 
'gfx/weiwen/pokemon/1.png', scalex = 2, scaley = 2, r = 136, g = 224, b = 32, 
		atk = 1.9, def = 2.1, spd = 6, atkspd = 8, x = 

0, y = 0, ang = 0, imgang = 0, spawnchance = 5, runat = 10, 
		exp = 15, money = 100, loot = {chance = 5000, 

id = 102}}, {chance = 50, id = 221}}, spawn1 = {0, 100}, 

spawn2 = {150, 150}, 
		spc = {1500, function(self) 
			radiusmsg("Bulbasaur casts heal!", 

self.x, self.y)
			parse("effect \"colorsmoke\" " .. 

self.x .. " " .. self.y .. " 5 5 255 255 255")
		end}, 
	}, 
	{							

		 name = 'Scyther', health = 200, image = 

'gfx/pokemon/123.png', scalex = 1, scaley = 1, 
		atk = 20, def = 25, spd = 10, atkspd = 8, x = 

0, y = 0, ang = 0, imgang = 0, spawnchance = 2000, runat = 10 	

	exp = 1000, money = 5000, loot = {{chance = 1000,id = 

307}, {chance = 1000, id = 327}}, spawn1 = {0, 100, spawn2 = 

{150, 150}, 
		spc = {1500, function(self, id, dist)
			if dist <= 96 then
				radiusmsg("Scyther uses 

razorleaf!",self.x, self.y)				
				self:hit(id, 20)
		        end  
		end},
	},

addhook("spawn3") 
 function spawn3(id) 

addhook("spawn4") 
 function spawn4(id) 
	if(weapon...id...30) then        
          freeimage(id)
          id1=image("gfx/light.png",1,1,200+id)  								
            imageblend(id,1)								
		imagealpha(id,0.5)								
          if (player(id,"team") == 2) then 
               imagecolor(id1,255,255,255) 
                
          elseif (player(id,"team") == 1) then 
               imagecolor(id1,255,255,255) 
          end 

end

addhook("spawn3") 
function spawn3(id) 

addhook("spawn4") 
function spawn4(id) 
     if("weapon "..id.." 30")then 
freeimage(id)
id1=image("gfx/light.png",1,1,200+id)                                         
imageblend(id,1)                                        
          imagealpha(id,0.5)                                        
if(player(id,"team")==2)then 
imagecolor(id1,255,255,255) 

elseif (player(id,"team")==1)then 
imagecolor(id1,255,255,255) 
end
end
end 
end

if (player(id,"team")==2) then

if (player(id,"team") == 2) then

function initArray(m)
	local array = {}
	for i = 1, m do
		array[i]=0
	end
	return array
end

freeze = initArray(32)

addhook("join","rfreeze") function rfreeze(id)
	freeze[id]=0
end

addhook("hit","freeze") function freeze(id,source,weapon,hpdmg,apdmg)
	if weapon==50 then -- if knife
		if (player(id,"team") == player(source,"team")) then -- If player hitter is your team
			--
		else
			freeze[source]=0
			parse("speedmod "..source.." -100")
			return 1
		end
	end
end

addhook("second","freezeun") function freezeun()
	for id = 1,32 do
		if (player(id,"exists")) then
			freeze[id]=freeze[id]+1
			if freeze[id]==5 then
				parse("speedmod "..id.." 0")
				msg2(id,"You are unfreezed")
			end
		end
	end
end

function totable(t,match)
     local cmd = {}
     if not match then match = "[^%s]+" end
     for word in string.gmatch(t, match) do
          table.insert(cmd, word)
     end
     return cmd
end 

addhook("say","msgto")
function msgto(id,txt)
	_msg=totable(txt)
	_t1=tostring(_msg[1])
	if (_t1=="!whisper") then
		_t2=tonumber(_msg[2])
		_t3=string.sub(txt,10)
		if (_t2 ~= nil) then
			msg2(_t2,"©000150255From "..player(id,"name").." : ".._t3.."@C")
			msg2(id,"©000255150To "..player(id,"name").." : ".._t3.."@C")
		end
return 1
	end
end