well the procedure "IsGay******" is not needed and should have been a function to test for fagness example...
Function IsGay******( szNickname : PChar): Boolean;
begin
if szNickName <> Straight then
Result:= True
Else
Result:= False;
end;
then the main proc
if IsGay******('seeplusplus') = True then
Kill******('seeplusplus');