Reklama
Strona 28 z 110 PierwszaPierwsza ... 1826272829303878 ... OstatniaOstatnia
Pokazuje wyniki od 406 do 420 z 1640

Temat: Szukasz skryptu? Zajrzyj tutaj!

  1. #406
    Avatar MatikMatrix
    Data rejestracji
    2005
    Położenie
    Rybnik
    Wiek
    33
    Posty
    814
    Siła reputacji
    20

    Domyślny

    Cytuj DemonXD napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Siema
    Potrzebuje pilnie skrypta do NG. Jak skilluje to zawsze skilluje z kolegami. Powiedzmy że jeden kolega to np. Adam, drugi to Piotrek, a trzeci to Marek. Chodzi mi o to że jak pojawi się ktoś oprócz moim kolegów Adama, Piotrka i Marka na mapie to mój char daje exita. Skilluje zawsze na monku i już tak ostatnio padłem. Proszę o tego skrypta.
    Ja tam niewiem nigdy nie uzywam skryptów do tego aczkolwiek wydaje mi się że wystarczy że dasz im wszytskim Add TO safe list a potem w zakładce oprions dasz Logout -> Player On Screen

    i powinno działać

  2. #407
    Avatar w8w8w8
    Data rejestracji
    2006
    Posty
    2,279
    Siła reputacji
    21

    Domyślny

    Bot: Blackd

    mam 2 postaci, postac X blokuje wejscie na cave (parcel za siebie) postac Y expi w tym cave.

    moje pytanie jest takie, czy jest mozliwy taki skrypt, ze jezeli postac X zobaczy jakiegos gracza na ekranie to postac Y da exita ?

    mam nadzieje ze zrozumiale. ew jak postac X dostanie obrazenia od gracza.


    dziekuje z gory za pomoc.


    @down
    Wejdz na pierwsza strone posta i przeczytaj regulamin, a nastepnie kliknij edytuj i usun.
    [nie zdążył ;/ // pluton]


    //
    bo wiem, ze pluton gra na azurze i cie podkablowalem.
    czytaj pierwszy post to sie dowiesz
    Ostatnio zmieniony przez w8w8w8 : 06-03-2009, 00:06

  3. #408
    Plumcio

    Domyślny

    Mam w hotkeyach Blackd pod jednym zakładanie arbalesta pod drugim demonki. Jak zrobić żeby w 1 hotkeyu gdy zakładam arbalest rs'y chowały się do bp a pod drugim gdy demonke żeby wracały ?

    na zakładanie arbalesta exiva #AB 16 06
    demonki exiva #5C 0D 06



    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Dlaczego otrzymałem za ten post ostrzeżenie ?
    Ostatnio zmieniony przez Plumcio : 05-03-2009, 23:57

  4. Reklama
  5. #409
    Fyrafozor

    Domyślny

    Witam.
    Mam pytanie, czy da się zrobić takiego scripta , żeby jak gracz pojawi się w liście vipów na zielono , tzn. gdy będzie online , to żeby dzwonił alarm.

  6. #410

    Data rejestracji
    2008
    Wiek
    32
    Posty
    620
    Siła reputacji
    18

    Domyślny

    Cytuj Fyrafozor napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Witam.
    Mam pytanie, czy da się zrobić takiego scripta , żeby jak gracz pojawi się w liście vipów na zielono , tzn. gdy będzie online , to żeby dzwonił alarm.
    Kod :
    var
    PlayerName: array of string;
    PlayerCount,a,Times: integer;
    
    procedure Event_VIPLogOn(ID: integer);
    begin
         PlayerName:=['Kangaroo;p'];   <--tutaj zamiast mojego nicku wpisz name osoby, po której zalogowaniu masz być informowany
         PlayerCount:=1;    <--po ilu osobach z listy ma być alarm
         Times:=1;   <--ile razy ma być odtwarzany alarm
         a:=0;
         for x:=0 to VipList.Count-1 do
         begin
              if x>=VipList.Count then break
              if VipList.VIP[x].ID=ID then
              begin
                     for y:=0 to PlayerCount-1 do
                     begin
                          if y>=PlayerCount then break
                          if VIPList.VIP[x].Name=PlayerName[y] then
                          begin
                               while a<Times do
                               begin
                                    PlaySound('C:\WINDOWS\Media\Notify.wav');
                                    a:=a+1
                               end;
                          end;
                     end;
              end;
         end;
    end;
    
    begin
         while not Terminated do
         begin
              UpdateWorld;
              ProcessEvents;
              Sleep(500);
         end;
    end;
    Ok. 2 minut szukania.
    Skrypt znaleziony na forums.tibiabot.com

  7. #411
    Fyrafozor

    Domyślny

    Tylko , że nie działa. ([Error] Untitled(7): Syntax error)

  8. Reklama
  9. #412
    Fyrafozor

    Domyślny

    No niestety też nie działa - nic się nie dzieje gdy go włączam. Próbowałem z różnymi nickami i nic. W każdym razie dzięki za pomoc. Napisałem na tibiabot, być może tam znajdą lepszy.

  10. #413
    Muuciek

    Domyślny

    Witam!

    Potrzebuje skrypt na Double Healing ze w tym samym momencie lyknie

    Ghp i Exana Mort

    Tibia Bot NG !

  11. #414

    Data rejestracji
    2008
    Wiek
    32
    Posty
    620
    Siła reputacji
    18

    Domyślny

    Cytuj Muuciek napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Witam!

    Potrzebuje skrypt na Double Healing ze w tym samym momencie lyknie

    Ghp i Exana Mort

    Tibia Bot NG !
    Kod PHP:
                const
    ////////// Potion Healing //////////
    
      Great_Potion_Health = 100   <-- tutaj wpisz ile hp, aby leczyło potionem
      Great_Health_Potion_ID = 239
    
    ////////////////////////////////////
    
    //////////  Spell Healing  //////////
    
      Minimum_Spell_Health = 100   <-- tu to samo, co up
      Healing_Spell = 'exana mort'
      Mana_Needed = 65
    
    
    ////////////////////////////////////
    
    
    
    
    while not Terminated do
    begin
    UpdateWorld;
    if Self.Health < Great_Potion_Health then
    Self.Containers.UseItemWithSelf(Great_Health_Potion_ID);
    Sleep(1000);
    if (Self.Health < Minimum_Spell_Health) and (Self.Health > Great_Potion_Health) then
    begin
    Self.Say(Healing_Spell);
    Sleep(1000);
    end;
    Sleep(100);
    end;
    Powinno działać.

  12. Reklama
  13. #415
    Avatar mazda313
    Data rejestracji
    2008
    Posty
    1,004
    Siła reputacji
    18

    Domyślny

    Poszukuje skrypta/funkcji do TibiaBot ng żeby wżucalo na dp jakiegos goscia na przemian 1gold 1arrows .
    z góry dzięki

  14. #416
    Tajemniczy Brazylijczyk

    Domyślny

    ja bym chciał skrypta do ng na auto grouping ;s

  15. #417
    Muuciek

    Domyślny

    Dobra to lapcie

    1. Skrypt na zucanie smieci na dp
    Kod :
                   //Simple trasher for Tibiabot NG 4.7.4 and higher by Lord of War
    //by Arendal
    
    //SCRIPT STARTS HERE
    
    var
    x, y : integer;
    
    {
    THIS IS EXAMPLE MAP:
    (-1, -1) (0, -1) (1, -1)
    (-1,  0) (0,  0) (1,  0)
    (-1,  1) (0,  1) (1,  1)
    
    (0, 0) is you, fields around you have these positions
    }
    
    begin
    UpdateWorld; 
    
    // YOU HAVE TO SET THESE x AND y
    x := 0; 
    y := -1;
    
    while not terminated do
    begin
    Self.RightHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
    Self.LeftHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
    end;
    end;
    
    //SCRIPT ENDS HERE
    2.
    Kod :
                procedure StackItems;
    var
      T: array of integer;
      x, y, z: integer;
      Temp: integer;
    begin
      T := VarArrayCreate([0, 19] , 3);
      Temp := -1;
      for x := 0 to Self.Containers.Count - 1 do
      begin
        if x >= Self.Containers.Count then Break;
        for z := 0 to Self.Containers.Container[x].Count - 1 do
        begin
          T[z] := Self.Containers.Container[x].Item[z].ID;
        end;
        for y := 0 to Self.Containers.Container[x].Count - 1 do
        begin
          if y >= Self.Containers.Container[x].Count then Break;
          if Self.Containers.Container[x].Item[y].Properties.Pilable then
          begin
            if Self.Containers.Container[x].Item[y].Amount < 100 then
            begin
              for z := y + 1 to Self.Containers.Container[x].Count - 1 do
              begin
                if T[z] = Self.Containers.Container[x].Item[y].ID then
                begin
                  if Self.Containers.Container[x].Item[z].Amount < 100 then
                  begin
                    Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    begin
      while not Terminated do
      begin
        UpdateWorld;
        StackItems;
        Sleep(1000);
      end;
    end;

  16. Reklama
  17. #418
    Avatar mazda313
    Data rejestracji
    2008
    Posty
    1,004
    Siła reputacji
    18

    Domyślny

    Cytuj Muuciek napisał Pokaż post
    Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.
    Dobra to lapcie

    1. Skrypt na zucanie smieci na dp
    Kod :
                   //Simple trasher for Tibiabot NG 4.7.4 and higher by Lord of War
    //by Arendal
    
    //SCRIPT STARTS HERE
    
    var
    x, y : integer;
    
    {
    THIS IS EXAMPLE MAP:
    (-1, -1) (0, -1) (1, -1)
    (-1,  0) (0,  0) (1,  0)
    (-1,  1) (0,  1) (1,  1)
    
    (0, 0) is you, fields around you have these positions
    }
    
    begin
    UpdateWorld; 
    
    // YOU HAVE TO SET THESE x AND y
    x := 0; 
    y := -1;
    
    while not terminated do
    begin
    Self.RightHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
    Self.LeftHand.MoveToGround(Self.X + x, Self.Y + y, Self.Z, 1); Sleep(250);
    end;
    end;
    
    //SCRIPT ENDS HERE
    2.
    Kod :
                procedure StackItems;
    var
      T: array of integer;
      x, y, z: integer;
      Temp: integer;
    begin
      T := VarArrayCreate([0, 19] , 3);
      Temp := -1;
      for x := 0 to Self.Containers.Count - 1 do
      begin
        if x >= Self.Containers.Count then Break;
        for z := 0 to Self.Containers.Container[x].Count - 1 do
        begin
          T[z] := Self.Containers.Container[x].Item[z].ID;
        end;
        for y := 0 to Self.Containers.Container[x].Count - 1 do
        begin
          if y >= Self.Containers.Container[x].Count then Break;
          if Self.Containers.Container[x].Item[y].Properties.Pilable then
          begin
            if Self.Containers.Container[x].Item[y].Amount < 100 then
            begin
              for z := y + 1 to Self.Containers.Container[x].Count - 1 do
              begin
                if T[z] = Self.Containers.Container[x].Item[y].ID then
                begin
                  if Self.Containers.Container[x].Item[z].Amount < 100 then
                  begin
                    Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
    begin
      while not Terminated do
      begin
        UpdateWorld;
        StackItems;
        Sleep(1000);
      end;
    end;


    Mógłby mi ktoś wyłumaczyc??:)

  18. #419
    Muuciek

    Domyślny

    Ta przeczytaj tam pisze wszystko

    to jest tak jak funkcje na matmie ta siatka

    y-to jest góra i dol gdzie jak 1 kratke na dol to 1 a gdy na góre to -1

    x to jest lewo i prawo gdzie jak 1 kratke w lewo to -1 a jak w prawo 1

    kapisz? jak nie to ten skrypt nie jest dla Ciebie !

    Edit# w linijce 23/4 ustawiasz x i y

    na przemian.. po 1
    Ostatnio zmieniony przez Muuciek : 07-03-2009, 17:48

  19. #420
    Avatar mazda313
    Data rejestracji
    2008
    Posty
    1,004
    Siła reputacji
    18

    Domyślny

    ok dziala a wlasnie x to w gore dol y to w bok
    Ostatnio zmieniony przez mazda313 : 07-03-2009, 17:49

  20. Reklama
Reklama

Informacje o temacie

Użytkownicy przeglądający temat

Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)

Podobne tematy

  1. Szukasz teamu? Zajrzyj tutaj!
    Przez smakosz w dziale Open Tibia Server
    Odpowiedzi: 271
    Ostatni post: 17-02-2024, 17:40
  2. Odpowiedzi: 1156
    Ostatni post: 12-02-2023, 09:51
  3. Szukasz Mappera? Zajrzyj tu!
    Przez Pox w dziale Mapping
    Odpowiedzi: 109
    Ostatni post: 31-03-2017, 01:37
  4. [7.4] Szukasz oldschoolowego ots'a pod 7.4? Zajrzyj!
    Przez SlitasneZebro w dziale Tematy serwerów
    Odpowiedzi: 299
    Ostatni post: 24-04-2013, 12:06
  5. Nie wiesz gdzie trenić? Zajrzyj tutaj!
    Przez Justysia_=* w dziale Tibia
    Odpowiedzi: 105
    Ostatni post: 09-08-2008, 19:10

Zakładki

Zakładki

Zasady postowania

  • Nie możesz pisać nowych tematów
  • Nie możesz pisać postów
  • Nie możesz używać załączników
  • Nie możesz edytować swoich postów
  •