Torment: Tides of Numenera

Кто смог настроить кривые кетайские геймпады под Нуменеру? Что юзали? x360ce?
Эта сволочь motioninjoy не работает больше (сервер выключен), а так он эмульгировал все. Теперь приходится юзать 360се.

 

@Timur зачем? Что б на телевизоре играть? Имхо не тот тип игры, который хорошо под это подходит. Тем более с геймпадом, извращение какое-то

 

@LostSenSS, мультиплатформа же, почему ей не играться на геймпаде??

 

Я в курсе, что оно выходило на консолях. Но там её специально допилили под тамошнее управление, насколько мне известно. Вплоть до изменения интерфейса.
И в любом случае, моё замечание это не снимает.

 

@LostSenSS, я думал, что при подключении геймпада и тут интерфейс меняется, как в нормальных играх

 

Так и есть - два совершенно разных GUI и играть в писишную на геймпаде - то ещё извращение.

--- добавлено 29 дек 2017, предыдущее сообщение размещено: 29 дек 2017 ---

Например? Примитив какой-нибудь?

 

Ой, сразу pc only налетели Divinity: Original Sin сойдёт?

 

@Дарк Шнайдер, орижинал син казаульность! (На самом деле нет)

 

У меня монитора нет, компьютер подключен к тв. Дивинити вполне играется на паде, почему бы не попробовать с Торментом. Но я так понял она на юнити? Там всегда проблема с не 360 падами.

 

Разве что в случае ЕЕ (с натяжкой), а оригинал тоже был на геймпаде дном, так что это исключение, а не ряд "нормальных игр" и для CRPG нормой так и осталась клавомышь.

Offtop

P.S. А если отвлечься от управления на геймпадах, то обе DOS, конечно, говно, а не CRPG.

P.P.S. Всех с наступающим!

 

воу. А что с ними не так?

 

Вот эта штука с выбором поинтов для "усилия" и процентами... Они совсем наркоманы? Эта несуразица должна была умереть в начале 90-х. Слава б-гу у меня ума хватило им не давать денег на кикстартере.

 

@nilegio, а что не так с системой лута?

 

@nilegio, так а как иначе? Крафт же. Банки всех видов, гранаты, стрелы, свитки писать, книги писать, крафт рун, энчант брони, оружия и т.д. - если это все покупать, то опупеешь же.

 

Брат, нет же там такого. Крафт/лут система та же, что и в первом Диване ОС. Только крафт пух и брони понерфили.

 

https://gabestore.ru/game/torment-tides-of-numenera 90% если кто ещё хочет урвать

 

В релизной версии инта проверялась 518 раз, сила - 196, скорость - 171.

Тайды уже в финальной версии проверялись 252 раза (в релизной 246) в 65 диалогах. Проверяемые тайды в разрезе диалогов для финальной версии игры (по именам диалогов понятно где это по игре):

клац

a1101_aligern_and_callistege:
Blue
Silver
Blue
Silver
a2101_beleazar:
Silver
a2101_excited_man:
Red
Red
a2101_horrified_man:
Indigo
Indigo
a2101_intrigued_woman:
Blue
Blue
a2101_philethis:
Blue
Red
Indigo
Gold
Silver
a2101_prata:
Gold
a2101_unmoved_woman:
Silver
Silver
a2201_avina:
Blue
a2201_jernaugh:
Indigo
a2201_mother_temaz:
Gold
a2201_piquo:
Silver
Silver
a2201_zebb:
Gold
Red
Gold
Red
Gold
Red
Gold
Red
Red
Gold
Red
Gold
a2211_almas:
Indigo
Indigo
a2211_clarion:
Red
Red
a2211_theboros:
Silver
Silver
a2301_fulsome:
Indigo
Indigo
a2301_mechela:
Blue
a2301_peliai:
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
Silver
a2301_tarnish:
Gold
a2301_the_master_artisan:
Red
a2311_imbitu:
Gold
Gold
a2311_mallet:
Silver
a2501_tranquility:
Gold
a2601_alcen_perie:
Gold
a2601_sigyn_captain_of_levies:
Indigo
a2621_salimeri:
Blue
a2622_qorro_notwounded:
Red
a2622_qorro_wounded:
Red
a3101_klinkar:
Red
Red
Red
Red
b3101_bericael_brunna:
Red
Silver
b3101_hidden_memorialists:
Gold
b3101_ronos_caisul:
Silver
b3111_talira_kyo:
Gold
Indigo
b3121_silver:
Blue
Silver
Blue
Silver
b3301_aadiriis:
Red
Gold
Red
Silver
Silver
Gold
c4101_brusca:
Blue
Gold
Silver
Red
c4101_qianne_revised:
Red
Red
c4121_observant_speck:
Silver
c4131_ioxu:
Blue
c4211_artaglio:
Red
Silver
Red
Silver
Red
Silver
Silver
Red
c4211_demeray_and_obervich:
Silver
Blue
c4211_sheen:
Red
Blue
c4221_murden_chief:
Silver
Indigo
Indigo
c4221_skoura:
Blue
Red
c4301_delny:
Silver
Silver
c4301_gar_koto:
Indigo
Indigo
Indigo
c4301_herja:
Indigo
Silver
Indigo
Silver
Indigo
Silver
c4411_herja:
Silver
Silver
Indigo
Indigo
c4501_memovira:
Gold
Blue
Indigo
c6501_final_conversation:
Blue
Red
Indigo
Gold
Silver
Gold
None
companion_callistege_multistage:
Blue
Blue
companion_callistege_stage4:
Blue
Blue
companion_oom_multistage:
None
Blue
Red
Indigo
Gold
Silver
global_game_over:
Blue
Red
Blue
Indigo
Blue
Gold
Blue
Silver
Red
Indigo
Red
Gold
Red
Silver
Indigo
Gold
Indigo
Silver
Gold
Silver
Blue
Red
Indigo
Gold
Silver
Red
Blue
Indigo
Gold
Silver
Indigo
Blue
Red
Gold
Silver
Gold
Blue
Red
Indigo
Silver
Silver
Blue
Red
Indigo
Gold
None
item_souloftheforgotten:
Gold
Blue
mere_g1_kholnvillage_v3:
Gold
Gold
Gold
mere_gs2_oasismere:
Gold
mere_ri1_endlessbattlemere:
Indigo
Indigo
Indigo
Indigo
Indigo
Indigo
Red
Indigo
Indigo
Indigo
Indigo
Indigo
Red
test_end_slides:
None
None
Blue
Red
Indigo
Gold
Silver
tidenodetest:
None
None
Blue
Red
Indigo
Gold
Silver
x6071_cnpcfathom_village_matkina:
Gold
Gold
x6081_cnpcfathom_oasis_mazzof:
Blue
Blue
x6131_fathom13_endgame_thespecter:
Blue
Blue
Silver
x6132_sorrow:
Blue
Silver
Blue
Gold
Red
Gold
Indigo
Silver
Gold
None
Blue
Red
Indigo
Gold
Silver
Gold

Silver 63
Red 47
Indigo 47
Gold 46
Blue 41
None 8

Релизный код по получению ачивок и прогрессу (по именам переменных простым поиском можно найти в диалоговых файлах игры, что и где именно из значений вешается):

клац

Private Sub CheckForCharacterLevelAchievements(ByVal eventinfo As EventInfo_MidTierAdvancementComplete)
If (eventinfo <> Nothing) Then
If Object.op_Equality(eventinfo.selectedCharacter, Nothing) Then
End If
Return
End If
If Object.op_Equality(eventinfo.selectedCharacter.get_gameObject 0, GameState.s_playerCharacter.get_gameObject()) Then
If (eventinfo.selectedCharacter.Tier = 4) Then
If (eventinfo.selectedCharacter.MidTier = 4) Then
Me.GiveAchievement(Achievement.LimitsOfHumanCapacity)
End If
End If
End If
End Sub

Private Sub CheckForGlobalVariableAchievements(ByVal eventinfo As EventInfo_GlobalVariableChanged)
Dim num1 As Integer
Dim num2 As Integer
Dim variables1 As GlobalVariables
variables1 = GlobalVariables.Instance
If Not Object.op_Equality(variables1, Nothing) Then
If (eventinfo = Nothing) Then
End If
Return
End If
If (eventinfo.globalString = "x1131_Falling_Splat") Then
If (variables1.GetVariable("x1131_Falling_Splat") = 1) Then
Me.GiveAchievement(Achievement.TerminalVelocity)
End If
End If
If (eventinfo.globalString = "G_ZoneA_KholnVillageMereCompleted") Then
If (variables1.GetVariable("G_ZoneA_KholnVillageMereCompleted" = 1) Then
Me.GiveAchievement(Achievement.LiveAnotherLife)
End If
End If
If (eventinfo.globalString = "x1511_ActivatedResonanceChamber") Then
If (variables1.GetVariable("x1511_ActivatedResonanceChamber"& #41; = 1) Then
Me.GiveAchievement(Achievement.CastoffsFate)
End If
End If
If (eventinfo.globalString = "x6081_CNPCFathom_Oasis_Tybir_And_Auvigne_Outcome") Then
If (variables1.GetVariable("x6081_CNPCFathom_Oasis_Tybir_And_Auvig ne_Outcome&a
mp;q
uot = 2) Then
Me.GiveAchievement(Achievement.LoveRestored)
End If
End If
If (eventinfo.globalString = "Rhin_Fate") Then
If (variables1.GetVariable("Rhin_Fate") <> 2) Then
If (variables1.GetVariable("Rhin_Fate") = 3) Then
End If
Me.GiveAchievement(Achievement.GoingHome)
End If
End If
If (eventinfo.globalString = "Rhin_Fate") Then
If (variables1.GetVariable("Rhin_Fate") = 4) Then
Me.GiveAchievement(Achievement.ItsForTheBest)
End If
End If
If (eventinfo.globalString = "b3101_KlinKar_Resolution") Then
If (variables1.GetVariable("b3101_KlinKar_Resolution") = 7) Then
Me.GiveAchievement(Achievement.AccidentalSavior)
End If
End If
If (eventinfo.globalString = "b3101_Minnim_NeoState") Then
If (variables1.GetVariable("b3101_Minnim_NeoState") = 2) Then
Me.GiveAchievement(Achievement.TransdimensionalMidwife)
End If
End If
If (eventinfo.globalString = "c4101_CotyState") Then
If (variables1.GetVariable("c4101_CotyState") = 1) Then
Me.GiveAchievement(Achievement.PrivateProperty)
End If
End If
If Not (eventinfo.globalString = "a2101_CultThinksPCisTCG") Then
If (eventinfo.globalString = "a2101_CultDistrustsPC") Then
End If
If (variables1.GetVariable("a2101_CultThinksPCisTCG") = 1) Then
If (variables1.GetVariable("a2101_CultDistrustsPC") = Nothing) Then
Me.GiveAchievement(Achievement.ThisIsMyCult)
End If
End If
End If
If (eventinfo.globalString = "b3101_TombsReadCounter") Then
If (variables1.GetVariable("b3101_TombsReadCounter") >= 50) Then
Me.GiveAchievement(Achievement.KnowledgeSeeker)
End If
End If
If (eventinfo.globalString = "b3141_EndlessGateClosed") Then
If (variables1.GetVariable("b3141_EndlessGateClosed") = 1) Then
Me.GiveAchievement(Achievement.ValleysHero)
End If
End If
If Not (eventinfo.globalString = "a2201_InstalledClawedGauntlet") Then
If Not (eventinfo.globalString = "a2201_InstalledJaggedMemory") Then
If Not (eventinfo.globalString = "a2201_InstalledEncroachingDarkness") Then
If Not (eventinfo.globalString = "a2201_InstalledBloodNanites") Then
If Not (eventinfo.globalString = "a2201_InstalledNumeneraAnalyzer") Then
If (eventinfo.globalString = "a2201_InstalledArtificialEyeball") Then
End If
End If
End If
End If
End If
If (variables1.GetVariable("a2201_InstalledClawedGauntlet" 1; = 1) Then
If (variables1.GetVariable("a2201_InstalledJaggedMemory") = 1) Then
If (variables1.GetVariable("a2201_InstalledEncroachingDarkness&quo t = 1) Then
If (variables1.GetVariable("a2201_InstalledBloodNanites") = 1) Then
If (variables1.GetVariable("a2201_InstalledNumeneraAnalyzer"& #41; = 1) Then
If (variables1.GetVariable("a2201_InstalledArtificialEyeball" ) = 1) Then
Me.GiveAchievement(Achievement.IClankWhenIWalk)
End If
End If
End If
End If
End If
End If
End If
If (eventinfo.globalString = "c4101_KilledWaitsForPrey") Then
If (variables1.GetVariable("c4101_KilledWaitsForPrey") = 1) Then
Me.GiveAchievement(Achievement.WarMachine)
End If
End If
If (eventinfo.globalString = "x6131_Fathom13_EndGame_MergeWithSpecter") Then
If (variables1.GetVariable("x6131_Fathom13_EndGame_MergeWithSpecte r") = 1) Then
Me.GiveAchievement(Achievement.AGodInHumanSkin)
End If
End If
If (eventinfo.globalString = "Quest_LostShepherd_State") Then
If (variables1.GetVariable("Quest_LostShepherd_State") = 4) Then
Me.GiveAchievement(Achievement.TheDyingLight)
End If
End If
If Not (eventinfo.globalString = "G_AligernTCGCounter") Then
If (eventinfo.globalString = "G_AttitudeAligern") Then
End If
If (variables1.GetVariable("G_AligernTCGCounter") > 8) Then
If Conditionals.IsAttitude(Companions.Aligern, Operator.GreaterThanOrEqualTo, AttitudeRanges.Love) Then
Me.GiveAchievement(Achievement.KeepYourFriendsClose)
End If
End If
End If
If (eventinfo.globalString = "G_AligernTCGCounter") Then
If (variables1.GetVariable("G_AligernTCGCounter") > 8) Then
If (variables1.GetVariable("Aligern_TalkedAboutBeingTCG") = Nothing) Then
If Conditionals.IsInParty(Companions.Aligern) Then
variables1.SetVariable("Aligern_WantsToTalk_AboutBeingTCG&quo t;, 1)
Scripts.SetWantsToTalk(Companions.Aligern, True)
End If
End If
End If
End If
If (eventinfo.globalString = "a2101_Jherem_FromThePast") Then
If (variables1.GetVariable("a2101_Jherem_FromThePast") = 1) Then
Me.GiveAchievement(Achievement.ANewHome)
End If
End If
If (eventinfo.globalString = "G_GameCompleted") Then
If (variables1.GetVariable("G_GameCompleted") = 1) Then
Me.GiveAchievement(Achievement.Legacy)
If (variables1.GetVariable("Achievement_PriestRestored") > 0) Then
Me.GiveAchievement(Achievement.PriestRestored)
End If
If (variables1.GetVariable("Rhin_EndGameDecision") <> 1) Then
If (variables1.GetVariable("Rhin_EndGameDecision") <> 2) Then
If (variables1.GetVariable("Rhin_EndGameDecision") <> 3) Then
If (variables1.GetVariable("Rhin_EndGameDecision") = 5) Then
End If
End If
End If
Me.GiveAchievement(Achievement.ANewFamily)
End If
If (variables1.GetVariable("ExtEp_NewMemovira") = 3) Then
Me.GiveAchievement(Achievement.Successor)
End If
End If
End If
If (eventinfo.globalString = "Achievement_PriestRestored") Then
If (variables1.GetVariable("Achievement_PriestRestored") > 0) Then
Me.GiveAchievement(Achievement.PriestRestored)
End If
End If
If (eventinfo.globalString = "G_PCFedDendra") Then
If (variables1.GetVariable("G_PCFedDendra") = 1) Then
Me.GiveAchievement(Achievement.JustATaste)
End If
End If
If (eventinfo.globalString = "b3121_BringingChoiPeace") Then
If (variables1.GetVariable("b3121_BringingChoiPeace") = 3) Then
Me.GiveAchievement(Achievement.PeaceBringer)
End If
End If
If (eventinfo.globalString = "c4421_BondedWithBloom") Then
If (variables1.GetVariable("c4421_BondedWithBloom") = 2) Then
Me.GiveAchievement(Achievement.Memovira)
End If
End If
If Not (eventinfo.globalString = "DiedDrinkingCourtyardWellWater") Then
If (eventinfo.globalString = "DiedDrinkingVastInteriorWellWater") Then
End If
If (variables1.GetVariable("DiedDrinkingCourtyardWellWater"&# 41; <> 1) Then
If (variables1.GetVariable("DiedDrinkingVastInteriorWellWater" = 1) Then
End If
Me.GiveAchievement(Achievement.DeathWish)
End If
End If
If (eventinfo.globalString = "Callistege_Ascended") Then
If (variables1.GetVariable("Callistege_Ascended") = 2) Then
Me.GiveAchievement(Achievement.Ascended)
End If
End If
If (eventinfo.globalString = "Callistege_ConvincedToBeHuman") Then
If (variables1.GetVariable("Callistege_ConvincedToBeHuman" 1; = 1) Then
Me.GiveAchievement(Achievement.AllTooHuman)
End If
End If
If (eventinfo.globalString = "Quest_BelovedSlave_Resolution") Then
If (variables1.GetVariable("Quest_BelovedSlave_Resolution" 1; = 5) Then
Me.GiveAchievement(Achievement.BuckleDown)
End If
End If
If (eventinfo.globalString = "Matkina_IdealistEnding") Then
If (variables1.GetVariable("Matkina_IdealistEnding") = 1) Then
Me.GiveAchievement(Achievement.DangerousIdeals)
End If
End If
If (eventinfo.globalString = "a2621_Min_GreetingMasterArtisanState") Then
If (variables1.GetVariable("a2621_Min_GreetingMasterArtisanState&q uot = 3) Then
Me.GiveAchievement(Achievement.ForemenDontForget)
End If
End If
If Not (eventinfo.globalString = "Quest_EyesOfTheAdversary_TussleOutcome") Then
If (eventinfo.globalString = "Quest_EyesOfTheAdversary_Resolution") Then
End If
If (variables1.GetVariable("Quest_EyesOfTheAdversary_TussleOutcome ") <> 1) Then
If (variables1.GetVariable("Quest_EyesOfTheAdversary_Resolution&qu ot = 1) Then
End If
Me.GiveAchievement(Achievement.FreeMinds)
End If
End If
If (eventinfo.globalString = "b3121_Phoenix_Marker") Then
If (variables1.GetVariable("b3121_Phoenix_Marker") = 2) Then
Me.GiveAchievement(Achievement.RisingPhoenix)
End If
End If
If (eventinfo.globalString = "Quest_FamiliarSkies_Resolution") Then
If (variables1.GetVariable("Quest_FamiliarSkies_Resolution"&# 41; = 1) Then
Me.GiveAchievement(Achievement.HomeworldBound)
End If
End If
If (eventinfo.globalString = "Erritis_Freed") Then
If (variables1.GetVariable("Erritis_Freed") = 1) Then
Me.GiveAchievement(Achievement.BackToTheFarm)
End If
End If
If (eventinfo.globalString = "Achievement_ForKnowledge") Then
If (variables1.GetVariable("Achievement_ForKnowledge") = 1) Then
Me.GiveAchievement(Achievement.ForKnowledge)
End If
End If
If (eventinfo.globalString = "Achievement_InsideMan") Then
If (variables1.GetVariable("Achievement_InsideMan") = 1) Then
Me.GiveAchievement(Achievement.InsideMan)
End If
End If
If (eventinfo.globalString = "Achievement_Overload") Then
If (variables1.GetVariable("Achievement_Overload") = 1) Then
Me.GiveAchievement(Achievement.Overload)
End If
End If
If Not (eventinfo.globalString = "Achievement_MereExplorer") Then
If (eventinfo.globalString = "Achievement_MereExplorer_TotalCount") Then
End If
If (variables1.GetVariable("Achievement_MereExplorer") >= variables1.GetVariable("Achievement_MereExplorer_TotalCount"&# 41 Then
Me.GiveAchievement(Achievement.MereExplorer)
End If
End If
If (eventinfo.globalString = "Achievement_HallOfMemories") Then
If (variables1.GetVariable("Achievement_HallOfMemories") = 1) Then
Me.GiveAchievement(Achievement.HallOfMemories)
End If
End If
If (eventinfo.globalString = "Achievement_ANewBeginning") Then
If (variables1.GetVariable("Achievement_ANewBeginning") = 1) Then
Me.GiveAchievement(Achievement.ANewBeginning)
End If
End If
If (eventinfo.globalString = "Achievement_AlwaysInTouch") Then
If (variables1.GetVariable("Achievement_AlwaysInTouch") = 1) Then
Me.GiveAchievement(Achievement.AlwaysInTouch)
End If
End If
num1 = 0
If Conditionals.IsInParty(Companions.Aligern) Then
If (variables1.GetVariable("G_AttitudeAligern") >= 37) Then
num1 += 1
End If
End If
If Conditionals.IsInParty(Companions.Callistege) Then
If (variables1.GetVariable("G_AttitudeCallistege") >= 37) Then
num1 += 1
End If
End If
If Conditionals.IsInParty(Companions.Erritis) Then
If (variables1.GetVariable("G_AttitudeErritis") >= 37) Then
num1 += 1
End If
End If
If Conditionals.IsInParty(Companions.Matkina) Then
If (variables1.GetVariable("G_AttitudeMatkina") >= 37) Then
num1 += 1
End If
End If
If Not Conditionals.IsInParty(Companions.Rhin) Then
If Conditionals.IsInParty(Companions.AdultRhin) Then
End If
If (variables1.GetVariable("G_AttitudeRhin") >= 37) Then
num1 += 1
End If
End If
If Conditionals.IsInParty(Companions.Tybir) Then
If (variables1.GetVariable("G_AttitudeTybir") >= 37) Then
num1 += 1
End If
End If
If (num1 = 3) Then
Me.GiveAchievement(Achievement.Beloved)
End If
num2 = 0
If Conditionals.IsInParty(Companions.Aligern) Then
If (variables1.GetVariable("G_AttitudeAligern") <= 12) Then
num2 += 1
End If
End If
If Conditionals.IsInParty(Companions.Callistege) Then
If (variables1.GetVariable("G_AttitudeCallistege") <= 12) Then
num2 += 1
End If
End If
If Conditionals.IsInParty(Companions.Erritis) Then
If (variables1.GetVariable("G_AttitudeErritis") <= 12) Then
num2 += 1
End If
End If
If Conditionals.IsInParty(Companions.Matkina) Then
If (variables1.GetVariable("G_AttitudeMatkina") <= 12) Then
num2 += 1
End If
End If
If Not Conditionals.IsInParty(Companions.Rhin) Then
If Conditionals.IsInParty(Companions.AdultRhin) Then
End If
If (variables1.GetVariable("G_AttitudeRhin") <= 12) Then
num2 += 1
End If
End If
If Conditionals.IsInParty(Companions.Tybir) Then
If (variables1.GetVariable("G_AttitudeTybir") <= 12) Then
num2 += 1
End If
End If
If (num2 = 3) Then
Me.GiveAchievement(Achievement.Despised)
End If
End Sub

Private Sub CheckForSceneAchievements(ByVal eventinfo As EventInfo_SceneLoadedAndReady)
Dim scenes1 As Scenes
Dim type1 As MapType
scenes1 = Scenes.Instance
If Not Object.op_Equality(scenes1, Nothing) Then
If (eventinfo = Nothing) Then
End If
Return
End If
type1 = DirectCast(Enum.Parse(GetType(MapType), GameState.ApplicationLoadedLevelName), Integer)
If (type1 = MapType.ar_a1101_TheBrokenDome) Then
If scenes1.HasPartyVisitedScene(MapType.ar_a1101_TheBrokenDome) Then
Me.GiveAchievement(Achievement.NotDeadYet)
End If
End If
If (type1 <> MapType.ar_a2101_CircusMinor) Then
If (type1 <> MapType.ar_a2311_DendraOhurCave) Then
If (type1 = MapType.ar_a2621_OrderOfTruth) Then
End If
End If
If Not scenes1.HasPartyVisitedScene(MapType.ar_a2101_CircusMinor) Then
If Not scenes1.HasPartyVisitedScene(MapType.ar_a2311_DendraOhurCave) Then
If scenes1.HasPartyVisitedScene(MapType.ar_a2621_OrderOfTruth) Then
End If
End If
Me.GiveAchievement(Achievement.ACityCarvedInStone)
End If
End If
If (type1 = MapType.ar_a3101_ValleyOfDeadHeroes) Then
If scenes1.HasPartyVisitedScene(MapType.ar_a3101_ValleyOfDeadHeroes) ; Then
Me.GiveAchievement(Achievement.MonumentsToThePast)
End If
End If
If (type1 = MapType.ar_a3301_MielAvest) Then
If scenes1.HasPartyVisitedScene(MapType.ar_a3301_MielAvest) Then
Me.GiveAchievement(Achievement.Sanctuary)
End If
End If
If (type1 = MapType.ar_c4101_MemovirasCourtyard) Then
If scenes1.HasPartyVisitedScene(MapType.ar_c4101_MemovirasCourtyard) ; Then
Me.GiveAchievement(Achievement.BellyOfTheBeast)
End If
End If
If (type1 = MapType.ar_c4601_Ascension) Then
If scenes1.HasPartyVisitedScene(MapType.ar_c4601_Ascension) Then
Me.GiveAchievement(Achievement.CrystallineVista)
End If
End If
If (type1 = MapType.ar_c4222_MurdenTreasureTrove) Then
If scenes1.HasPartyVisitedScene(MapType.ar_c4222_MurdenTreasureTrove 1; Then
Me.GiveAchievement(Achievement.IllGottenGains)
End If
End If
End Sub

Private Sub CheckSceneProgress(ByVal eventinfo As EventInfo_SceneLoadedAndReady)
Dim num1 As Integer
Dim num2 As Integer
Dim type1 As MapType
Dim type2 As MapType
type1 = DirectCast(Enum.Parse(GetType(MapType), GameState.ApplicationLoadedLevelName), Integer)
num1 = IIf(Object.op_Inequality(GlobalVariables.Instance, Nothing), GlobalVariables.Instance.GetVariable("G_GameProgressPercent&quo t, 0)
num2 = 0
type2 = type1
Select Case (type2 - 86)
Case 1
If (type2 <> MapType.ar_a2321_CaveOfLastWords) Then
If (type2 <> MapType.ar_a2332_BuriedCrossroads) Then
If (type2 <> MapType.ar_c4101_MemovirasCourtyard) Then
If (type2 <> MapType.ar_c4421_BloomsHeartInterior) Then
If (type2 <> MapType.AR_X1511_TheCalm) Then
If (type2 <> MapType.ar_a1201_ReefOfFallenWorlds) Then
If (type2 <> MapType.ar_a3101_ValleyOfDeadHeroes) Then
If (type2 <> MapType.ar_a3301_MielAvest) Then
Goto Label_00F8:

Else
num2 = 5
Goto Label_00F8:

Else
num2 = 10
Goto Label_00F8:

Else
num2 = 20
Goto Label_00F8:

Else
num2 = 40
Goto Label_00F8:

Else
num2 = 50
Goto Label_00F8:

Else
num2 = 60
Goto Label_00F8:

Else
num2 = 75
Goto Label_00F8:

Else
If Conditionals.IsStoryStage(Operator.GreaterThanOrEqualTo, 6) Then
num2 = 85
End If
Goto Label_00F8:

Case 0
num2 = 95
Goto Label_00F8:

End Select
num2 = 100
Goto Label_00F8:
Label_00F8:
End If
End If
End If
End If
End If
End If
End If
End If
If (num2 > num1) Then
Me.SetGameProgress(num2)
End If
End Sub

Убийства в текстовых квестах тоже влияют на счётчик убийств. Счётчик убийств проверяется в четырёх блумовских диалогах.

Вроде всё, что интересовало в своё время. Игра - супер.