: ReadyBestShield 0 Shield.Next Shield.Ready! ; : THINK 0 Fleeing@ IF EXIT THEN ReadyBestShield ;