Why doesn’t this script work?

[Agnot2006]

Im not sure If I put the printcs in the right place, but if I did it could suggest that

Actor FormID 00000000, Name <no name> is the player ? I get this on every printc

 

SetConsoleOutputFilename >> 'Mytestcellscan2.txt'

Actor FormID 12004D05, Name Penny

Actor FormID 0002D9CF, Name Fawkes

Actor FormID 05005702, Name Griffon

Actor FormID 05005C24, Name Underworld Resident

Actor FormID 05005C25, Name Underworld Resident

Actor FormID 05005C26, Name Underworld Resident

Actor FormID 05005C27, Name Underworld Resident

Actor FormID 00000000, Name <no name>

 

; Cell Count
set rCurrentCell to GetParentCell       ;Get current cell this actor is in 
                
               if rCurrentCell == rPreviousCell 
                       set iDoScan to 0             ;No cell change 
               else 
                       		set iDoScan to 1           ;Enable scan 
                               Set aaPennyCellCount.SBTopicActors to 0 ; reset Quest Topic Variable 
                               Set aaPennyCellCount.SBTopicDead to 0 ; reset Quest Topic Variable 
                               Set aaPennyCellCount.SBTopicCreature to 0 ; reset Quest Topic Variable 
                               Set aaPennyCellCount.SBTopicFemales to 0 
                               Set aaPennyCellCount.SBTopicMales to 0 
						Set aaPennyCellCount.SBTopicMalesDead to 0
						Set aaPennyCellCount.SBTopicFemalesDead to 0
						Set aaPennyCellCount.SBTopicSupermutant to 0
						Set aaPennyCellCount.SBTopicSupermutantDead to 0
						Set aaPennyCellCount.SBTopicFeralGhoul to 0
						Set aaPennyCellCount.SBTopicFeralGhoulDead to 0
                               Set SBDeadCount to 0 
                               Set SBActorCount to 0 
                               Set SBCreatureCount to 0 
                               Set SBCreatureDead to 0
                               Set SBMales to 0 
                              Set SBMalesDead to 0 
                               Set SBFemale to 0
                               Set SBFemaleDead to 0
						Set SBSupermutant to 0
						Set SBSupermutantDead to 0
						Set SBFeralGhoul to 0
						Set SBFeralGhoulDead to 0
						Set aajeallesGirlsRepairSB.MaleTopicsaid to 0
						Set aajeallesGirlsRepairSB.MutieTopicsaid to 0
						Set aajeallesGirlsRepairSB.FeralGhoulTopicsaid to 0
               endif 
                
               if iDoScan 
                       If  IsInInterior == 1
                                       set rSBCurrentRef to GetFirstRef 200 0 0 ; Actors 
							printc "Actor FormID %i, Name %n", rSBCurrentRef, rSBCurrentRef

                                       Label 10 
                                       if rSBCurrentRef
                                                       If  rSBCurrentRef.GetIsSex Male == 1
												If rSBCurrentRef.getdead == 1 
														Set SBMalesDead to SBMalesDead +1
														Set SBDeadCount to SBDeadCount + 1 
												 else 
														Set SBMales to SBMales + 1
												endif
										endif
										If  rSBCurrentRef.GetIsSex Female == 1 
												If rSBCurrentRef.getdead == 1 
														Set SBFemaleDead to SBFemaleDead +1
														Set SBDeadCount to SBDeadCount + 1 
												 else 
														Set SBFemale to SBFemale + 1 
												endif
										endif
										If  rSBCurrentRef.GetIsCreature == 1 
												If rSBCurrentRef.GetIsCreatureType 4 == 1	;Supermutant 											
													If rSBCurrentRef.getdead == 1
														Set SBSupermutantDead to SBSupermutantDead + 1
														Set SBCreatureDead to SBCreatureDead +1
													else
														Set SBSupermutant to SBSupermutant +1
													endif
												endif
										endif
										If  rSBCurrentRef.GetIsCreature == 1 
												If rSBCurrentRef.GetIsCreatureType 5 == 1	; Feral Ghoul 												
													If rSBCurrentRef.getdead == 1
														Set SBFeralGhoulDead to SBFeralGhoulDead + 1
														Set SBCreatureDead to SBCreatureDead +1
													else
														Set SBFeralGhoul  to SBFeralGhoul +1
													endif
												endif
										endif

										If  rSBCurrentRef.GetIsCreature == 1
														If rSBCurrentRef.getdead == 1 																	
														Set SBCreatureDead to SBCreatureDead +1
														Set SBDeadCount to SBDeadCount + 1														 
												 else 
														Set SBCreatureCount to SBCreatureCount + 1 
												endif
										endif
                                                                    ; Do stuff with rSBCurrentRef 
											Set SBActorCount to SBActorCount + 1 
                                                       set rSBCurrentRef to Pencil01 ; Prevent apple bug 
                                                       set rSBCurrentRef to GetNextRef 
							printc "Actor FormID %i, Name %n", rSBCurrentRef, rSBCurrentRef

                                       Goto 10 
                                       endif 
                       endif 
				If  SBSupermutant > 0 && IsInInterior == 1    
                                       Set aaPennyCellCount.SBTopicSupermutant to SBSupermutant ; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicSupermutant to 0 ; Copy to 2ndQuest Topic Variable 
                       endif    
                          If  SBSupermutantDead > 0 && IsInInterior == 1    
                                       Set aaPennyCellCount.SBTopicSupermutantDead to SBSupermutantDead ; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicSupermutantDead to 0 ; Copy to 2ndQuest Topic Variable 
                       endif                 
                       If  SBFemale > 0 && IsInInterior == 1    
                                       Set aaPennyCellCount.SBTopicFemales to SBFemale ; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicFemales to 0 ; Copy to 2ndQuest Topic Variable 
                       endif 
 					If  SBFemaleDead > 0 && IsInInterior == 1    
                                       Set aaPennyCellCount.SBTopicFemalesDead to SBFemaleDead ; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicFemalesDead to 0 ; Copy to 2ndQuest Topic Variable 
                       endif 

                       If  SBMales > 0 && IsInInterior == 1     
                                       Set aaPennyCellCount.SBTopicMales to SBMales; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicMales to 0 ; Copy to 2ndQuest Topic Variable 
                       endif 
				If  SBMalesDead > 0 && IsInInterior == 1     
                                       Set aaPennyCellCount.SBTopicMalesDead to SBMalesDead ; Copy to 2ndQuest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicMalesDead to 0 ; Copy to 2ndQuest Topic Variable 
                       endif 

                       If  SBActorCount > 0 && IsInInterior == 1        
                                       Set aaPennyCellCount.SBTopicActors to SBActorCount ; Copy to Quest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicActors to 0 ; Copy to Quest Topic Variable 
                       endif 
                       If  SBCreatureCount > 0 && IsInInterior == 1     
                                       Set aaPennyCellCount.SBTopicCreature to SBCreatureCount ; Copy to Quest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicCreature to 0 ; Copy to Quest Topic Variable 
                       endif 
				If  SBCreatureDead > 0 && IsInInterior == 1     
                                       Set aaPennyCellCount.SBTopicCreatureDead to SBCreatureDead ; Copy to Quest Topic Variable 
                       else  
                                       Set aaPennyCellCount.SBTopicCreatureDead to 0 ; Copy to Quest Topic Variable 
                       endif 

                        
                       set rPreviousCell to rCurrentCell                       ;Setup for next cell change 
               endif 
; Cell Count End

[rickerhk]

The

Actor FormID 00000000, Name <no name>

 

is when GetNextRef has run out of refs to find, it returns zero. So the player doesn't appear at all. As a reference, the player would have shown as 00000014, and the name would have been the name you gave your character.

[Agnot2006]

Ok Thank You No Player counted.

 

Everything seems to be working fine now. My companion is detecting Mutants, FeralGhoul’s, and other Creatures and adjusting her conversations depending.

Soon I will add a faction detector for Raiders.

 

I want to thank You for all your patience and help

 

Agnot2006