improve debug console

locations/obj_din.qsrc

@@ -2036,17 +2036,63 @@ if $ARGS[0] = 'emergency':
 	end
 end
 
-!!quick time changes from the object menu
-if $ARGS[0] = '-1 Hour':
-	hour -= 1
-	gs 'stat'
-	gt $loc, $loc_arg
+if $ARGS[0] = 'Reload':
+  gs 'stat'
+  gt $loc, $loc_arg
 end
 
-if $ARGS[0] = '+1 Hour':
-	hour += 1
-	gs 'stat'
-	gt $loc, $loc_arg
+if $ARGS[0] = 'Full restoration':
+	cumspclnt = 1
+	gs 'cum_cleanup'
+	cumspclnt = 7
+	gs 'cum_cleanup'
+
+	klismaday = daystart
+	klismaday1 = 1
+
+  gs 'sweat', 'deo'
+
+  pcs_health = healthmax 
+  pcs_willpwr = willpowermax 
+  if MagikDostup = 0: pcs_mana = manamax
+  pcs_sleep = 100 
+  pcs_stam = stammax 
+  pcs_mood = 100 
+  pcs_energy = 100 
+  pcs_hydra = 100 
+  pcs_sweat = 0 
+  pcs_breath = 1 
+  pcs_hairbsh = 1 
+  pcs_lipbalm = 100
+  pcs_makeup = 5
+  pcs_leghair = -10
+	pcs_pubes = shave_length
+  vidageday = 1080
+
+  pcs_skin = 100
+  pcs_teeth = -1
+
+  gs 'stat'
+end
+
+if $ARGS[0] = 'Go to hour':
+  gs 'stat'
+	$gt_hour_str = input ("Hour (between 0-72)?")
+  if $gt_hour_str ! '' and isnum($gt_hour_str) ! 0:
+    gt_hour = val($gt_hour_str)
+    if gt_hour >= 0 and gt_hour <= 72: 
+      minut += 60*(gt_hour - (hour+1)) + (60-minut)
+	    gs 'stat'
+    end
+  end
+end
+
+if $ARGS[0] = 'Go to minute':
+	$gt_minut_str = input ("Minute?")
+  if $gt_minut_str ! '' and isnum($gt_minut_str) ! 0:
+    minut = val($gt_minut_str)
+	  gs 'stat'
+  end
 end
 
 !! Objects window debug
@@ -2057,30 +2103,64 @@ end
 if $ARGS[0] = 'old':
 	killobj
 	oldobjmenu = 1
-	addobj '<center>Refresh</center>'
-	if cheatConsole = 0: addobj '<center>Console</center>'
-	addobj '<center>Toggle Debug Variables</center>'
-	addobj '<center>Add Debug Variable</center>'
-	addobj '<center>Delete Debug Variable</center>'
-	addobj '<center>Switch HTML</center>'
 	if cheatTime = 1:
-		addobj '<center>-1 Hour</center>'
-		addobj '<center>+1 Hour</center>'
-	end
-	addobj ''
-	addobj '<center><font color = red>Emergency</font></center>'
-	addobj ''
-	if debug_warning_closed = 0:
-		addobj '<center>This window is for debug only and can be safely closed.</center>'
-		addobj '<center>Remove debug info</center>'
+		addobj '<center>Go to hour</center>'
+		addobj '<center>Go to minute</center>'
+		addobj '<center>Reload location</center>'
+		addobj ''
 	end
+	if cheatConsole = 0: addobj '<center>Console</center>'
+	addobj '<center>Refresh</center>'
 	if objectWindowDebug = 1:
-		addobj '$curloc: <<$curloc>>'
-		addobj '$loc: <<$loc>>'
-		addobj '$loc_arg: <<$loc_arg>>'
-		addobj '$location_type: <<$location_type>>'
-		addobj 'week: <<week>>'
-		addobj 'daystart: <<daystart>>'
+		addobj ''
+		addobj '<center>Basic Info</center>'
+		if show_basic_info ! 0:
+			addobj '$curloc: <<$curloc>>'
+			addobj '$loc: <<$loc>>'
+			addobj '$loc_arg: <<$loc_arg>>'
+			addobj '$location_type: <<$location_type>>'
+			addobj 'week: <<week>>'
+			addobj 'daystart: <<daystart>>'
+			addobj 'sunWeather: <<sunWeather>>'
+			addobj 'alko: <<alko>>'
+			addobj 'money: <<money>>'
+			addobj 'karta: <<karta>>'
+		end
+		addobj '<center>Body Info</center>'
+		if show_body_info ! 0:
+			addobj 'hbangs: <<hbangs>>'
+			addobj 'pcs_horny: <<pcs_horny>>'
+			addobj 'pcs_vag: <<pcs_vag>>'
+			addobj 'pcs_ass: <<pcs_ass>>'
+			addobj 'pcs_throat: <<pcs_throat>>'
+			addobj 'vgape: <<vgape>>'
+			addobj 'agape: <<agape>>'
+		end
+		addobj '<center>Sex Info</center>'
+		if show_sex_info ! 0:
+			addobj 'stat[''vaginal'']: <<stat[''vaginal'']>>'
+			addobj 'stat[''anal'']: <<stat[''anal'']>>'
+			addobj 'stat[''bj'']: <<stat[''bj'']>>'
+			addobj 'stat[''hj'']: <<stat[''hj'']>>'
+			addobj 'cycle: <<cycle>>'
+			addobj 'EggRH: <<EggRH>>'
+			addobj 'UnfertEgg: <<UnfertEgg>>'
+			addobj 'FertEgg: <<FertEgg>>'
+			addobj 'BabyEmbryo: <<BabyEmbryo>>'
+			addobj 'total_cum: <<total_cum>>'
+		end
+		addobj '<center>Slut Info</center>'
+		if show_slut_info ! 0:
+			addobj 'fame[''pav_sex'']: <<fame[''pav_sex'']>>'
+			addobj 'fame[''city_sex'']: <<fame[''city_sex'']>>'
+			addobj 'fame[''pav_slut'']: <<fame[''pav_slut'']>>'
+			addobj 'fame[''city_slut'']: <<fame[''city_slut'']>>'
+			addobj 'grupType: <<grupTipe>>'
+			addobj 'grupvalue[1]: <<grupvalue[1]>>'
+			addobj 'grupvalue[2]: <<grupvalue[2]>>'
+			addobj 'grupvalue[3]: <<grupvalue[3]>>'
+			addobj 'grupvalue[4]: <<grupvalue[4]>>'
+		end
 		if ARRSIZE('$ObjDebugVars') > 0:
 			i = 0
 			:AddDebugVarLoop
@@ -2097,6 +2177,20 @@ if $ARGS[0] = 'old':
 			end 
 		end 
 	end 
+	addobj ''
+	if objectWindowDebug = 1:
+		addobj '<center>Add Debug Variable</center>'
+		addobj '<center>Delete Debug Variable</center>'
+	end
+	addobj '<center>Toggle Debug Variables</center>'
+	addobj ''
+	addobj '<center>Switch HTML</center>'
+	addobj '<center><font color = red>Emergency</font></center>'
+	addobj ''
+	if debug_warning_closed = 0:
+		addobj '<center>This window is for debug only and can be safely closed.</center>'
+		addobj '<center>Remove debug info</center>'
+	end
 end
 
 if $ARGS[0] = "AddDebugVar":

locations/onobjsel.qsrc

@@ -3,6 +3,12 @@
 
 if $selobj = '<center>Refresh</center>':gs '$menu_obnovit'
 if $selobj = '<center>Console</center>':dynamic $cheatmenu['dynamic']
+if $selobj = '<center>Debug Variables</center>': objectWindowDebug = iif( objectWindowDebug = 0, 1, 0) & gs 'stat'
+if $selobj = '<center>Basic Info</center>': show_basic_info = iif(show_basic_info = 0, 1, 0) & gs 'stat'
+if $selobj = '<center>Body Info</center>': show_body_info = iif(show_body_info = 0, 1, 0) & gs 'stat'
+if $selobj = '<center>Sex Info</center>': show_sex_info = iif(show_sex_info = 0, 1, 0) & gs 'stat'
+if $selobj = '<center>Slut Info</center>': show_slut_info = iif(show_slut_info = 0, 1, 0) & gs 'stat'
+
 if $selobj = '<center>Toggle Debug Variables</center>': 
 	if objectWindowDebug = 0:
 		objectWindowDebug = 1
@@ -53,8 +59,9 @@ if INSTR($selobj,':') > 0:
 	killvar '$tmpVal'
 end
 
-if $selobj = '<center>-1 Hour</center>':gs 'obj_din', '-1 Hour'
-if $selobj = '<center>+1 Hour</center>':gs 'obj_din', '+1 Hour'
+if $selobj = '<center>Go to hour</center>':gs 'obj_din', 'Go to hour'
+if $selobj = '<center>Go to minute</center>':gs 'obj_din', 'Go to minute'
+if $selobj = '<center>Reload location</center>':gs 'obj_din', 'Reload'
 if $selobj = '<center><font color = red>Emergency</font></center>':gs 'obj_din', 'emergency'
 if $selobj = '<center>Remove debug info</center>': debug_warning_closed = 1 & gs 'stat'