Something

	(setq intOnDestroyedCheck (lambda Nil
		; loading Encounterlist
		(block (EncounterList randomizer encounters)
			(setq EncounterList (objGetStaticData gSource "Encounter"))
			(setq randomizer (intRandomizer))
			(setq encounters (item EncounterList randomizer))
			;loop for gernerating all shiptypes
			(for i 0 (subtract (divide (count encounters) 4) - 1)
			;loop for generating the number of ships
				(for j 1 (rolldice 
					(item encounters (encounterDiceNumber i))
					(item encounters (encounterDiceSides i))
					(item encounters (encounterDiceBonus i))
					)
					(block (avengers)
						(setq avengers
							(sysCreateShip
								(item encounters (encounterShipClass i))
								(objGetNearestStargate gPlayerShip)
								(objGetSovereign gSource)
							)
						)
						(shpOrderAttack avengers gPlayerShip)
					)
				)
			)
		)
	))
		
	(setq encounterDiceNumber (lambda (number)
		(add (multiply number 4) 1)
	)
	
	(setq encounterDiceSides (lambda (number)
		(add (multiply number 4) 2)
	)
	
	(setq encounterDiceBonus (lambda (number)
		(add (multiply number 4) 3)
	)
	
	(setq encounterShipClass (lambda (number)
		(add (multiply number 4) 4)
	)