:starquake100
if
	turn > starquake
then
	set starquake (((rnd%37500) + 75000) + turn)
	incoming stellar_event within 1900 skill ((rnd%20000) + 100) icon 16 "events_quake00"
	set quakearrive (turn + 2000)
	set quakeincoming 1
end