毕竟你爸不是李刚,毕竟不是程序

看了动车的报道，从来没有这样强烈的想法：好想有鬼神，好想有仙侠，好想穿越！好想有青天，好想有大侠，好想仗剑江湖！
是GJ这台机器的程序BUG？是那些肥肠满脑的蛀虫在DDOS？是怎么了？怎么感觉就和我这种程序菜鸟一样，没有做大型程序的经验，就蛮干，虽然有一个系统的样子了，但是漏洞频出？
不废话，直接上代码：
var
Obj:对象;
Action:动作;
LawIsEnabled:Boolean;
begin
if Obj=农民 then
begin
LawIsEnabled:=True;
if Action=劳动 then
begin
Showmessage('劳动最光荣，你很光荣!');
{无车，无房，无老婆，指不定还要因为无证上岗而当替罪羊，忘高手补全代码，发我一份，谢谢}
else if Action=抢劫16元 then
begin
Showmessage('判十年!');
{GJ的法律绝对是严肃的，不二价}
else
begin
Showmessage('不会有出息的!');
end;
end
else if (Obj=是个官就行) or (Obj.Parent=李刚) then
begin
LawIsEnabled:=False!!!!!!;
if Action=不劳动 then
begin
Showmessage('再穷不能穷干部，再苦不能苦领导!');　
{有车，有房，有二奶，天价茅台，性日记......花样繁多，没有最牛B，只有更牛B，忘高手补全代码，发我一份，谢谢}　
end
else if Action=作奸犯科 then
begin
Showmessage('装装精神病，站出来道歉，这事就算过了!');　
｛接着干！｝
end
else
begin
{C H P D 都要来}
end;
end;
end;
可惜GJ这个机器的程序不会这样写，不会有明确的if else 全是后台的 if else ，在此，求源码！

延伸阅读