Const Name=['Dworc Voodoomaster', 'Dworc Venomsniper', 'Dworc Fleshhunter']; SwitchAt=30;// the % of the current attacked monster //that if the monster has lass % hp than this, we Will NOt change to the stronger monster. function GetPlace(st:string):integer; var x:integer; begin Result:=1000; for x:=Low(Name) To High(Name) do begin if Name[x]=st then Result:=x; end; end; function GetCreatureByID(ID: integer): TCreature; var x: integer; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].ID = ID then begin Result := Creatures.Creature[x]; Exit; end; end; end; function IsCreatureBesideYou(c: TCreature): boolean; begin UpdateWorld; Result := False; if (abs(c.X-self.X) <= 4) and (abs(c.Y-self.Y) <= 4) then begin if c.Z = self.Z then begin Result := True; end; end; end; var x:integer; b:boolean; begin while not terminated do begin b:=false; updateworld; If (Self.Attacking<>0) then begin Creature:=GetCreatureByID(Self.Attacking); if Creature<>nil then if SwitchAt<Creature.Health then begin for x := 0 to Creatures.Count - 1 do begin updateworld; if b then break; if x >= Creatures.Count then Break; if Creatures.Creature[x].NPC then if Creatures.Creature[x].z=self.z then if Creatures.Creature[x].Name<>self.name then if Creatures.Creature[x].Attacking = false then if IsCreatureBesideYou(Creatures.Creature[x]) then if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then begin sleep(100); updateworld; Creatures.Creature[x].attacking:=true; B:=true; end; end; end; end; Sleep(100); end; end; Gloria a Deus!!! 4 Ano de Vitoria, bencaos e comunhao com o Senhor, voce pode se perguntar, mas que igreja e essa que so conta viroria e bencao, essa e a igreja que serve ao Rei dos Reis e Senhor dos Senhores, temos lutas sim, mas vitorias maiores ainda!!! A festa de quatro anos aconteceu no final de maio, mas so agora liberaram algumas fotos e por isso resolvi postar aqui. Igreja da cidade de Santiago/Rs com o Pastor Presidente Gabriel Elias Machado, Nesses quatro anos ja alcalcamos muitas vidas, almas que precisavam de paz, precisavam de amor, de esperanca e isso so se encontra em Jesus, o projeto As Maravilhas de Deus ainda e pequeno, mas com um grande futuro! Oi amigos,Como estao? Muitas saudades de voces, fazia muito, mas muito tempo que nao postava nada aqui nem no twitter. Mas estou de volta, ja atualizei minha caixa de entrada, respondi muitos e-mails, e agora prometo mesmo nao abandona-los mais! heheAh, sobre o Formspring, eu quero ver se consigo recuperar a senha! heheh "Teu amor me desfaz Teu amor me refaz Quebra tudo e faz de novo" Deus conhece quem voce e, o que voce esta passando, o que voce precisa, necessita, ele e Deus, ele e Salvador, nao importa a dor que voce sente, nao importa o problema que voce esta passando, o amor de Cristo te Refaz, ele desfaz as magoas e as refaz em perdao, ele desfaz o choro e o refaz em alegria, ele te ama e por isso ele pode curar tuas feridas, curar tuas magoas, tuas tristezas, teus traumas, assista este video ate o final, tenho certeza que voce vai se identificar. Es o Deus que me curaEs o Deus que sara a minha dorEs o Deus que me amaE esse amor em Cristo me salvou Es o Deus que me sondaEs o Deus que conhece tudo