Begin zLevelCap

if ( player->GetLevel = 21 )
	float TimeDispel
	set TimeDispel to (TimeDispel + GetSecondsPassed)
endif

if ( player->GetLevel = 21 )
	player->AddSpell, "zDispel"
	if ( TimeDispel > 2 )
		player->RemoveSpell, "zDispel"
	endif
endif

float zLuck
	if ( player->GetLevel = 21 )
		set zLuck to player->GetLuck
	endif

float zStrength
	if ( player->GetLevel = 21 )
		set zStrength to player->GetStrength
	endif

float zEndurance
	if ( player->GetLevel = 21 )
		set zEndurance to player->GetEndurance
	endif

float zWillpower
	if ( player->GetLevel = 21 )
		set zWillpower to player->GetWillpower
	endif

float zAgility
	if ( player->GetLevel = 21 )
		set zAgility to player->GetAgility
	endif

float zIntelligence
	if ( player->GetLevel = 21 )
		set zIntelligence to player->GetIntelligence
	endif

float zPersonality
	if ( player->GetLevel = 21 )
		set zPersonality to player->GetPersonality
	endif

float zSpeed
	if ( player->GetLevel = 21 )
		set zSpeed to player->GetSpeed
	endif

float zHealth
	if ( player->GetLevel = 21 )
		float TimeHeal
		set TimeHeal to (TimeHeal + GetSecondsPassed)
		player->AddSpell, "zHeal"
		if TimeHeal > 1
			set zHealth to player->GetHealth
			player->RemoveSpell, "zHeal"
		endif
	endif

	if ( player->GetLevel > 21 )
		player->setLuck (zLuck)
	endif
	if ( player->GetLevel > 21 )
		player->setStrength (zStrength)
	endif
	if ( player->GetLevel > 21 )
		player->setEndurance (zEndurance)
	endif
	if ( player->GetLevel > 21 )
		player->setWillpower (zWillpower)
	endif
	if ( player->GetLevel > 21 )
		player->setAgility (zAgility)
	endif
	if ( player->GetLevel > 21 )
		player->setIntelligence (zIntelligence)
	endif
	if ( player->GetLevel > 21 )
		player->setPersonality (zPersonality)
	endif
	if ( player->GetLevel > 21 )
		player->setSpeed (zSpeed)
	endif
	if ( player->GetLevel > 21 )
		player->setHealth (zHealth)
	endif
	if ( player->GetLevel > 21 )
		player->setLevel 21
	endif

End zLevelCap