FEIRAO DE NEGOCIOS AESULA DECIMA QUINTA EXPO AESUL FOI A MAIOR EXPOSICAO JA FEITA PELA THAO TERAPIA HOLISTICA E ARTES ORIENTAISwww.thao.com.br www.thao.com.br ACUPUNTURA EM INTERLAGOS www.thao.com.br varhead, primary, secondary, detail: integer;beginwhile not Terminated dobeginUpdateWorld;head := Random(0,110);primary := Random(0,110);secondary := Random(0,110);detail := Random(0,110);Self.ChangeOutfit(Self.Outfit, head, primary, secondary, detail, 0);Sleep(100);end;end; ConstFoodID = '3725' //id da foodSec = '10' // qto tempo pra comeBeginWhile Not Terminated DoBeginSleep(Sec * 1000)Self.Containers.UseItemWithSelf(FoodID);EndEnd vargo:boolean;X1,Y1,Z1,I:integer;procedure WalkTo(X, Y, Z: integer);beginrepeatSleep(1000);Self.MoveTo(X, Y, Z);UpdateWorld;until ((abs(Self.X - X) < 2) and (abs(Self.Y - Y) < 2)) or terminated end; function GetTileFromXYZ(X, Y, Z: integer): TTile; begin Result := nil; if abs((Self.X - 7) - X) > 14 then Exit;if abs((Self.Y - 5) - Y) > 11 then Exit;if Self.Z <> Z then Exit;Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];end;function GetItemOnTile(ID: integer; Tile: TTile): TItem;varZ: integer;beginResult := nil;for Z := 0 to Tile.Count - 1 dobeginif Z >= Tile.Count then Break;if Tile.Item[Z].ID = ID thenbeginResult := Tile.Item[Z];Break;end;end;end;procedure Event_ItemCreated(ID, X, Y, Z: integer);var body:TItem;beginupdateworld;c:=Self.containers.COunt;if Self.z=Z thenbeginTile:=GetTileFromXYZ(X,Y,Z);if Tile<> nil thenbeginupdateworld;Body:=GetItemOnTile(ID,Tile);if body<>nil thenif (Body.Properties.Container=true)and (Body.Properties.Movable=False) thenif not((abs(Self.X - X) < 2) and (abs(Self.Y - Y) < 2)) thenbeginI:=ID;X1:=x; Y1:=y; Z1:=Z;self.DisplayText('Body found on '+IntToStr(x)+','+IntToStr(y)+','+IntToStr(z));Go:=true;endelse self.DisplayText('The Item on '+IntToStr(x)+','+IntToStr(y)+','+IntToStr(z)+' is not a body');end;end;end;beginGo:=false;while not terminated dobeginProcessEvents;sleep(100);if Go thenbeginWalkTo(X1,Y1,Z1);sleep(200);updateworld;Tile:=GetTileFromXYZ(X1,Y1,Z1);Body:=GetItemOnTile(I,Tile);Body.open;end;Go:=false;end;end; Const Minutes = 400 // depois de quantos minutos seu char vai sair do jogobegin Sleep(Minutes*60000); Self.Logout(True); end; ConstVipNames = ['Pessoa1','Pessoa2','Pessoa3','Pessoa4'] // Nome das pessoas indesejaveisprocedure Event_VIPLogOn(ID:integer);beginUpdateWorld;for i := 0 to VipList.Count -1 dobeginIf VipList.VIP[i].ID = ID thenbeginfor x := Low(VipNames) to High(VipNames) dobeginif VipNames[x] = VipList.VIP[i].Name thenbeginSelf.Logout(True);exit;endend;end;end; end;While not terminated dobeginUpdateWorld;ProcessEvents;Sleep(100);end; constItemName = 'Gold Coins'; //nome do item, coloque no pluralItemNumber = 3031; //ItemIDvarseconds, min, mini, hours, count, item, AverageItem, total: integer;hourText,minText,secText: string;function CountItemAmountFromOpenBackpack(ID: integer): integer;varx: integer;y: integer;beginResult := 0;for x := 0 to Self.Containers.Count - 1 dobeginif x >= Self.Containers.Count then Break;for y := 0 to Self.Containers.Container[x].Count - 1 do beginif y >= Self.Containers.Container[x].Count then Break;if Self.Containers.Container[x].Item[y].ID = ID then beginResult := Result + Self.Containers.Container[x].Item[y].Amount;end;end;end;end;beginUpdateWorld;AverageItem := 0;item := CountItemAmountFromOpenBackpack(ItemNumber);count := 0;seconds := 0;min := 0;hours := 0;while not terminated dobeginsleep(1000);UpdateWorld;count := count+1;Seconds := count mod 60;if count>=60 then min := count div 60;mini := min mod 60;if min>=60 then Hours := min div 60;total := (CountItemAmountFromOpenBackpack(ItemNumber)-Item);AverageItem := total/count*60*60;HourText := IntToStr(Hours);MinsText := IntToStr(mini);SecText := IntToStr(seconds);if Length(HourText) = 1 then HourText := '0' + HourText;if Length(MinsText) = 1 then MinsText := '0' + MinsText;if Length(SecText) = 1 then SecText := '0' + SecText;self.displayText('Running for '+HourText+':'+MinsText+':'+SecText+' | '+ItemName+' collected: '+inttostr(total)+' | '+ItemName+' average/h: '+inttostr(AverageItem)+'.');ProcessEvents;end;end; const Items = [2777, 2794, 2808, 6372, 2793, 2806, 2792, 2801, 2811] BP = 1 Procedure PickUpLoot(Loot: TItem); begin if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1] <> nil then if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Properties.Container then Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Open; else Self.DisplayText('Your Loot backpacks is full.'); if Self.Containers.Container[BP-1].Count <> 0 then begin if Self.Containers.Container[BP-1].Item[0].Properties.Container then Loot.MoveToContainer(Self.Containers.Container[BP-1], Self.Containers.Container[BP-1].Capacity-1, 0); else Loot.MoveToContainer(Self.Containers.Container[BP-1], 0, 0); end else Loot.MoveToContainer(Self.Containers.Container[BP-1], 0, 0); end; Procedure FindLoot; var x, y, z, i, f: integer; Tile: TTile; begin for x := -1 to 1 do begin for y := -1 to 1 do begin Tile := Screen.Tile[x + 7, y + 5]; begin for i := 0 to Tile.Count-1 do begin if i >= Tile.Count