local fishivent_start = 0 local fish_submitted = false function c9010426_On_Talk(MapID, InstanceID, TargetID, TargetTypeID, RoleID, TalkIndex) local MsgID = msg.BeginMsgEvent() if TalkIndex == -1 then msg.AddMsgEvent(MsgID, 20, 950528) -- Эй, дружище! Я тут провожу соревнование среди лучших рыбаков, не хочешь испытать свою удачу? В течение часа лови рыбу в любом водоеме и если тебе повезет поймать Золотую рыбку скорее неси ее ко мне. Поторопись награду получит самый везучий и самый быстрый. msg.AddMsgEvent(MsgID, 24, TargetID) msg.AddMsgEvent(MsgID, 21, 4) msg.AddMsgEvent(MsgID, 1, 950529) -- Отдать msg.AddMsgEvent(MsgID, 21, 5) msg.AddMsgEvent(MsgID, 1, 100002) -- Отмена elseif TalkIndex == 4 then if not fish_submitted and role.GetRoleItemNum(RoleID, 6600790) >= 1 then if fishivent_start == 0 then if role.GetBagFreeSize(RoleID) >= 3 then role.AddRoleItem(MapID, InstanceID, RoleID, 4820035, 1, -1, 8, 420) -- Древняя книга role.AddRoleItem(MapID, InstanceID, RoleID, 4821002, 1, -1, 8, 420) -- Драгоценная гравировка role.AddRoleItem(MapID, InstanceID, RoleID, 4810109, 1, -1, 8, 420) -- Золотая плейона role.RemoveFromRole(MapID, InstanceID, RoleID, 6600790, 1, 101) -- Удаляем Золотую рыбку fishivent_start = 1 fish_submitted = true fishermen_competition(RoleID) msg.AddMsgEvent(MsgID, 102, 900257) -- Соревнование рыбаков окончено. Поздравляем игрока , который оказался самым удачливым рыболовом недели! msg.AddMsgEvent(MsgID, 2, RoleID) msg.DispatchWorldMsgEvent(MsgID) -- Уведомление всего сервера else msg.AddMsgEvent(MsgID, 20, 950530) -- Инвентарь заполнен msg.AddMsgEvent(MsgID, 24, TargetID) end else local Role = fishermen_competition(RoleID) role.RemoveFromRole(MapID, InstanceID, RoleID, 6600790, 1, 101) -- Удаляем Золотую рыбку msg.AddMsgEvent(MsgID, 20, 950532) -- Извини, в этот раз оказался самым быстрым. Не расстраивайся, возможно на следующей неделю удача улыбнется именно тебе. msg.AddMsgEvent(MsgID, 24, TargetID) -- npcid msg.AddMsgEvent(MsgID, 2, Role) end else msg.AddMsgEvent(MsgID, 20, 951532) -- Кто-то уже сдал Золотую рыбку. msg.AddMsgEvent(MsgID, 24, TargetID) end msg.AddMsgEvent(MsgID, 21, -1) msg.AddMsgEvent(MsgID, 1, 100001) -- Ок end msg.DispatchRoleMsgEvent(RoleID, MsgID) end aux.RegisterCreatureEvent(9010426, 7, "c9010426_On_Talk") function Fishing_OnStart(actID) -- Псарас fishivent_start = 1 fish_submitted = false local PsarasFish = map.MapCreateColCreature(3424073512, -1, 9010426, 480, 22982, 450, 1) map.SetMapScriptData(3424073512, -1, 1, 1, PsarasFish) end aux.RegisterActEvent(1184, 2, "Fishing_OnStart") function Fishing_OnEnd(actID) fishivent_start = 0 fish_submitted = false local PsarasFish = map.GetMapScriptData(3424073512, -1, 1, 1) map.MapDeleteCreature(3424073512, -1, PsarasFish) end aux.RegisterActEvent(1184, 3, "Fishing_OnEnd")