class 1 ssq_event_archer : ssq_event_basic_warrior
{
parameter:
	int	DespawnMagic = 273665;

handler:
	EventHandler CREATED(i0)
	{
		myself::AddTimerEx(2000,3000);
		myself.i_ai0 = 0;
		myself.i_ai4 = 0;
		super;
	}

	EventHandler SCRIPT_EVENT(script_event_arg1,script_event_arg2,c0)
	{
		if( script_event_arg1 == 10015 )
		{
			myself::RemoveAllAttackDesire();
			myself.i_ai4 = 1;
		}
	}

	EventHandler NO_DESIRE()
	{
		myself::AddMoveToDesire(myself.start_x,myself.start_y,myself.start_z,30);
	}

	EventHandler MOVE_TO_FINISHED(x,y,z)
	{
		if( x == myself.start_x && y == myself.start_y && z == myself.start_z )
		{
			myself::AddDoNothingDesire(40,30);
		}
		else
		{
			myself::AddMoveToDesire(myself.start_x,myself.start_y,myself.start_z,30);
		}
	}

	EventHandler SEE_CREATURE(creature)
	{
		if( myself.i_ai4 == 1 )
		{
			return;
		}
		if( myself.p_state != 3 )
		{
			if( creature.is_pc == 0 && myself::IsInCategory(11,creature.npc_class_id) == 0 )
			{
				return;
			}
			if( myself::GetLifeTime() > 0 && myself::InMyTerritory(myself.sm) )
			{
				myself::AddAttackDesire(creature,0,200);
			}
			if( myself::IsInCategory(1,creature.occupation) == 1 || myself::IsInCategory(2,creature.occupation) == 1 )
			{
				if( creature.is_pc == 0 && myself::IsInCategory(11,creature.npc_class_id) == 0 )
				{
					return;
				}
				if( myself::GetLifeTime() > 0 && myself::InMyTerritory(myself.sm) )
				{
					myself::AddAttackDesire(creature,0,200);
				}
				if( creature.is_pc == 0 && myself::IsInCategory(11,creature.npc_class_id) == 0 )
				{
					return;
				}
				if( myself::GetLifeTime() > 0 && myself::InMyTerritory(myself.sm) )
				{
					myself::AddAttackDesire(creature,0,200);
				}
			}
		}
	}

	EventHandler TIMER_FIRED_EX(timer_id)
	{
		if( timer_id == 2000 )
		{
			myself::LookNeighbor(600);
			myself::AddTimerEx(2000,3000);
			if( myself.p_state == 3 && myself::IsNullCreature(myself.top_desire_target) == 0 )
			{
				if( myself::DistFromMe(myself.top_desire_target) > 500 )
				{
					myself::RemoveAttackDesire(myself.top_desire_target.id);
				}
			}
		}
		if( timer_id == 2007 )
		{
			myself::Despawn();
		}
		super;
	}

	EventHandler ATTACKED(attacker,damage)
	{
		if( myself.i_ai4 == 1 )
		{
			return;
		}
		if( myself::InMyTerritory(attacker) == 0 )
		{
			return;
		}
		if( attacker.is_pc != 0 || myself::IsInCategory(11,attacker.npc_class_id) )
		{
			myself::AddAttackDesire(attacker,0,( ( ( 1.000000 * damage ) / ( myself.sm.level + 7 ) ) * 100 ));
		}
		if( myself::GetAbnormalLevel(myself.sm,myself::Skill_GetAbnormalType(DespawnMagic)) >= 0 && myself.i_ai0 == 0 )
		{
			myself::AddTimerEx(2007,5000);
			myself.i_ai0 = 1;
		}
		super;
	}

	EventHandler CLAN_ATTACKED(attacker,damage)
	{
	}

	EventHandler MY_DYING(c0,c1,party0,i1,i2)
	{
		myself::BroadcastScriptEvent(10006,myself.sm.param1,1500);
		if( myself.i_ai1 == 1 )
		{
			c0 = myself::GetLastAttacker();
			if( c0.is_pc == 0 )
			{
				c0 = c0.master;
			}
			if( myself::IsNullCreature(c0) == 0 )
			{
				c0 = myself::Party_GetLeader(c0);
			}
			party0 = myself::GetPartyFromEventRoom(RoomIndex,SSQPart);
			c1 = myself::GetLeaderOfParty(party0);
			if( myself::IsNullCreature(c0) == 0 && myself::IsNullCreature(c1) == 0 )
			{
				if( c0 == c1 )
				{
					if( myself::HaveMemo(c0,505) )
					{
						i1 = ( 2 + myself::FloatToInt(( ( 2 * 25 ) / 100 )) );
						if( myself::IsInCategory(2,c0.occupation) )
						{
							if( myself::DistFromMe(c0) < 40 )
							{
								i1 = ( i1 + myself::FloatToInt(( ( i1 * 30 ) / 100 )) );
							}
						}
						else if( myself::DistFromMe(c0) < 80 )
						{
							i1 = ( i1 + myself::FloatToInt(( ( i1 * 30 ) / 100 )) );
						}
						if( myself::IsInCategory(2,c0.occupation) )
						{
							if( gg::Rand(2) > 0 )
							{
								i1 = ( i1 + myself::FloatToInt(( ( i1 * 7 ) / 100 )) );
							}
							else
							{
								i1 = ( i1 - myself::FloatToInt(( ( i1 * 15 ) / 100 )) );
							}
						}
						else if( gg::Rand(2) > 0 )
						{
							i1 = ( i1 + myself::FloatToInt(( ( i1 * 15 ) / 100 )) );
						}
						else
						{
							i1 = ( i1 - myself::FloatToInt(( ( i1 * 7 ) / 100 )) );
						}
						myself::ShowSysMsgToParty2(party0,2,1381,3,5901,1,i1);
						myself::GiveItem1(c0,5901,i1);
					}
				}
			}
		}
		else
		{
			c0 = myself::GetLastAttacker();
			if( c0.is_pc == 0 )
			{
				c0 = c0.master;
			}
			if( myself::IsNullCreature(c0) == 0 )
			{
				c0 = myself::Party_GetLeader(c0);
			}
			party0 = myself::GetPartyFromEventRoom(RoomIndex,SSQPart);
			c1 = myself::GetLeaderOfParty(party0);
			if( myself::IsNullCreature(c0) == 0 && myself::IsNullCreature(c1) == 0 )
			{
				if( c0 == c1 )
				{
					if( myself::HaveMemo(c0,505) )
					{
						i1 = ( 6 + myself::FloatToInt(( ( 6 * 25 ) / 100 )) );
						if( myself::IsInCategory(2,c0.occupation) )
						{
							if( myself::DistFromMe(c0) < 40 )
							{
								i1 = ( i1 + myself::FloatToInt(( ( i1 * 30 ) / 100 )) );
							}
						}
						else if( myself::DistFromMe(c0) < 80 )
						{
							i1 = ( i1 + myself::FloatToInt(( ( i1 * 30 ) / 100 )) );
						}
						if( myself::IsInCategory(2,c0.occupation) )
						{
							if( gg::Rand(2) > 0 )
							{
								i1 = ( i1 + myself::FloatToInt(( ( i1 * 7 ) / 100 )) );
							}
							else
							{
								i1 = ( i1 - myself::FloatToInt(( ( i1 * 15 ) / 100 )) );
							}
						}
						else if( gg::Rand(2) > 0 )
						{
							i1 = ( i1 + myself::FloatToInt(( ( i1 * 15 ) / 100 )) );
						}
						else
						{
							i1 = ( i1 - myself::FloatToInt(( ( i1 * 7 ) / 100 )) );
						}
						myself::ShowSysMsgToParty2(party0,2,1381,3,5901,1,i1);
						myself::GiveItem1(c0,5901,i1);
					}
				}
			}
		}
	}

}
