Хостинг, который использует TopHope.RU более 2-х лет

Хостинг, который использует TopHope.RU более 4-х лет

авто прокачка по скрипту !!помогите сыну форума

Тема в разделе "общение и вопросы lineage 2", создана пользователем FORVARD, фев 10, 2019.

  1. FORVARD

    FORVARD Адекват

    Сообщения:
    16
    Симпатии:
    20
    Баллы:
    3
    Как сделать скрипт на авто прокачку
    как я понял эт оболочка
    PHP:
    uses zubat;
    begin
    while Engine.StatuslsOnline do begin
    if  User.Level<7 then lvl1to7;

    if (
    User.Level>=7)    and (User.Level<18)   then lvl7to18;
    if (
    User.Level >= 18) and (User.Level 20then changeclass1;
    if (
    User.Level >= 20) and (User.Level 40then gotoGludio;
    if (
    User.Level >= 40) and (User.Level 46then gotoQuest;
    if (
    User.Level >= 46) and (User.Level 52then kekropusq2;
    if (
    User.Level >= 52) and (User.Level 58then kekropusq3;
    if (
    User.Level >= 58) and (User.Level 61then kekropusq4;
    if (
    User.Level >= 61) and (User.Level 65then kekropusq5;
    if (
    User.Level >= 65) and (User.Level 70then kekropusq6;
    if (
    User.Level >= 70) and (User.Level 76then kekropusq7;
    if (
    User.Level >= 76) and (User.Level 81then kekropusq8;
    if (
    User.Level >= 81) and (User.Level 85then kekropusq9;
    if 
    User.Level >= 85 then kartia;

      
    end;
    end.
    а что куда я хз O_oO_oO_oO_o
    пасибо кто не прошел мимо
     
  2. HellFire

    HellFire Команда форума Администратор

    Сообщения:
    1,032
    Симпатии:
    1,708
    Баллы:
    4,118
    где-то валялся скрипт на прокачку(по моему даже для walker'а, и не думаю, что тяжело будет из него переделать, главное координаты и прочее оттуда спереть)
     
    AlisaCodeDragon и FORVARD нравится это.
  3. FORVARD

    FORVARD Адекват

    Сообщения:
    16
    Симпатии:
    20
    Баллы:
    3
    найди если не трудно пазязя ;)
    а вот эти штуки после условия эт процедуры или шо? я прост чайник сори за тупости XD
    if (User.Level>=7) and (User.Level<18) then lvl7to18;
     
  4. AlisaCodeDragon

    AlisaCodeDragon Лисичка Команда форума Старший модератор

    Сообщения:
    156
    Симпатии:
    180
    Баллы:
    170
    Уроки для адриналина есть на ютубе )
    Вот нашла какие то видео и у этого дядьки на канале много их там.

    Для того что-бы увидеть ссылку Зарегистрируйтесь на форуме.
    сторонний сайт и примеры скриптов для бота walker
     
    FORVARD, wisa и HellFire нравится это.
  5. FORVARD

    FORVARD Адекват

    Сообщения:
    16
    Симпатии:
    20
    Баллы:
    3
    PHP:
    uses  SysUtilsClasses;
    var 
    Figth_Flag:boolean;
    DlgOpen:string;
    CheckDeathBoolean;
    ItemTL2Item;
    NpcTL2Npc;
    ObjTL2Buff;
    L2SkillTL2Skill;
    ControlTL2Control;
    TNpcListTL2List;

              
    procedure  lvl1to10;

    begin
    engine
    .loadconfig('ЕHOT');
     
    delay(3000);
    Engine.Bypasstoserver ('_bbstop;nteleport:teleportuse -119534 223177 -3705',true);
      
    delay(2000);
     
    engine.loadzone('1-10');    //зона охоты в каторой мы качаемся
     
    while Engine.StatuslsOnline do begin
        
    if User.Level 10 then
        begin
      Engine
    .FaceControl(0,true);
        
    end
        
    else
        
    begin
          Engine
    .FaceControl(0,false);
          break;
           
    end;
              
    end;
                  
    end;
     
    procedure  lvl10to20;   
      
    begin
      Engine
    .FaceControl(0,false);
     
    Engine.MoveTo(-117434220495, -3336);
     
    Engine.MoveTo(-116865220125, -3216);
     
    Engine.MoveTo(-116018219959, -3080);
     
    Engine.MoveTo(-115004219842, -3112);
     
    Engine.MoveTo(-113578218940, -3152);
     
    Engine.MoveTo(-112424217421, -3104);
     
    engine.loadzone('10-20'); //зона охоты в каторой мы качаемся
      
    while Engine.StatuslsOnline do begin
      
    if User.Level 20  then
       begin
     Engine
    .FaceControl(0,true);
        
    end
       
    else
        
    begin
        Engine
    .FaceControl(0,false);
     
    Engine.UseItem(13733);//тп в город
     
    Delay(5222);
    break;
      
    end;
       
    end;
        
    end;
    procedure  lvl20to40;
    begin


    Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse -26111 173692 -4152',true);
      
    delay(3000) ;
      
    engine.loadconfig('20-40Е');    // конфиг для нашей зоны
        
    while Engine.StatuslsOnline do begin
        
    if User.Level 40 then
         begin
      Engine
    .MoveTo(-26199173926, -4216);
      
    Engine.MoveTo(-26329174331, -4328);
      
    Engine.MoveTo(-26649174764, -4440);
      
    Engine.MoveTo(-26876174982, -4432);
      
    Engine.MoveTo(-27424175103, -4648);
      
    Engine.MoveTo(-27766174965, -4760);
      
    Engine.MoveTo(-28046174321, -4832);
      
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
       
    Engine.MoveTo(-28529174074, -4832);
       
    Engine.MoveTo(-28912174167, -4880);
       
    Engine.MoveTo(-29123174380, -4968);
       
    Engine.MoveTo(-29140174550, -5032);
       
    Engine.MoveTo(-29258175078, -5208);
       
    Engine.MoveTo(-29072175344, -5240);
       
    Engine.MoveTo(-28989175769, -5240);
       
    Engine.MoveTo(-28868176131, -5240);
       
    Engine.MoveTo(-28827176444, -5240);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(-28807176442, -5240);
    Engine.MoveTo(-28676176576, -5240);
    Engine.MoveTo(-28606176906, -5240);
    Engine.MoveTo(-28492177196, -5240);
    Engine.MoveTo(-28038177755, -5240);
    Engine.MoveTo(-27856178061, -5240);
    Engine.MoveTo(-27755178284, -5232);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(-28257178556, -5240);
    Engine.MoveTo(-28640178564, -5240);
    Engine.MoveTo(-28857178419, -5240);
    Engine.MoveTo(-29406178270, -5240);
    Engine.MoveTo(-30054178196, -5240);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(-30191178783, -5240);
    Engine.MoveTo(-30113178881, -5240);
    Engine.MoveTo(-30319179369, -5240);
    Engine.MoveTo(-30287179898, -5240);
    Engine.MoveTo(-30199180348, -5240);
    Engine.MoveTo(-30001180529, -5240);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(-29775180875, -5240);
    Engine.MoveTo(-29695181062, -5240);
    Engine.MoveTo(-29686181167, -5232);
    Engine.MoveTo(-29181181221, -5312);
    Engine.MoveTo(-29020181268, -5312);
    Engine.MoveTo(-28877181318, -5312);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(17000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(-28126182016, -5312);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(5000);
    Engine.Facecontrol(0,False);
    end
      
    else
     
    begin

        Engine
    .UseItem(13733);//тп в город
         
    Delay(6222);
         break;
     
    end ;
     
    end ;
      
    end ;
    procedure  lvl40to50;

    begin
    Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse 15398 119378 -9040',true);
      
    delay(3000);
         
    engine.loadconfig('ЕHOT');    // конфиг для нашей зоны
    engine.loadzone('40-50');
      
    delay(1000);

        while 
    Engine.StatuslsOnline do begin
      
    if User.Level 51 then
       begin
    Engine
    .FaceControl(0,true);
    end
       
    else
       
    begin
       Engine
    .FaceControl(0,false);
     
    Engine.UseItem(13733);//тп в город
      
    Delay(4222);
      break;
     
    end;
      
    end;
     
    end;
     
    procedure  lvl50to63;
     
    begin
    Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse 119742 16091 -5112',true);
          
    delay(4100);
        
    engine.loadconfig('20-40е');    // конфиг для нашей зоны
        
    Engine.MoveTo(11902316080, -5120);
        
    Engine.MoveTo(11812416038, -5120);
        
    Engine.MoveTo(11751716045, -5104);
        
    Engine.MoveTo(11658616044, -5104);
        
    Engine.MoveTo(11563216048, -5104);
        
    Engine.MoveTo(11540416047, -5104);
          while 
    Engine.StatuslsOnline do begin
         
    if User.Level 63 then
            begin
         Engine
    .MoveTo(11516516027, -5104);
         
    Engine.MoveTo(11533716645, -5104);
         
    Engine.MoveTo(11575917187, -5104);
         
    Engine.MoveTo(11588017435, -5104);
          
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(22000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(11545616846, -5104);
    Engine.MoveTo(11498116702, -5104);
    Engine.MoveTo(11394116844, -5104);
    Engine.MoveTo(11325817280, -5104);
      
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(22000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(11355917050, -5104);
    Engine.MoveTo(11395316781, -5104);
    Engine.MoveTo(11379715945, -5104);
    Engine.MoveTo(11384615295, -5104);
    Engine.MoveTo(11348114858, -5104);
      
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(22000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(11384815224, -5104);
    Engine.MoveTo(11444915247, -5104);
    Engine.MoveTo(11514015255, -5104);
    Engine.MoveTo(11543415250, -5104);
    Engine.MoveTo(11607814854, -5104);
       
    Engine.useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(22000);
    Engine.Facecontrol(0,False);
    Engine.MoveTo(11552015222, -5104);
    Engine.MoveTo(11527615741, -5104);
    end
    else
       
    begin
     
     Engine
    .UseItem(13733);//тп в город
      
    Delay(2222);
      break;
     
    end;
      
    end;
       
    end;
     
    procedure  lvl63to72;
     
    begin
     Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse 117356 18462 4977',true);
       
    delay(4000);
      
    engine.loadconfig('ЕHOT');
      
    Engine.MoveTo(116991183614976);
      
    Engine.MoveTo(115903173544976);
      
    Engine.MoveTo(115722171784976);
      
    engine.loadzone('63-72');
      while 
    Engine.StatuslsOnline do begin
       
    if User.Level 73 then
           begin
       Engine
    .FaceControl(0,true);
           
    end
       
    else
         
    begin
       Engine
    .FaceControl(0,FALSE);
        
    Engine.UseItem(13733);//тп в город
         
    Delay(5222);
     
         break;
     
    end;
     
    end;
       
    end;
     
    procedure  lvl72to76;
       
    begin
        Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse 122824 110836 -3720',true);
        
    delay(1000);
          
       
    Engine.FaceControl(0,FALSE);
        
    Engine.MoveTo(122242112534, -3808);
        
    Engine.MoveTo(122220113076, -3800);
        
    Engine.MoveTo(122739115006, -3720);
        
    Engine.MoveTo(122872115251, -3688);
         
    engine.loadzone('72-76');
          while 
    Engine.StatuslsOnline do begin
         
    if User.Level 76 then
          begin
       Engine
    .FaceControl(0,true);
       
    end
        
    else
        
    begin
           Engine
    .FaceControl(0,false);
        
    Engine.UseItem(13733);//тп в город
         
    Delay(2222);
         break;
        
    end;
       
    end;
        
    end;
          
      
    procedure  lvl76to85;
          
    begin
        Engine
    .Bypasstoserver ('_bbstop;nteleport:teleportuse -114700 147909 -7715',true);
             
    delay(3000);
            
    engine.loadconfig('20-40е');    // конфиг для нашей зоны
            
    Engine.MoveTo(-114741147022, -7696);
            
    Engine.MoveTo(-114710145188, -7680);
            
    Engine.MoveTo(-114627143916, -7680);
         while 
    Engine.StatuslsOnline do begin     
      
    if User.Level 85 then
      begin
       Engine
    .useSkill(10305,true);
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33306);
         
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
        
    Engine.MoveTo(-112614145859, -7680);
        
    Engine.MoveTo(-112324145590, -7680);
        
    Engine.MoveTo(-111882145153, -7680);
         
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33307);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-111011147967, -7680);
           
    Engine.MoveTo(-111016148497, -7696);
           
    Engine.MoveTo(-110975149482, -7680);
                 
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33308);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-112714151410, -7696);
           
    Engine.MoveTo(-112311151424, -7696);
           
    Engine.MoveTo(-111696151445, -7696);
           
    Engine.MoveTo(-111216151438, -7696);
           
    Engine.MoveTo(-110986151456, -7664);
                
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33309);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-114719150615, -7680);
           
    Engine.MoveTo(-114713151438, -7680);
                
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33310);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-116737151490, -7680);
           
    Engine.MoveTo(-118179151486, -7680);
                 
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33311);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-118246147911, -7680);
           
    Engine.MoveTo(-118396147991, -7680);
           
    Engine.MoveTo(-118430149063, -7680);
           
    Engine.MoveTo(-118415149568, -7664);
          
                 
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33312);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-117076145599, -7680);
           
    Engine.MoveTo(-117537145114, -7680);
                
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33312);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    Engine.MoveTo(-114695144822, -7680);
           
    Engine.MoveTo(-114666144226, -7680);
           
    Engine.MoveTo(-114651143965, -7680);
                 
    Engine.Facecontrol(0,True);
      
    delay(12000);
    Engine.Facecontrol(0,False);
        
    Engine.SetTarget(33313);
            
    Engine.DlgOpen();
           
    Engine.DlgSel(1);
           
    end
          
    else
         
    begin
        Engine
    .UseItem(13733);//тп в город
         
    Delay(5222);
         break;
     
    end;
      
    end
        
    end;
      
    begin
    while Engine.StatuslsOnline do begin

    if (User.Level>=1)    and (User.Level<11)   then lvl1to10;
    if (
    User.Level>=10)    and (User.Level<20)   then lvl10to20;
    if (
    User.Level >= 20) and (User.Level 40then lvl20to40;
    if (
    User.Level >= 39) and (User.Level 50then lvl40to50;
    if (
    User.Level >= 49) and (User.Level 63then lvl50to63;
    if (
    User.Level >= 63) and (User.Level 72then lvl63to72;
    if (
    User.Level >= 72) and (User.Level 76then lvl72to76;
    if (
    User.Level >= 76) and (User.Level 85then lvl76to85;

      
    end;
    end.
    знаю можно и лучше ,ну норм для 1 раза ;)
     
    Последнее редактирование модератором: фев 25, 2019
  6. [Elloe]

    [Elloe] все мы тут играем честно

    Сообщения:
    121
    Симпатии:
    163
    Баллы:
    3,670
    Для того что-бы увидеть ссылку Зарегистрируйтесь на форуме.
    ИМХО, удали и попробуй еще разок
     
    Последнее редактирование: фев 25, 2019
    FORVARD нравится это.
  7. FORVARD

    FORVARD Адекват

    Сообщения:
    16
    Симпатии:
    20
    Баллы:
    3
    все настолько плохо?
    бла надо идти читать книжки
    а мож подсказать где косяки плз
     
  8. BIT_hack

    BIT_hack ┬┴┬┴┤( ͡° ͜ʖ├┬┴┬┴ Команда форума Независимый разработчик

    Сообщения:
    332
    Симпатии:
    531
    Баллы:
    1,765
    Эти штуки называются Операторы выбора по простому условия тут можно почитать Для того что-бы увидеть ссылку Зарегистрируйтесь на форуме. Или задайте более конкретный вопрос.
     
    HellFire и FORVARD нравится это.
  9. FORVARD

    FORVARD Адекват

    Сообщения:
    16
    Симпатии:
    20
    Баллы:
    3
    да уже понял ,на этом сайте все читал ,когда скрипт писал
    спасибо что сообщение отредактировали^_^
     
  10. BIT_hack

    BIT_hack ┬┴┬┴┤( ͡° ͜ʖ├┬┴┬┴ Команда форума Независимый разработчик

    Сообщения:
    332
    Симпатии:
    531
    Баллы:
    1,765
    Адриналин использует самый простой скриптовый движок паскаль как я помню вам надо читать все про паскаль
     
    FORVARD нравится это.
  1. На этом сайте используются файлы cookie, чтобы персонализировать содержимое, хранить Ваши предпочтения и держать Вас авторизованным в системе, если Вы зарегистрировались.
    Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление