|
@@ -41,30 +41,32 @@ if $ARGS[0] = 'relate':
|
|
!!paternal grandfather ID
|
|
!!paternal grandfather ID
|
|
temp2[6] = $mid ($ARGS[2], 67, 10)
|
|
temp2[6] = $mid ($ARGS[2], 67, 10)
|
|
|
|
|
|
|
|
+ killvar 'gen_relationship'
|
|
|
|
+
|
|
if temp1[0] = temp2[1] or temp1[0] = temp2[2] or temp2[0] = temp1[1] or temp2[0] = temp1[2]:
|
|
if temp1[0] = temp2[1] or temp1[0] = temp2[2] or temp2[0] = temp1[1] or temp2[0] = temp1[2]:
|
|
- 'Parent-child relation'
|
|
|
|
|
|
+ $gen_relationship += 'Parent-child relationship. '
|
|
if temp1[0] = temp2[1] or temp1[0] = temp2[2]:
|
|
if temp1[0] = temp2[1] or temp1[0] = temp2[2]:
|
|
!!temp1 is the parent, temp2 is child
|
|
!!temp1 is the parent, temp2 is child
|
|
- if temp2[1] = temp2[5] or temp2[2] = temp2[4]:'Child is the result of incest (parent is also grandparent)'
|
|
|
|
- if temp2[3] = temp2[5] and temp2[4] = temp2[6]:'Child is result of incest with close family member (sibling)'
|
|
|
|
- if temp2[3] = temp2[5] or temp2[4] = temp2[6]:'Child is result of incest with close family member (half sibling)'
|
|
|
|
|
|
+ if temp2[1] = temp2[5] or temp2[2] = temp2[4]: $gen_relationship += 'Child is the result of incest (parent is also grandparent)'
|
|
|
|
+ if temp2[3] = temp2[5] and temp2[4] = temp2[6]: $gen_relationship += 'Child is result of incest with close family member (sibling)'
|
|
|
|
+ if temp2[3] = temp2[5] or temp2[4] = temp2[6]:$gen_relationship += 'Child is result of incest with close family member (half sibling)'
|
|
elseif temp2[0] = temp1[1] or temp2[0] = temp1[2]:
|
|
elseif temp2[0] = temp1[1] or temp2[0] = temp1[2]:
|
|
!!temp2 is the parent, temp1 is child
|
|
!!temp2 is the parent, temp1 is child
|
|
- if temp1[1] = temp1[5] or temp1[2] = temp1[4]:'Child is the result of incest (parent is also grandparent)'
|
|
|
|
- if temp1[3] = temp1[5] and temp1[4] = temp1[6]:'Child is result of incest with close family member (sibling)'
|
|
|
|
- if temp1[3] = temp1[5] or temp1[4] = temp1[6]:'Child is result of incest with close family member (half sibling)'
|
|
|
|
|
|
+ if temp1[1] = temp1[5] or temp1[2] = temp1[4]: $gen_relationship += 'Child is the result of incest (parent is also grandparent)'
|
|
|
|
+ if temp1[3] = temp1[5] and temp1[4] = temp1[6]: $gen_relationship += 'Child is result of incest with close family member (sibling)'
|
|
|
|
+ if temp1[3] = temp1[5] or temp1[4] = temp1[6]: $gen_relationship += 'Child is result of incest with close family member (half sibling)'
|
|
end
|
|
end
|
|
elseif temp1[0] = temp2[3] or temp1[0] = temp2[4] or temp1[0] = temp2[5] or temp1[0] = temp2[6] or temp2[0] = temp1[3] or temp2[0] = temp1[4] or temp2[0] = temp1[5] or temp2[0] = temp1[6]:
|
|
elseif temp1[0] = temp2[3] or temp1[0] = temp2[4] or temp1[0] = temp2[5] or temp1[0] = temp2[6] or temp2[0] = temp1[3] or temp2[0] = temp1[4] or temp2[0] = temp1[5] or temp2[0] = temp1[6]:
|
|
- 'Grandparent-grandchild relation'
|
|
|
|
|
|
+ $gen_relationship += 'Grandparent-grandchild relationship.'
|
|
elseif temp1[1] = temp2[1] or temp1[2] = temp2[2]:
|
|
elseif temp1[1] = temp2[1] or temp1[2] = temp2[2]:
|
|
- 'Sibling relation'
|
|
|
|
- if temp1[1] = temp2[1] and temp1[2] = temp2[2]:'Full sibling'
|
|
|
|
- if temp1[1] ! temp2[1] or temp1[2] ! temp2[2]:'Half sibling'
|
|
|
|
|
|
+ $gen_relationship += 'Sibling relation'
|
|
|
|
+ if temp1[1] = temp2[1] and temp1[2] = temp2[2]: $gen_relationship += 'Full sibling'
|
|
|
|
+ if temp1[1] ! temp2[1] or temp1[2] ! temp2[2]: $gen_relationship += 'Half sibling'
|
|
elseif temp1[1] ! temp2[1] and temp1[2] ! temp2[2]:
|
|
elseif temp1[1] ! temp2[1] and temp1[2] ! temp2[2]:
|
|
if temp1[3] = temp2[3] and temp1[4] = temp2[4] or temp1[3] = temp2[5] and temp1[4] = temp2[6]:
|
|
if temp1[3] = temp2[3] and temp1[4] = temp2[4] or temp1[3] = temp2[5] and temp1[4] = temp2[6]:
|
|
- 'first cousins'
|
|
|
|
|
|
+ $gen_relationship += 'first cousins'
|
|
elseif temp1[3] = temp2[3] or temp1[4] = temp2[4] or temp1[3] = temp2[5] or temp1[4] = temp2[6]:
|
|
elseif temp1[3] = temp2[3] or temp1[4] = temp2[4] or temp1[3] = temp2[5] or temp1[4] = temp2[6]:
|
|
- 'distand blood relation'
|
|
|
|
|
|
+ $gen_relationship += 'distand blood relation'
|
|
end
|
|
end
|
|
end
|
|
end
|
|
killvar 'temp1'
|
|
killvar 'temp1'
|