|
发表于 2008-10-18 15:18:54
|
显示全部楼层
function IsGroupDead takes group gp returns boolean
        local unit  u
        local boolean  t
                  loop
                            set  u =TheFirstOfGroup(gp)
                                      if u==null  then
                                        set t=true
                                        exitwhen true
                                      elseif GetUnitState(u)>0 then
                                              set t=false
                                              exitwhen true
                                          else
                                          call GroupRemoveUnit(u)
                                          endif
                    endloop
              call DestroyGroup (gp)
              set gp=null
return t
endfuncion
好久没动过这东西了,乱写的,不知对不对,你试下... |
|