gosub HandleMove false;
set vic2 #victim;
if == k #victim:
set brd $space;
set p search pr #brd;
if #p:
add k #p;
endif;
endif;
if == q #vic2:
set brd $space;
set p search pc #brd;
if #p:
add q #p;
endif;
endif;
And Post-Move 2:
gosub HandleMove true;
set vic2 #victim;
if == K #victim:
set brd $space;
set p search PR #brd;
if #p:
add K #p;
endif;
endif;
if == Q #vic2:
set brd $space;
set p search PC #brd;
if #p:
add Q #p;
endif;
endif;
So now I have the Post-Move 1 looking like:
gosub HandleMove false;
set vic2 #victim;
if == k #victim:
set brd $space;
set p search pr #brd;
if #p:
add k #p;
endif;
endif;
if == q #vic2:
set brd $space;
set p search pc #brd;
if #p:
add q #p;
endif;
endif;
And Post-Move 2:
gosub HandleMove true;
set vic2 #victim;
if == K #victim:
set brd $space;
set p search PR #brd;
if #p:
add K #p;
endif;
endif;
if == Q #vic2:
set brd $space;
set p search PC #brd;
if #p:
add Q #p;
endif;
endif;
I'll get on that Helepolis move in a wee bit....