Перейти к содержанию

KABASYA

Граждане
  • Постов

    204
  • Зарегистрирован

  • Посещение

Весь контент KABASYA

  1. ОТ ВСЕЙ ДУШИ ПОЗДРАВЛЯЕМ НАШИХ ЛЮБИМЫХ ЖЕНЩИН. БУДЬТЕ КРАСИВЫ, ЛЮБИМЫ, СЧАЧТЛИВЫ http://rightabsorption.files.wordpress.com/2009/03/kitty-bliss.jpg?w=475&h=356
  2. Помогите найти плаг, там в таверне ( не помню в какой) пьянчуги лазят, танцы вообщем много анимации, вчера еще находил думал потом скачаю, а сейчас земля раступилась, наверно за кампом пересидел.
  3. Должно время пройти, день или два, потом будет сообщение, что мол вы заразились ликантропией
  4. В результате диалога есть строчка Goodbye AiWander 0, 0, 0, 0, 0, 0, 100, 0, 0, 0, 0, 0 Так вот я ее поставил, непись вместо танца постоянно бок поправляет, потом прицепил файл анимационный он начал на землю ложиться, я просто с анимацией не знаком, может еще где нужно чего изменить?
  5. Скачал тут один плагин там значит компаньенка дремора, по команде может танцевать, лечь спать и т.д. попытался добавить такие же способности рабам из плага дракондровойс, вот только скрипт у дреморы уж очень сложный для меня помогите плиз из скрипта вырвать блок про танец, чтоб потом можно было его поцепить другим неписям. Вот скриптик [buspoiler]begin 1jw_dae_CompScript short noLore short c_move short compmove short movetimer short c_speed short c_athletics short p_check short mp_check short companion short noGreet short oneTime short doOnce1 short doOnce2 short warp short flyCheck short wwCheck short weapUse short combatDone short combatCheck short combatMode short soundPlayed short pacifist short diseased short armoroff short h_check short currentmagicka short jwander short emmasnpcid short alcohol short mlove short dayCount short dayUp short chatCount short DONOTUSE short lyingdown short firstmeet short athome Short DTNPS_MoveOnce_NotMenu Short DTNPS_HandlePotions Long DTNPS_Count_HealthExclusive Long DTNPS_Count_HealthQuality Long DTNPS_Count_HealthStandard Long DTNPS_Count_HealthTotal float z_fly float timer float sheatheTimer float counter float px float py float ax float ay float az float bx float by float bz float t1 float t2 float t3 float t4 float coDist1 float coDist2 float DTNPS_Timer_Health If ( GetHealth < 1 ) Set DTNPS_HandlePotions to 0 ElseIf ( GetFatigue < 1 ) Set DTNPS_HandlePotions to 0 ElseIf ( MenuMode == 1 ) Set DTNPS_HandlePotions to 0 Else Set DTNPS_HandlePotions to 1 EndIf If ( DTNPS_HandlePotions == 0 ) Set DTNPS_MoveOnce_NotMenu to 0 Set DTNPS_Timer_Health to 99 Set DTNPS_Count_HealthTotal to ( DTNPS_Count_HealthExclusive + DTNPS_Count_HealthQuality + DTNPS_Count_HealthStandard ) If ( DTNPS_Count_HealthTotal > 0 ) While ( DTNPS_Count_HealthExclusive >= 10 ) AddItem "p_restore_health_e" 10 Set DTNPS_Count_HealthExclusive to ( DTNPS_Count_HealthExclusive - 10 ) EndWhile While ( DTNPS_Count_HealthExclusive >= 1 ) AddItem "p_restore_health_e" 1 Set DTNPS_Count_HealthExclusive to ( DTNPS_Count_HealthExclusive - 1 ) EndWhile While ( DTNPS_Count_HealthQuality >= 10 ) AddItem "p_restore_health_q" 10 Set DTNPS_Count_HealthQuality to ( DTNPS_Count_HealthQuality - 10 ) EndWhile While ( DTNPS_Count_HealthQuality >= 1 ) AddItem "p_restore_health_q" 1 Set DTNPS_Count_HealthQuality to ( DTNPS_Count_HealthQuality - 1 ) EndWhile While ( DTNPS_Count_HealthStandard >= 10 ) AddItem "p_restore_health_s" 10 Set DTNPS_Count_HealthStandard to ( DTNPS_Count_HealthStandard - 10 ) EndWhile While ( DTNPS_Count_HealthStandard >= 1 ) AddItem "p_restore_health_s" 1 Set DTNPS_Count_HealthStandard to ( DTNPS_Count_HealthStandard - 1 ) EndWhile EndIf ElseIf ( DTNPS_HandlePotions == 1 ) If ( DTNPS_MoveOnce_NotMenu == 0 ) Set DTNPS_MoveOnce_NotMenu to 1 While ( GetItemCount "p_restore_health_e" > 10 ) RemoveItem "p_restore_health_e" 10 Set DTNPS_Count_HealthExclusive to ( DTNPS_Count_HealthExclusive + 10 ) EndWhile While ( GetItemCount "p_restore_health_e" > 1 ) RemoveItem "p_restore_health_e" 1 Set DTNPS_Count_HealthExclusive to ( DTNPS_Count_HealthExclusive + 1 ) EndWhile While ( GetItemCount "p_restore_health_q" >= 10 ) RemoveItem "p_restore_health_q" 10 Set DTNPS_Count_HealthQuality to ( DTNPS_Count_HealthQuality + 10 ) EndWhile While ( GetItemCount "p_restore_health_q" >= 1 ) RemoveItem "p_restore_health_q" 1 Set DTNPS_Count_HealthQuality to ( DTNPS_Count_HealthQuality + 1 ) EndWhile While ( GetItemCount "p_restore_health_s" >= 10 ) RemoveItem "p_restore_health_s" 10 Set DTNPS_Count_HealthStandard to ( DTNPS_Count_HealthStandard + 10 ) EndWhile While ( GetItemCount "p_restore_health_s" >= 1 ) RemoveItem "p_restore_health_s" 1 Set DTNPS_Count_HealthStandard to ( DTNPS_Count_HealthStandard + 1 ) EndWhile EndIf Set DTNPS_Count_HealthTotal to ( DTNPS_Count_HealthExclusive + DTNPS_Count_HealthQuality + DTNPS_Count_HealthStandard ) If ( DTNPS_Count_HealthTotal > 0 ) Set DTNPS_Timer_Health to ( DTNPS_Timer_Health + GetSecondsPassed ) If ( GetItemCount "p_restore_health_e" > 0 ) Set DTNPS_Timer_Health to 0 ElseIf ( GetItemCount "p_restore_health_q" > 0 ) Set DTNPS_Timer_Health to 0 ElseIf ( GetItemCount "p_restore_health_s" > 0 ) Set DTNPS_Timer_Health to 0 ElseIf ( DTNPS_Timer_Health >= 1 ) If ( DTNPS_Count_HealthExclusive > 0 ) AddItem "p_restore_health_e" 1 Set DTNPS_Count_HealthExclusive to ( DTNPS_Count_HealthExclusive - 1 ) ElseIf ( DTNPS_Count_HealthQuality > 0 ) AddItem "p_restore_health_q" 1 Set DTNPS_Count_HealthQuality to ( DTNPS_Count_HealthQuality - 1 ) ElseIf ( DTNPS_Count_HealthStandard > 0 ) AddItem "p_restore_health_s" 1 Set DTNPS_Count_HealthStandard to ( DTNPS_Count_HealthStandard - 1 ) EndIf EndIf EndIf EndIf set currentmagicka to ( GetMagicka ) if ( MenuMode == 1 ) if ( GetItemCount p_restore_health_b >= 1 ) set p_check to 1 elseif ( GetItemCount p_restore_health_c >= 1 ) set p_check to 1 elseif ( GetItemCount p_restore_health_e >= 1 ) set p_check to 1 elseif ( GetItemCount p_restore_health_q >= 1 ) set p_check to 1 elseif ( GetItemCount p_restore_health_s >= 1 ) set p_check to 1 else set p_check to 0 endif if ( GetItemCount p_restore_magicka_b >= 1 ) set mp_check to 1 elseif ( GetItemCount p_restore_magicka_c >= 1 ) set mp_check to 1 elseif ( GetItemCount p_restore_magicka_e >= 1 ) set mp_check to 1 elseif ( GetItemCount p_restore_magicka_q >= 1 ) set mp_check to 1 elseif ( GetItemCount p_restore_magicka_s >= 1 ) set mp_check to 1 else set mp_check to 0 endif if ( GetPCSleep == 0 ) return endif endif if ( player->GetDistance "1jw_dae_homelight" <= 4000 ) if ( GetLOS Player == 1 ) set athome to 1 else set athome to 0 endif endif if ( GetCurrentAIPackage != 3 ) setSpeed 40 set ajw_daenear to 0 endif if ( weapUse == 1 ) if ( Player->GetWeaponType <= 8 ) setmarksman 0 elseif ( weapUse == 1 ) if ( Player->GetWeaponType >= 9 ) setmarksman 200 endif endif endif if ( combatCheck == 1 ) set sheatheTimer to sheatheTimer + GetSecondsPassed if ( GetSoundPlaying, "Weapon Swish" == 1 ) set sheatheTimer to 0 return elseif ( GetSoundPlaying, crossbowShoot == 1 ) set sheatheTimer to 0 return elseif ( GetSoundPlaying, bowShoot == 1 ) set sheatheTimer to 0 return elseif ( sheatheTimer > 4 ) if ( GetSoundPlaying "Weapon Swish" == 0 ) set sheatheTimer to 0 set soundPlayed to 1 endif elseif ( sheatheTimer > 4 ) if ( GetSoundPlaying "crossbowShoot" == 0 ) set sheatheTimer to 0 set soundPlayed to 1 endif elseif ( sheatheTimer > 4 ) if ( GetSoundPlaying "bowShoot" == 0 ) set sheatheTimer to 0 set soundPlayed to 1 endif endif endif if ( soundPlayed == 1 ) equip "silver dagger" removeitem "silver dagger" 1 set soundPlayed to 0 set combatCheck to 0 set combatMode to 0 set combatDone to 1 endif if ( combatDone == 1 ) set timer to timer + GetSecondsPassed if ( timer > 6 ) set timer to 0 set combatDone to 0 set warp to 0 endif endif if ( c_move == 1 ) if ( GetDistance Player > 100 ) set noGreet to 0 AIFollow Player 0 0 0 0 set c_move to 0 endif endif if ( GetCurrentAIPackage == 3 ) if ( GetPCSleep == 1 ) StartScript 1jw_dae_CompLevel set alcohol to 0 endif if ( flyCheck == 1 ) if ( GetWeaponDrawn == 0 ) set z_fly to ( Player->GetPos z ) SetPos z z_fly elseif ( flyCheck == 1 ) if ( GetCurrentAIPackage != 3 ) if ( GetWeaponDrawn == 0 ) set z_fly to ( GetPos z ) SetPos z z_fly endif endif endif endif if ( GetWeaponDrawn == 1 ) if ( flyCheck == 0 ) set combatCheck to 1 set combatMode to 1 set timer to 0 set warp to 1 return elseif ( GetWeaponDrawn == 1 ) if ( flyCheck == 1 ) set combatDone to 1 set combatMode to 1 set timer to 0 set warp to 1 return endif endif endif set px to ( Player->GetPos x ) set py to ( Player->GetPos y ) if ( doOnce1 == 0 ) set ax to ( Player->GetPos x ) set ay to ( Player->GetPos y ) set az to ( Player->GetPos z ) set doOnce1 to 1 endif set t1 to ( px - ax ) set t1 to ( t1 * t1 ) set t2 to ( py - ay ) set t2 to ( t2 * t2 ) set t1 to ( t1 + t2 ) set coDist1 to ( GetSquareRoot, t1 ) if ( coDist1 > 360 ) set doOnce1 to 0 endif if ( coDist1 > 180 ) if ( doOnce2 == 0 ) set bx to ( Player->GetPos x ) set by to ( Player->GetPos y ) set bz to ( Player->GetPos z ) set doOnce2 to 1 endif endif set t3 to ( px - bx ) set t3 to ( t3 * t3 ) set t4 to ( py - by ) set t4 to ( t4 * t4 ) set t3 to ( t3 + t4 ) set coDist2 to ( GetSquareRoot, t3 ) if ( coDist2 > 360 ) set doOnce2 to 0 endif if ( warp == 0 ) if ( coDist1 > 300 ) if ( GetDistance Player > 680 ) SetPos x ax SetPos y ay SetPos z az AiFollow Player 0 0 0 0 elseif ( warp == 0 ) if ( coDist2 > 300 ) if ( GetDistance Player > 680 ) SetPos x bx SetPos y by SetPos z bz AiFollow Player 0 0 0 0 endif endif endif endif endif if ( GetDistance Player <= 512 ) set ajw_daenear to 1 endif endif if ( GetDistance Player > 512 ) set ajw_daenear to 0 endif if ( counter < 20 ) set counter to counter + 1 return endif set counter to 0 if ( GetCurrentAIPackage == 3 ) if ( GetDistance Player < 250 ) setSpeed 60 setAthletics 60 elseif ( GetDistance Player > 250 ) set c_speed to ( ( Player->GetSpeed ) * 2.25 ) set c_athletics to ( ( Player->GetAthletics ) * 2.25 ) setSpeed c_speed setAthletics c_athletics endif if ( Player->GetEffect sEffectLevitate == 1 ) if ( flyCheck == 0 ) cast "1jw_dae_lev_bogus" player addspell "1jw_dae_lev" set flyCheck to 1 endif endif if ( Player->GetEffect sEffectLevitate == 0 ) if ( flyCheck == 1 ) removespell "1jw_dae_lev" set flyCheck to 0 endif endif if ( Player->GetEffect sEffectWaterWalking == 1 ) if ( wwCheck == 0 ) cast "1jw_dae_ww_bogus" player addspell "1jw_dae_ww" set wwCheck to 1 endif endif if ( Player->GetEffect sEffectWaterWalking == 0 ) if ( wwCheck == 1 ) removespell "1jw_dae_ww" set wwCheck to 0 endif endif if ( GetPCSneaking == 1 ) ForceSneak elseif ( GetPCSneaking == 0 ) ClearForceSneak endif if ( compMove == 1 ) if ( c_move == 0 ) if ( GetDistance Player < 70 ) AIWander 300 0 0 0 0 set c_move to 1 endif endif endif endif if ( dayCount != Day ) set dayUp to dayUp + 1 set dayCount to Day endif If ( GetHealthGetRatio < 0.5 ) If ( combatmode == 0 ) If ( currentmagicka >= 12 ) Cast "hearth heal" player modcurrentmagicka -12 elseif ( p_check > 0 ) StartScript 1jw_dae_DrinkPotion endif endif endif If ( mp_check > 0 ) If ( combatmode == 0 ) If ( GetMagicka < 10 ) StartScript 1jw_dae_HealMag endif endif endif If ( GetCommonDisease == 1 ) set diseased to 1 elseif ( GetBlightDisease == 1 ) set diseased to 2 else set diseased to 0 endif set emmasnpcid to 910 end[/buspoiler]
  6. Редгары тоже исполняют нормально, вот случай: когда первый раз начал играть в мору и толком не знал особенностей игрушки считал что фразы неписей каким то образом зависят от хода игры как в Готике, прохожу значит мимо редгара и тут властно и требовательно: "Так я сказал! Где деньги?", ого думаю, че за дела, когда это я успел в долги залезть, давай лопатить дневник, вспоминать квесты и т.д., я же честный, исполнительный игрок, думаю надо отдать, чтоб не нервничал темнокожий брат, потом конечно вспоминал это с улыбкой, а вот еще редгар:"Хороших дам мало рядышком" не ординарно как то...
  7. Народ, а есть у кого то серийный номер для активации Dr.Web 5? Заранее благодарю.
  8. Всем привет.А кто знает есть где нибудь Antares Big Mod 5 переведенный? На Planet Elder Scrolls нашел пятую версию,а перевод не нашел
  9. Когда то видал в нете плаг с названием типа "Канцелярия недвижимости", а теперь найти не могу, может кто знает где его найти можно?
  10. Помогите пожалуйста скрипт составить, который при покупке дома переводил бы крупные суммы типа 120 000 000 продавцу дома и при продаже от продавца мне.
  11. Всем привет, люди, помогите в следующем вопросе: ниже скриптик, который при активации переводит все деньги на счет в банк, подскажите, что нужно добавить, чтобы снимались не все деньги, а 500000, а то я подметил, такую фишку, что крупные суммы моррик за раз не снимает, не переводит.Я вот плагин один переделывал, на покупку дома, там цены как мн7е показались маленькие, вот одному замку я назначил цену в 120 000 000, а как их перевести?[buspoiler]begin BankDepositAll long YourGold set YourGold to "Player"->GetItemCount Gold_001 set BankAccount to ( BankAccount + YourGold ) while ( YourGold >= 32000 ) Player->RemoveItem Gold_001 32000 set YourGold to ( YourGold - 32000 ) endwhile if ( YourGold >= 16384 ) Player->RemoveItem Gold_001 16384 set YourGold to (YourGold - 16384) endif if ( YourGold >=8192 ) Player->RemoveItem Gold_001 8192 set YourGold to ( YourGold - 8192 ) endif if ( YourGold >= 4096 ) Player->RemoveItem Gold_001 4096 set YourGold to (YourGold - 4096) endif if ( YourGold >= 2048 ) Player->RemoveItem Gold_001 2048 set YourGold to ( YourGold - 2048 ) endif if ( YourGold >= 1024 ) Player->RemoveItem Gold_001 1024 set YourGold to ( YourGold - 1024 ) endif if ( YourGold >= 512 ) Player->RemoveItem Gold_001 512 set YourGold to ( YourGold - 512 ) endif if ( YourGold >= 256 ) Player->RemoveItem Gold_001 256 set YourGold to ( YourGold - 256 ) endif if ( YourGold >= 128 ) Player->RemoveItem Gold_001 128 set YourGold to ( YourGold - 128 ) endif if ( YourGold >= 64 ) Player->RemoveItem Gold_001 64 set YourGold to ( YourGold - 64 ) endif if ( YourGold >= 32 ) Player->RemoveItem Gold_001 32 set YourGold to ( YourGold - 32 ) endif if ( YourGold >= 16 ) Player->RemoveItem Gold_001 16 set YourGold to ( YourGold - 16 ) endif if ( YourGold >= 8 ) Player->RemoveItem Gold_001 8 set YourGold to ( YourGold - 8 ) endif if ( YourGold >= 4 ) Player->RemoveItem Gold_001 4 set YourGold to ( YourGold - 4 ) endif if ( YourGold >= 2 ) Player->RemoveItem Gold_001 2 set YourGold to ( YourGold - 2 ) endif if ( YourGold >= 1 ) Player->RemoveItem Gold_001 1 set YourGold to ( YourGold - 1 ) endif startscript BankMembership stopscript BankDepositAll MessageBox "Перевод денег завершен." end BankDepositAll[/buspoiler]
  12. Сейчас вот переводится плаг "Служение Ситис", там сюжетная линия довольно таки интересная, во общем война между Мораг Тонг, Темным Братством которое приехало с Киродиила с миссией оправдать свое доброе имя и ликвидировать Братство Вварденфелла( кстати в него можно вступить), короче затронуты все темные группировки кроме Камона Тонг, что если и ее сюда интегрировать, хорошая бы резня получилась и причем резня не втупую, а со всякими там коварством и ухищрениями, чтоб была возможность спланировать убийство...Плаг переводится второй день, осталось примерно 70%. Нашел переведенный плаг "Служение Ситис". Перевод отменяется.
  13. Так, а может он у тестеров или еще в какой обработке, Владимир там давненько я видел в этой теме о нем упоминал...
  14. Хотелось бы узнать судьбу плагина Служение Ситису,переводится он или нет, а то собрался переводить и чтоб не оказалось, что убил время зря Все нашел. Немного поздновато, перевод отменяется
  15. Скачал на днях с planet плагин Clean To Serve Sithis_, хотелось бы узнать, есть переведенная версия, по крайней мере я не нашел, если есть подскажите плиз ссылочку.Спасибо.
  16. Подскажите какой GMST отвечает за учебу
  17. Со стражниками и бандитами разобрался, благодарю за помощь, теперь предстал перед иной делемой, вот три скрипта: 1. Атака бандитов [buspoiler]begin mca_bandits short willspawnothers short companionclass short fighting if ( fighting == 1 ) if ( OnDeath == 1 ) set MCA_FightingBandits to ( MCA_FightingBandits - 1 ) elseif ( CellChanged == 1 ) set MCA_FightingBandits to ( MCA_FightingBandits - 1 ) set fighting to 0 endif endif if ( GetTarget, "player" == 1 ) if ( fighting == 0 ) set MCA_FightingBandits to ( MCA_FightingBandits + 1 ) set fighting to 1 endif endif if ( willspawnothers > 0 ) Return endif set willspawnothers to Random, 4 set companionclass to Random, 32 if ( willspawnothers == 0 ) if ( companionclass == 0 ) Placeatme, "_MCA_bandit_bos_f01", 1, 128, 1 elseif ( companionclass == 1 ) Placeatme, "_MCA_bandit_bos_f02", 1, 128, 2 elseif ( companionclass == 2 ) Placeatme, "_MCA_bandit_bos_m01", 1, 128, 1 elseif ( companionclass == 3 ) Placeatme, "_MCA_bandit_bos_m02", 1, 128, 2 elseif ( companionclass == 4 ) Placeatme, "_MCA_bandit_bret_f01", 1, 128, 1 elseif ( companionclass == 5 ) Placeatme, "_MCA_bandit_bret_f02", 1, 128, 2 elseif ( companionclass == 6 ) Placeatme, "_MCA_bandit_bret_m01", 1, 128, 1 elseif ( companionclass == 7 ) Placeatme, "_MCA_bandit_bret_m02", 1, 128, 2 elseif ( companionclass == 8 ) Placeatme, "_MCA_bandit_dun_f01", 1, 128, 1 elseif ( companionclass == 9 ) Placeatme, "_MCA_bandit_dun_f02", 1, 128, 2 elseif ( companionclass == 10 ) Placeatme, "_MCA_bandit_dun_m01", 1, 128, 1 elseif ( companionclass == 11 ) Placeatme, "_MCA_bandit_dun_m02", 1, 128, 2 elseif ( companionclass == 12 ) Placeatme, "_MCA_bandit_imp_f01", 1, 128, 1 elseif ( companionclass == 13 ) Placeatme, "_MCA_bandit_imp_f02", 1, 128, 2 elseif ( companionclass == 14 ) Placeatme, "_MCA_bandit_imp_m01", 1, 128, 1 elseif ( companionclass == 15 ) Placeatme, "_MCA_bandit_imp_m02", 1, 128, 2 elseif ( companionclass == 16 ) Placeatme, "_MCA_bandit_khaj_f01", 1, 128, 1 elseif ( companionclass == 17 ) Placeatme, "_MCA_bandit_khaj_f02", 1, 128, 2 elseif ( companionclass == 18 ) Placeatme, "_MCA_bandit_khaj_m01", 1, 128, 1 elseif ( companionclass == 19 ) Placeatme, "_MCA_bandit_khaj_m02", 1, 128, 2 elseif ( companionclass == 20 ) Placeatme, "_MCA_bandit_nord_f01", 1, 128, 1 elseif ( companionclass == 21 ) Placeatme, "_MCA_bandit_nord_f02", 1, 128, 2 elseif ( companionclass == 22 ) Placeatme, "_MCA_bandit_nord_m01", 1, 128, 1 elseif ( companionclass == 23 ) Placeatme, "_MCA_bandit_nord_m02", 1, 128, 2 elseif ( companionclass == 24 ) Placeatme, "_MCA_bandit_orc_f01", 1, 128, 1 elseif ( companionclass == 25 ) Placeatme, "_MCA_bandit_orc_f02", 1, 128, 2 elseif ( companionclass == 26 ) Placeatme, "_MCA_bandit_orc_m01", 1, 128, 1 elseif ( companionclass == 27 ) Placeatme, "_MCA_bandit_orc_m02", 1, 128, 2 elseif ( companionclass == 28 ) Placeatme, "_MCA_bandit_red_f01", 1, 128, 1 elseif ( companionclass == 29 ) Placeatme, "_MCA_bandit_red_f02", 1, 128, 2 elseif ( companionclass == 30 ) Placeatme, "_MCA_bandit_red_m01", 1, 128, 1 elseif ( companionclass == 31 ) Placeatme, "_MCA_bandit_red_m02", 1, 128, 2 endif endif set willspawnothers to 1 end[/buspoiler] 2. Атака вампиров [buspoiler]begin dg_Vampire_Berne_Ranger short done short fightset short cattlekilled short nolore short nohello short noflee short noidle short nointruder short nothief short sFlag short sHunter short sFightState short OnPCHitMe short sAttack float fPCAngle float fPCX float fPCY float fdx float fdy float fRatio float fCrimeLevel short sFrame short sState short sOnce if ( GetJournalIndex "VA_VampCountess" == 70 ) setFight 100 setDisposition 0 set cattlekilled to -1 set sHunter to 1 else set sHunter to 0 endif if ( OnDeath == 1 ) if ( sHunter == 0 ) if ( GetJournalIndex "VA_VampHunter" == 90 ) if ( VampClan == 1 ) set VampKills to ( VampKills + 1 ) elseif ( VampClan == 2 ) set VampKills to ( VampKills - 1 ) elseif ( VampClan == 3 ) set VampKills to ( VampKills + 1 ) endif elseif ( GetJournalIndex "VA_VampAmulet" == 30 ) if ( VampClan == 1 ) set VampKills to ( VampKills + 1 ) elseif ( VampClan == 2 ) set VampKills to ( VampKills - 1 ) elseif ( VampClan == 3 ) set VampKills to ( VampKills + 1 ) endif endif AddItem "ingred_vampire_dust_01" 1 endif endif if ( sOnce == 0 ) Disable set sOnce to 1 endif if ( GetHealth > 0 ) if ( GetPCSleep == 1 ) if ( GetDisabled == 0 ) Disable endif endif endif if ( MenuMode == 1 ) return endif if ( OnPCHitMe == 1 ) if ( sFightState == 0 ) if ( player->GetPCCrimeLevel > fCrimeLevel ) PayFineThief set fTemp to ( player->GetPCCrimeLevel ) set fCrimeLevel to ( fCrimeLevel - fTemp ) player->ModPCCrimeLevel, fCrimeLevel set sFightState to 1 endif startcombat, player endif endif set fCrimeLevel to ( player->GetPCCrimeLevel ) set sAttack to 0 if ( GetSpellReadied == 1 ) set sAttack to 1 elseif ( GetWeaponDrawn == 1 ) set sAttack to 1 endif if ( sAttack == 1 ) if ( sFightState == 0 ) if ( GetTarget, Player ) set sFightState to 1 endif endif else if ( sFightState == 1 ) StartCombat, Player endif endif if ( GetDistance, Player > 2000 ) set sAttack to 0 endif ;if guards are attacking, they won't notice crime. so make the creature notice instead if ( NPCGuardAttack > 0 ) SetAlarm, 100 else SetAlarm, 0 endif ;reset flag if global is 0 if ( NPCCreatureAttack < 1 ) set sFlag to 0 endif if ( sFlag == 0 ) ;return if dead if ( GetHealth > 0 ) if ( GetDisabled == 0 ) ;if close to player increase the attacking NPC variable if ( sAttack == 1 ) set NPCCreatureAttack to ( NPCCreatureAttack + 1 ) set sFlag to 1 if ( ScriptRunning, dg_NPCAttackFixScript == 0 ) StartScript dg_NPCAttackFixScript endif endif endif endif else ;clear the NPC attack flag if dead or far or disable if ( sAttack == 0 ) set sFlag to 0 elseif ( GetDisabled == 1 ) set sFlag to 0 ;reduce if dead elseif ( GetHealth < 1 ) set sFlag to 0 endif if ( sFlag == 0 ) if( NPCCreatureAttack > 0 ) set NPCCreatureAttack to ( NPCCreatureAttack - 1 ) endif endif endif set sFrame to ( sFrame + 1 ) if ( sFrame < 10 ) return endif set sState to 0 set sFrame to 0 if ( GetDisabled == 1 ) if ( GameHour > 20 ) set sState to 1 endif if ( GameHour < 6 ) set sState to 1 endif else if ( GameHour > 6 ) if ( GameHour < 20 ) set sState to 2 endif endif endif if ( GetHealth < 1 ) set sState to 0 endif if ( GetInterior == 1 ) set sState to 0 endif if ( GetDistance, Player < 256 ) set sState to 0 endif if ( sState != 0 ) if ( GetDistance, Player > 7168 ) set sState to ( sState + 2 ) else set fPCX to ( player->GetPos, X ) set fPCY to ( player->GetPos, Y ) set fPCAngle to ( player->GetAngle, Z ) set fdx to GetPos, X set fdy to GetPos, Y set fdx to ( fdx - fPCX ) set fdy to ( fdy - fPCY ) set fRatio to ( fdx / fdy ) ;MessageBox "angle: %f, fdx : %f, fdy: %f, ratio: %f", fPCAngle, fdx, fdy, fRatio if ( fdx > 0 ) if ( fdy > 0 ) if ( fRatio > 1 ) if ( fPCAngle < -45 ) set sState to ( sState + 2 ) endif else if ( fPCAngle < -90 ) set sState to ( sState + 2 ) endif if ( fPCAngle > 135 ) set sState to ( sState + 2 ) endif endif else if ( fRatio < -1 ) if ( fPCAngle < 0 ) if ( fPCAngle > -135 ) set sState to ( sState + 2 ) endif endif else if ( fPCAngle < 45 ) if ( fPCAngle > -90 ) set sState to ( sState + 2 ) endif endif endif endif else if ( fdy > 0 ) if ( fRatio < -1 ) if ( fPCAngle > 45 ) set sState to ( sState + 2 ) endif else if ( fPCAngle > 90 ) set sState to ( sState + 2 ) endif if ( fPCAngle < -135 ) set sState to ( sState + 2 ) endif endif else if ( fRatio > 1 ) if ( fPCAngle > 0 ) if ( fPCAngle < 135 ) set sState to ( sState + 2 ) endif endif else if ( fPCAngle > -35 ) if ( fPCAngle < 90 ) set sState to ( sState + 2 ) endif endif endif endif endif endif if ( sState == 3 ) ; MessageBox "Включено" Enable ModCurrentHealth, 10000 ModCurrentFatigue, 10000 ModCurrentMagicka, 10000 endif if ( sState == 4 ) ; MessageBox "Выключено" Disable endif endif if ( sHunter == 1 ) return endif if ( done == -1 ) return endif if ( done == 2 ) ;check for PC NO LONGER a Berne Vampire if ( player->GetSpell "Vampire Berne Specials" != 1 ) setfight 90 setdisposition 20 set done to -1 endif endif if ( done == 0 ) AddSpell, "Vampire Blood Berne" ;this is the blood disease AddSpell, "Vampire Attributes" AddSpell, "Vampire Skills" AddSpell, "Vampire Immunities" AddSpell, "vampire new ability" AddSpell, "Vampire Touch" AddSpell, "Vampire Berne Specials" ModRestoration 75 ;check for PC as a Berne Vampire if ( player->GetSpell "Vampire Berne Specials" == 1 ) if ( GetTarget, Player == 1 ) StopCombat endif setfight 30 set done to 2 elseif ( player->GetSpell "Vampire Berne Specials" != 1 ) if ( fightset == 0 ) setfight 90 setdisposition 20 set fightset to 1 endif endif set done to 2 endif end[/buspoiler] 3.Стражники атакуют бандитов[buspoiler]begin mca_guards_all short helping if ( MenuMode == 1 ) Return endif if ( GetCurrentAiPackage == -1 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 elseif ( GetCurrentAiPackage == 2 ) if ( CellChanged == 1 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 endif endif if ( MCA_FightingBandits > 0 ) if ( helping != 1 ) AiEscort, "player" 0 0 0 0 set helping to 1 endif endif if ( helping == 1 ) if ( MCA_FightingBandits == 0 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 2 endif endif end[/buspoiler] Подскажите пожалуйста как сделать так, чтоб стражники атаковали не только бандитов а и вампиров или, чтоб стражники не штрафовали меня после убийства вампира, а то есть такое дело, ,я понимаю, что можно просто поменять скрипт вампирам, но после этого не будет возможности от них заразиться.Заранее благодарю.
  18. Вот полный текст[buspoiler]begin mca_guards_all short environmentchecked short willstay short canbedeleted short helping short noidle short nohello if ( MenuMode == 1 ) Return endif if ( GetCurrentAiPackage == -1 ) AiWander, 2000, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 elseif ( GetCurrentAiPackage == 2 ) if ( CellChanged == 1 ) AiWander, 2000, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 endif endif if ( MCA_FightingBandits > 0 ) if ( helping != 1 ) AiEscort, "player" 0 0 0 0 set helping to 1 endif endif if ( helping == 1 ) if ( MCA_FightingBandits == 0 ) AiWander, 2000, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 2 endif endif if ( GetInterior == 0 ) if ( canbedeleted == 0 ) if ( GetDistance, "player" < 500 ) set canbedeleted to 1 endif endif endif if ( CellChanged == 1 ) if ( GetInterior == 1 ) set environmentchecked to 0 elseif ( canbedeleted == 1 ) if ( GetDistance, "player" > 3000 ) Disable endif endif endif if ( GetDisabled == 1 ) SetDelete, 1 endif if ( environmentchecked == 1 ) Return endif set willstay to Random, 5 if ( willstay == 0 ) Disable Return elseif ( GetInterior == 1 ) aiwander, 0, 5, 0, 60, 20, 10, 10, 0, 0, 0, 0 set environmentchecked to 1 Return endif set environmentchecked to 1 end[/buspoiler]
  19. Вообщем переделывал я этот плагин на свой лад так, чтоб стражники кидались на бандитов всех мастей и вампиров (естественно вампирам я поставил бандитский скрипт, стражникам mca_guard_all), все бы хорошо, вот только почему то стража хлаалу реагирует на скрипт, а имперские ни в какую, зависит ли это только от скрипта или тут в другом проблема?
  20. У меня есть вопрос относительно скрипта mca_guard_all из плагина MCA 5.2, может кто знает, верхний блок[buspoiler]begin mca_guards_all short environmentchecked short willstay short canbedeleted short helping short noidle short nohello if ( MenuMode == 1 ) Return endif if ( GetCurrentAiPackage == -1 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 elseif ( GetCurrentAiPackage == 2 ) if ( CellChanged == 1 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 0 endif endif if ( MCA_FightingBandits > 0 ) if ( helping != 1 ) AiEscort, "player" 0 0 0 0 set helping to 1 endif endif if ( helping == 1 ) if ( MCA_FightingBandits == 0 ) AiWander, 256, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20 set helping to 2 endif endif[/buspoiler] я так понял, заставляет стражу кидаться на бандитов, а вот нижний[buspoiler]if ( GetInterior == 0 ) if ( canbedeleted == 0 ) if ( GetDistance, "player" < 500 ) set canbedeleted to 1 endif endif endif if ( CellChanged == 1 ) if ( GetInterior == 1 ) set environmentchecked to 0 elseif ( canbedeleted == 1 ) if ( GetDistance, "player" > 3000 ) Disable endif endif endif if ( GetDisabled == 1 ) SetDelete, 1 endif if ( environmentchecked == 1 ) Return endif set willstay to Random, 5 if ( willstay == 0 ) Disable Return elseif ( GetInterior == 1 ) aiwander, 0, 5, 0, 60, 20, 10, 10, 0, 0, 0, 0 set environmentchecked to 1 Return endif set environmentchecked to 1 [/buspoiler] хотелось бы знать, что здесь, помогите пожалуйста, хоть приблизительно рассказать о чем тут речь идет, я в скриптах вообще левый.
  21. Подскажите пожалуйста, что значит эта строчка AiWander, 2000, 5, 0, 60, 20, 20, 20, 0, 0, 0, 20
  22. Помогите пожалуйста найти полный архив плагина, better heads, а то при запуске игры ругается что не находит bloodmoon addon.cel
  23. Интересно что за плагин такой, можно ссылочку?
  24. Помогите со скриптом пожалуйста, нужно, чтобы уличный фонарь зажигался вечером и гас утром и чтоб его можно было поднимать, опускать и забирать в инвентарь, благодарю за помощь.
  25. Выбираешь Free потом проходишь коротенькую регистрацию и огонь
×
×
  • Создать...