Die Frage habe ich wohl verpasst, sorry. Bin immer noch zwischendurch am Werkeln und nächstens sollte eine neue Version WastelandWarrior kommen.Gibt es irgendetwas Neues zu WastelandWarriror?
Liegt das an der Mod oder anderen Umständen?PixelMurder schrieb:die Kämpfe machen mir kaum noch Spass, sodass ich zum Abkürzen mit meinem Entwickler-Blaster ballere.
ref GroupRef1 ; Gruppen-Referenz
ref GroupRef2 ; Gruppen-Referenz
ref GroupRef3 ; Gruppen-Referenz
ref GroupRef4 ; Gruppen-Referenz
short GroupOut1 ; Gruppen-Anzahl
short GroupOut2 ; Gruppen-Anzahl
short GroupOut3 ; Gruppen-Anzahl
short GroupOut4 ; Gruppen-Anzahl
short Random ; Zufall
short Random1or2 ; 1 oder 2
short Random1 ; 1-3
short Random2 ; 3-5
short Random3 ; 5-7
short SpawnState ; Spawn-Status
short SpawnRate ; Rate
short PlayerLevel ; Level-Begrenzung Spawn
short IsNight ; Tag-Nacht
short IsLookout ; Region Lookout 0, 1
short SpawnTimer ; Interval-Steuerung
short SpawnCount ; Anzahl geladene Gegner
float PlayerDistance ; Abstand zum Player
short SpawnCap ; Obergrenze Spawn
short TimeStamp ; Reseten
short DisableMe ; Deaktivieren
Begin OnLoad
If wlwQuestSpawn.SpawnLocked == 0 && wlwQuest.EnemyRate > 0 && (SpawnState == 0 || GameDaysPassed > TimeStamp)
Set SpawnState To 1
Set SpawnTimer To 100
Set TimeStamp To GameDaysPassed + wlwQuest.CellRespawnDays
Set SpawnCap To wlwQuestSpawn.SpawnCap
EndIf
End
Begin GameMode
; Ueberwachung
If SpawnState == 1 && GetDisabled == 0
If SpawnTimer < 0
Set SpawnCount To GetActorsInHigh
Set PlayerDistance To GetDistance Player
If PlayerDistance > 500 && PlayerDistance < 10000 && SpawnCount < SpawnCap
Set SpawnState To 2
Else
If wlwDebugMode == 1
ShowMessage wlwInfoSpawnActivatorFailed PlayerDistance SpawnCount SpawnCap
EndIf
EndIf
Set SpawnTimer To 1400
Else
Set SpawnTimer To SpawnTimer - 1
EndIf
EndIf
; Gruppe waehlen
If SpawnState == 2
; Start-Werte
Set IsLookout To wlwQuestGeneric.IsRegionLookout
Set PlayerLevel To Player.GetLevel
If GetCurrentTime < 4 || GetCurrentTime > 22
Set IsNight To 1
Else
Set IsNight To 0
EndIf
; Gegner-Anzahlen ermitteln
Set SpawnRate To wlwQuest.EnemyRate
Set Random1 To 2 + (GetRandomPercent / 30)
If Random1 > SpawnRate
Set Random1 To SpawnRate
EndIf
Set Random2 To SpawnRate + (GetRandomPercent / 20)
If Random2 > (SpawnRate * 2)
Set Random2 To (SpawnRate * 2)
EndIf
Set Random3 To SpawnRate + (GetRandomPercent / 10)
If Random3 > (SpawnRate * 3)
Set Random3 To (SpawnRate * 3)
EndIf
Set Random1or2 To 1
If GetRandomPercent > 50
Set Random1or2 To 2
EndIf
Set GroupRef1 To CrRadRoach
Set GroupOut1 To 0
Set GroupRef2 To CrRadRoach
Set GroupOut2 To 0
Set GroupRef3 To CrRadRoach
Set GroupOut3 To 0
Set GroupRef4 To CrRadRoach
Set GroupOut4 To 0
; Gruppen
If GetIsId wlwActivatorAnimalToughMore
Set GroupRef1 To wlwSpawnAnimalTough
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorAntFireMore
Set GroupRef1 To wlwSpawnAntFire
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorDeathClawQueenOne
Set GroupRef1 To wlwDeathClawQueen
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnDeathClaw
Set GroupOut2 To 1 + Random1or2
Set GroupRef3 To wlwDeathClawWarrior
Set GroupOut3 To Random1or2
ElseIf GetIsId wlwActivatorRadRoachMotherOne
Set GroupRef1 To wlwRadroachMother
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRadRoachPest
Set GroupRef1 To wlwRadroachWarrior
Set GroupOut1 To Random1
Set GroupRef2 To CrRadroach
Set GroupOut2 To Random2
ElseIf GetIsId wlwActivatorScorpionMore
Set GroupRef1 To wlwSpawnScorpion
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorSpiderMineMore
Set GroupRef1 To wlwSpiderMine
Set GroupOut1 To Random2
ElseIf GetIsId wlwActivatorYaoGuaiMore
Set GroupRef1 To wlwYaoGuaiMother
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnYaoGuai
Set GroupOut2 To Random1
ElseIf GetIsId wlwActivatorMireLurkMore
If GetInCell NukaColaPlant01 || GetInCell NukaColaPlant02 || GetInCell NukaColaPlant03
Set GroupRef1 To wlwNukaLurkQueen
Set GroupOut1 To 1
ElseIf IsLookout == 1
Set GroupRef1 To wlwSpawnSwampLurk
Set GroupOut1 To Random1
Else
Set GroupRef1 To wlwSpawnMirelurk
Set GroupOut1 To Random1
EndIf
ElseIf GetIsId wlwActivatorGhoulRandomMore
If IsLookout == 0
If IsNight == 0
Set GroupRef1 To wlwSpawnGhoulRandom
Set GroupOut1 To Random1
Else
Set GroupRef1 To wlwSpawnGhoulNight
Set GroupOut1 To Random1
EndIf
Else
Set GroupRef1 To wlwSpawnGhoulSwamp
Set GroupOut1 To Random1
EndIf
ElseIf GetIsId wlwActivatorGeorgeWBush
Set GroupRef1 To wlwUndeadGeorgeWBush
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorChineseGhoulMore
Set GroupRef1 To wlwSpawnChineseGhoulSoldier
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorMutantBigGunOne
Set GroupRef1 To wlwSpawnMutantBigGun
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorMutantGunOne
Set GroupRef1 To wlwSpawnMutantGun
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorMutantMeleeOne
Set GroupRef1 To wlwSpawnMutantMelee
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorMutantRandomMore
Set GroupRef1 To wlwSpawnMutantRandom
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorMutantRandomOne
Set GroupRef1 To wlwSpawnMutantRandom
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorOverlordRandomOne
Set GroupRef1 To wlwSpawnMutantOverlord
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorBehemothAndMutants
Set GroupRef1 To wlwSpawnMutantBehemoth
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnMutantRandom
Set GroupOut2 To Random1
ElseIf GetIsId wlwActivatorOverlordMonsterAndMutants
Set GroupRef1 To wlwMutantOverlordMonster
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnMutantRandom
Set GroupOut2 To Random1
ElseIf GetIsId wlwActivatorTalonRandomMore
Set GroupRef1 To wlwSpawnTalonRandom
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorTalonFemaleRandomMore
Set GroupRef1 To wlwSpawnTalonFemaleRandom
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorTribalDeathClawFriendlyMore
If wlwQuestSpawn.PointLookoutCathedralEnabled == 1 && wlwQuest.ModeLookout == 1
Set GroupRef1 To wlwSpawnTribalUnarmedFriendly
Set GroupOut1 To Random1
Set GroupRef2 To wlwSpawnDeathClawTribalFriendly
Set GroupOut2 To Random1
Set GroupRef3 To wlwDeathClawTribalBaby
Set GroupOut3 To Random1
Set GroupRef4 To wlwDeathClawTribalMother
Set GroupOut4 To 1
EndIf
ElseIf GetIsId wlwActivatorTribalDog
Set GroupRef1 To wlwSpawnDogTribalFriendly
Set GroupOut1 To Random1or2 + 1
ElseIf GetIsId wlwActivatorTribalGuards
Set GroupRef1 To wlwSpawnTribalGuard
Set GroupOut1 To 2
ElseIf GetIsId wlwActivatorTribalDeathClawHostilMore
Set GroupRef1 To wlwSpawnTribalUnarmed
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorUndeadMore
Set GroupRef1 To wlwSpawnUndead
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorUndeadOne
Set GroupRef1 To wlwSpawnUndead
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRaiderAmazoneMore
Set GroupRef1 To wlwSpawnRaiderAmazone
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorRaiderFlamerOne
Set GroupRef1 To wlwSpawnRaiderFlamer
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRaiderHeavyOne
Set GroupRef1 To wlwSpawnRaiderHeavy
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRaiderPsychoOne
Set GroupRef1 To wlwSpawnRaiderPsycho
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRaiderSniperOne
Set GroupRef1 To wlwSpawnRaiderSniper
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRaiderRandomMore
Set GroupRef1 To wlwSpawnRaiderRandom
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorBrotherhoodRandomMore
Set GroupRef1 To wlwSpawnBrotherHood
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorOutcastRandomMore
Set GroupRef1 To wlwSpawnOutcast
Set GroupOut1 To Random1
ElseIf GetIsId wlwActivatorTalonHeavyOne
Set GroupRef1 To wlwSpawnTalonSpecialist
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRobotBoSOne
Set GroupRef1 To wlwSpawnRobotBoS
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRobotOutcastOne
Set GroupRef1 To wlwSpawnRobotOutcast
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorRobotTalonOne
Set GroupRef1 To wlwSpawnRobotTalon
Set GroupOut1 To 1
ElseIf GetIsId wlwActivatorDogTalonMore
Set GroupRef1 To wlwSpawnDogTalon
Set GroupOut1 To Random1or2
ElseIf GetIsId wlwActivatorDogRaiderMore
Set GroupRef1 To wlwSpawnDogRaider
Set GroupOut1 To Random1or2
ElseIf GetIsId wlwActivatorSwampLurkBogFamily
Set GroupRef1 To wlwSwampLurkQueenBog
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnSwampLurkBog
Set GroupOut2 To Random1
Set GroupRef3 To wlwSpawnSwampLurkBog
Set GroupOut3 To 2
ElseIf GetIsId wlwActivatorSwampLurkBogGuards
Set GroupRef1 To wlwSpawnSwampLurkBog
Set GroupOut1 To Random1or2
ElseIf GetIsId wlwActivatorPredatorFeed
If IsLookout == 1
If wlwQuestSpawn.PointLookoutCathedralEnabled == 1 && wlwQuest.ModeLookout == 1
Set GroupRef1 To wlwMoleRatNearDead
Set GroupOut1 To 1 + Random1or2
EndIf
Else
Set GroupRef1 To wlwMoleRatNearDead
Set GroupOut1 To 1 + Random1or2
EndIf
ElseIf GetIsId wlwActivatorReillySquad
Set GroupRef1 To wlwSpawnReillySpecialist
Set GroupOut1 To Random1or2
Set GroupRef2 To wlwSpawnReillyRandom
Set GroupOut2 To Random1
Set GroupRef3 To wlwSpawnDogReilly
Set GroupOut3 To 2
ElseIf GetIsId wlwActivatorReillySquadAfterQuest
If GetStage MS18 >= 50
Set GroupRef1 To wlwSpawnReillySpecialist
Set GroupOut1 To Random1or2
Set GroupRef2 To wlwSpawnReillyCamp
Set GroupOut2 To Random1
Set GroupRef3 To wlwSpawnDogReilly
Set GroupOut3 To 2
EndIf
; Spezieller Spawn Seward Square, Aktvator wird durch Vanilla enabled
ElseIf GetIsId wlwActivatorEnclaveSquad
Set GroupRef1 To wlwSpawnEnclaveSpecialist
Set GroupOut1 To 1
Set GroupRef2 To wlwSpawnEnclave
Set GroupOut2 To Random1or2
Set GroupRef3 To wlwSpawnRobotEnclave
Set GroupOut3 To 1
Else
If wlwDebugMode == 1
ShowMessage wlwInfoSpawnActivatorTypeFailed
EndIf
EndIf
Set SpawnState To 3
EndIf
; Gruppe spawnen
If SpawnState == 3
If GroupOut1 > 0
PlaceAtMe GroupRef1 GroupOut1
Set GroupOut1 To 0
EndIf
If GroupOut2 > 0
PlaceAtMe GroupRef2 GroupOut2
Set GroupOut2 To 0
EndIf
If GroupOut3 > 0
PlaceAtMe GroupRef3 GroupOut3
Set GroupOut3 To 0
EndIf
If GroupOut4 > 0
PlaceAtMe GroupRef4 GroupOut4
Set GroupOut4 To 0
EndIf
Set SpawnState To 4
If DisableMe == 1
Set DisableMe To 0
Disable
EndIf
EndIf
End
ref EnemyRef ; Zu spawnende Gegner
short Short1 ; Generische Variable
short InventoryChecked ; Ueberfluessige Items abnehmen
short SpawnState ; 0: SpawnLocked, 1: CanSpawn, 2: HasSpawned
short SpawnCount ; Anzahl geladene Gegner
short EnemyCount ; Anzahl zu spawnende Gegner
short EnemyType ; Fuer Ausgabe
short RandomFactor ; Zufallswert
float SpawnInterval ; Genereller Interval
short SpawnTimer ; Interval-Steuerung
float SpawnStep ; Steps zum naechsten Gegner
float PlayerDistance ; Abstand zum Player
short SpawnCap ; Obergrenze Spawn
short SpawnRate ; Rate
Begin OnLoad
If SpawnState == 0 && wlwQuestSpawn.SpawnLocked == 0 && wlwQuest.EnemyRate > 0
Set SpawnStep To 0.34
; Bei Bedarf Spawn verlangsamen
If GetInFaction wlwTypeRaiderFaction
Set SpawnStep To 0.21
ElseIf GetInFaction wlwTypeEnclaveFaction
Set SpawnStep To 0.21
EndIf
If wlwQuestSpawn.IntervalHuman > 1
Set wlwQuestSpawn.IntervalHuman To 0
Set SpawnState To 1
Set SpawnTimer To 6
Set SpawnRate To wlwQuest.EnemyRate
Set SpawnCap To wlwQuestSpawn.SpawnCap
Else
Set SpawnState To 4
Set wlwQuestSpawn.IntervalHuman To wlwQuestSpawn.IntervalHuman + SpawnStep
EndIf
EndIf
End
Begin GameMode
; Disabled-Check
If SpawnState != 4 && (GetDisabled == 1 || GetDead == 1)
Set SpawnState To 4
EndIf
; Spawn verzoegern
If SpawnState == 1
If SpawnTimer < 0
Set SpawnCount To GetActorsInHigh
Set PlayerDistance To GetDistance Player
If PlayerDistance > 600 && PlayerDistance < 11000 && SpawnCount < SpawnCap
Set SpawnState To 2
Else
If wlwDebugMode == 1
ShowMessage wlwInfoSpawnHumanFailed PlayerDistance SpawnCount SpawnCap
EndIf
EndIf
Set SpawnTimer To 2000
Else
Set SpawnTimer To SpawnTimer - 1
EndIf
EndIf
; Spawn ausloesen
If SpawnState == 2
Set RandomFactor To GetRandomPercent
Set EnemyCount To GetRandomPercent * SpawnRate / 99
If EnemyCount < (SpawnRate / 3)
Set EnemyCount To (SpawnRate / 3)
EndIf
If EnemyCount < 1
Set EnemyCount To 1
EndIf
Set EnemyType To 100 ; Gruppe nicht eruierbar
If GetInFaction wlwTypeGhoulRaiderFaction
Set EnemyRef To wlwSpawnGhoulRaider
Set EnemyType To 101
ElseIf GetInFaction wlwTypePittRaiderFaction
Set EnemyRef To wlwSpawnPittRaider
Set EnemyType To 102
If GetRandomPercent > 60
Set EnemyCount To 1
Else
Set EnemyCount To 0
EndIf
ElseIf GetInFaction wlwTypeRaiderFaction
Set EnemyRef To wlwSpawnRaiderRandom
Set EnemyType To 103
ElseIf GetInFaction wlwTypeSlaverFaction
Set EnemyRef To wlwSpawnSlaver
Set EnemyType To 104
ElseIf GetInFaction wlwTypeSlaveFaction
Set EnemyRef To wlwSpawnSlave
Set EnemyType To 105
ElseIf GetInFaction wlwTypeBanditFaction && wlwQuestGeneric.IsRegionLookout == 1
Set EnemyRef To wlwSpawnBanditLookout
Set EnemyType To 106
ElseIf GetInFaction wlwTypeBanditFaction && wlwQuestGeneric.IsRegionLookout == 0
Set EnemyRef To wlwSpawnBanditWasteland
Set EnemyType To 107
ElseIf GetInFaction wlwTypeTalonFaction
Set EnemyRef To wlwSpawnTalonRandom
Set EnemyType To 108
ElseIf GetInFaction wlwTypeBrotherhoodFaction
Set EnemyRef To wlwSpawnBrotherHood
Set EnemyType To 109
ElseIf GetInFaction wlwTypeEnclaveFaction
Set EnemyRef To wlwSpawnEnclave
Set EnemyType To 110
ElseIf GetInFaction wlwTypeOutcastFaction
Set EnemyRef To wlwSpawnOutcast
Set EnemyType To 111
ElseIf GetInFaction wlwTypeChineseGhoulFaction
Set EnemyRef To wlwSpawnChineseGhoulSoldier
Set EnemyType To 112
ElseIf GetInFaction wlwTypeUndeadFaction
Set EnemyRef To wlwSpawnUndead
Set EnemyType To 113
ElseIf GetInFaction wlwTypeTribalFaction
Set EnemyRef To wlwSpawnTribalRandom
Set EnemyType To 114
ElseIf GetInFaction wlwTypeWastelandGhoulFaction
Set EnemyRef To wlwSpawnWastelanderGhoul
Set EnemyType To 115
ElseIf GetInFaction wlwTypeWastelanderFaction
Set EnemyRef To wlwSpawnWastelander
Set EnemyType To 116
ElseIf GetInFaction wlwTypeRegulatorFaction
Set EnemyRef To wlwSpawnRegulator
Set EnemyType To 117
ElseIf GetInFaction wlwTypePittSlaveFaction
Set EnemyRef To wlwSpawnPittSlave
Set EnemyType To 118
If GetRandomPercent > 50
Set EnemyCount To 1
Else
Set EnemyCount To 0
EndIf
Else
Set EnemyCount To 0
EndIf
Set SpawnTimer To 0
Set SpawnState To 3
; Debug-Out
If wlwDebugMode == 1 && EnemyCount > 0
ShowMessage wlwEnemySpawnedHumanMsg EnemyType EnemyCount wlwQuest.EnemyRate SpawnCount
EndIf
EndIf
; Zeitverzoegert spawnen
If SpawnState == 3
If EnemyCount > 0
If SpawnTimer > 2
PlaceAtMe EnemyRef 1
Set EnemyCount To EnemyCount - 1
Set SpawnTimer To 0
Else
Set SpawnTimer To SpawnTimer + GetSecondsPassed
EndIf
Else
Set SpawnState To 4
EndIf
EndIf
End