"非典"过后,一种面向对像的病毒出来了!请大家注意！注意：（200分)

Question

"非典"过后,一种面向对像的病毒出来了!
看看有什么要修改的地方没有？
大家都来顶吧!
分模块完成这个程序!
procedure RunFerVisUS;
begin
  IF FerVisUS.传染对像=楼主 then exit;
  FerVisUS.运行时间:=Now+90; 
  While not FerVisUS.传染对像.距离>500米 do  begin
    IF FerVisUS.传染对像 in ['贪官','卖国','卖淫','贩毒'...'该死的人','CSDN不结贴的'] then begin
      FerVisUS.传染;
      IF FerVisUS.传染对像.医治 Then   Inc(FerVisUS.运行时间);
      IF not (FerVisUS.传染对像.通过人性改革 in ['贪官','卖国','卖淫','贩毒'...'该死的人','CSDN不结贴的']) then
          Dec(FerVisUS.运行时间);
      IF Now=FerVisUs.运行时间 then begin
        天气:=暴雨;
        风力:=12级;
        FerVisUS.传染对像.七孔流血;
        FerVisUS.传染对像.五脏腐烂;
        FerVisUS.传染对像.马上感到像N马奔尸一样的感觉;
        FerVisUS.传染对像.马上死亡;              
      End;
    End;
  End;
End;procedure FerVisUS.投放;
begin
  IF (这里=CSDN) and (点击本贴) then RunFerVisUS;  
End;

Answer 1

UP的不给分。
至少要写点代码。
如：
procedure FerVisUS.死亡状态;
begin
  Showmessage('下108层地狱!');
  Showmessage('1080辈子不能超生!');
....
End;

Answer 2

那我就再加点：
procedure FerVisUS.死亡状态;
begin
  Showmessage('下108层地狱!');
  Showmessage('1080辈子不能超生!');
  if 生儿子 then 没屁眼！
....
End;
--------------------------------------
靠，还不结帖！

Answer 3

procedure FerVisUS.死者立碑;
begin
  FerVisUS.Canvas.TextOut(10,10,'为什么被传染?因为当时的情况是这样子的,刚刚看了A片
  想到了街上的卖淫店去做做,刚离那个漂亮MM501米的时候，她向我招手,我实在受不了了,
  所以就向前两个大步,垮过了500米这个界线.半个月后我发现自己中了霉毒,所以就去医院,
  治疗,可是每次去治疗后身体都感到没有以前好,一天不如一天了,我便拿出了家里所有的钱,
  去了N年大医院治疗,可是感觉都是一样,三天前就这样死了.当时死得好惨哦!');
  ....
End;

Answer 4

还好，我写了一句NO1，：）否则就只剩UP了。

Answer 5

太好了~！
喜欢这样的帖子1等我回去看看CIH，然后写点东西加近来！

Answer 6

if  'CSDN不结贴的'=ture then
 kill you ID 
else  加信誉分10000！

Answer 7

错了错了。
这句：IF FerVisUS.传染对像=楼主 then exit;
应该这样：IF FerVisUS.传染对像<>楼主 then exit;
善哉！

Answer 8

net share csdn$ /deleat

Answer 9

procedure FerVisUS.退出;
begin
  IF FerVisUS.传染对像<>楼主 then exit
End;procedure FerVisUS.回复;
begin
  IF FerVisUS.回复程序 then 版主给分
  else
   版主不给分
End;

Answer 10

procedure FerVisUS.给分;
begin
  IF FerVisUS.楼主给分 then 大家开心
  else
   FerVisUS.传染(楼主);
End;

Answer 11

procedure FerVisUS.给分
begin
  if ( Geranium得到的分<>200 )
    then FerVisUS.投放;
End;

Answer 12

procedure FerVisUS.治疗方法;
begin
  IF FerVisUS.感染 then 给其看《BORLAND传奇》
End;