Made Circle only show up in Magic game

glife.qproj

@@ -1104,6 +1104,7 @@
 		<Location name="spellTeleport"/>
 		<Location name="treeCircle"/>
 		<Location name="treeCircActs"/>
+		<Location name="treeCircEntry"/>
 	</Folder>
 	</Structure>
 </QGen-project>

locations/etoexhib.qsrc

@@ -215,12 +215,7 @@ if $ARGS[0] = 'pos6':
 		act 'Leave':gt 'dachi'
 	end
 
-	! Setup for teleport circle
-	if tpKnown['Village'] = 1:
-		act 'Enter the hidden circle of trees': gt 'treeCircle', 'Village'
-	else:
-		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'Village'
-	end
+	gs 'treeCircEntry', 'Village'
 end
 
 if $ARGS[0] = 'pos7':

locations/gadforest.qsrc

@@ -120,12 +120,7 @@ if $ARGS[0] = '1':
 		end
 	end
 
-	! Setup for teleport circle
-	if tpKnown['GadForest'] = 1:
-		act 'Enter the hidden circle of trees': gt 'treeCircle', 'GadForest'
-	else:
-		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'GadForest'
-	end
+	gs 'treeCircEntry', 'GadForest'
 
 	! can only be naked if successfully complete Mira gadforest_event, nude_event
 	if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):

locations/park.qsrc

@@ -84,12 +84,7 @@ if $ARGS[0] = 'start':
 
 	act 'Walk around the park (1:00)': gt 'parkdin'
 
-	! Setup for teleport circle
-	if tpKnown['CentralPark'] = 1:
-		act 'Enter the hidden circle of trees': gt 'treeCircle', 'CentralPark'
-	else:
-		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'CentralPark'
-	end
+	gs 'treeCircEntry', 'CentralPark'
 
 	if hour >= 10 and hour <= 22:
 		act 'Have some food in the cafe': minut += 5 & gt 'ParkKafe', 'start'

locations/placer_gskver.qsrc

@@ -148,12 +148,7 @@ end
 !_________________Change the date/nights, seasons. End.___________________________
 
 
-!Setup for teleport circle
-if tpKnown['PavlovskPark'] = 1:
-	act 'Enter the hidden circle of trees': gt 'treeCircle', 'PavlovskPark'
-else:
-	act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'PavlovskPark'
-end
+gs 'treeCircEntry', 'PavlovskPark'
 
 
 if soniaPS=5 and rand(1,10)=>9 and hour>14 and hour<20:

locations/treeCircEntry.qsrc

@@ -0,0 +1,17 @@
+#treeCircEntry
+! Use this to insert an Entry Point to the Tree Cicle
+!	ARGS[0] = the EntryPoint ID name from $tpLocations[]
+
+if MagikDostup = 0:
+
+	! Setup for teleport circle
+	if tpKnown[$ARGS[0]] = 1:
+		$EntryAction = "act 'Enter the hidden circle of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
+	else:
+		$EntryAction = "act 'Investigate a mysterious copse of trees': gt 'treeCircle', '<<$ARGS[0]>>'"
+	end
+	dynamic $EntryAction
+
+end
+
+--- treeCircEntry ---------------------------------