Jump to content

essential

Members
  • Posts

    110
  • Joined

  • Last visited

  • Feedback

    0%

Everything posted by essential

  1. yes. But if ur server has protection, you can change in script time between repeats. i dont think so. Anyway it works on most servers(c4-interlude) where works l2phx... Such a server, I would not call a waste of time, since such servers are many and among them there is a decent where online > 2k ;P
  2. kirill пользуясь переводчиком - хоть по смыслу подгоняй. btw Укажи версию пкх, которую ты испльзуешь может быть для тебя 3.18 это последняя, на какой винде ты пытаешься запустить пкх, и какие визуальные "навороты" установленны.(т.к. пкх чуствителен к такого рода вещам.)
  3. Tingeriukas, read in topic-message(firs post) after "features:" ...
  4. in the end i wrote : i think 100 posts enought? :) P.s. In interlude work too...
  5. It a chat via phx Basis: Chat.txt from phx 320 Features: 1. A separate chat window. 2. "Avtospam: one line every X seconds 3. Long text: sending multiline messages 4. Log chat. own script: const MaxMessages = 1000; var m: TMemo; frm:TForm; penel: TPanel; etext: tedit; button: tbutton; box : TCheckBox; every : TEdit; _Name : TEdit; i: Integer; tm:TTimer; Message, Name: String; procedure SendMs(Sender: TObject); var Msg, Nm: String; dd: integer; begin if etext.text<>'' then begin buf:=#$38; case etext.text[1] of '!': begin Msg:=Copy(etext.text,2,1000); dd:=1; nm:=''; end; '$': begin Msg:=Copy(etext.text,2,1000); dd:=9; nm:=''; end; '+': begin Msg:=Copy(etext.text,2,1000); dd:=8; nm:=''; end; '"': begin dd:=pos(' ', etext.text); Msg:=Copy(etext.text,dd+1,1000); nm:=Copy(etext.text,2,dd-3); dd:=2; end; '#': begin Msg:=Copy(etext.text,2,1000); dd:=3; nm:=''; end; '@': begin Msg:=Copy(etext.text,2,1000); dd:=4; nm:=''; end; else begin Msg:=etext.text; dd:=0; nm:=''; end; end; WriteS(Msg); WriteD(dd); if nm<>'' then WriteS(Nm); SendToServerEx(_Name.Text); end; end; procedure onNewCommand(obj:TObject;key:string); var i:integer; var symbol:Variant; var after:string; begin if (key[1]=#$0D) then begin SendMs(obj); symbol := etext.Text[1]; after := ''; if symbol = '#' then after := '#'; if symbol = '!' then after := '!'; if symbol = '@' then after := '@'; if symbol = '$' then after := '$'; etext.Text := after; end; end; procedure onTimer(Sender:TObject); begin tm.Interval := StrToInt(every.Text); if box.checked = true then SendMs(Sender); end; procedure Init; begin frm := TForm.Create(nil); frm.Caption := 'Chat'; frm.BorderStyle := bsSizeable; frm.Position := poDesigned ; frm.Width:=400; frm.Height:=600; m:=TMemo.Create(frm); m.parent:=frm; m.align:=alClient; m.ReadOnly:=true; m.ScrollBars:=ssBoth; penel:=TPanel.Create(frm); penel.parent:=frm; penel.align:=alBottom; penel.height:=48; etext:=tedit.Create(penel); etext.parent:=penel; etext.align:=alTop; button:=tbutton.Create(penel); button.parent:=penel; button.top := etext.height; button.caption:='Send'; button.onClick:=@SendMs; box := TCheckBox.Create(penel); box.parent := penel; box.Top := etext.height + 2; box.Left := button.width + button.left +2; box.Caption := 'Shtorm via: '; every:=tedit.Create(penel); every.parent:=penel; every.Left := box.Left + box.Width; every.Top := button.top; every.Text := IntToStr(3000); tm := TTimer.Create(frm); tm.Interval := 1000; tm.Enabled := true; tm.OnTimer := @OnTimer; etext.OnKeyPress := @onNewCommand; _Name:=tedit.Create(frm); _Name.parent:=frm; _Name.align := alTop; _Name.Text := ''; frm.Show; end; procedure SaveToFile(prefix:string); var name:string; begin name := prefix+'.'+ConnectName+'.'+DateToStr(Date)+'.'+TimeToStr(Time)+'.txt'; while Pos(':',name) <> 0 do begin name[Pos(':',name)] := '-'; end; m.Lines.SaveToFile(name); end; procedure Free; begin SaveToFile('ChatLog'); box.Free; every.Free; tm.Free; etext.Free; button.Free; penel.Free; m.Free; frm.Free; end; var tp:integer; var ct:string; var MessageCounter:integer; begin if _Name.Text = '' then _Name.Text := ConnectName; if FromServer and (ConnectName = _Name.Text) and (pck[1]=#$4a) then begin i:=10; name:=ReadS(i); message:=ReadS(i); tp := ReadD(6); ct := '???'; if tp = 0 then ct := 'GNR'; if tp = 8 then ct := 'TRD'; if tp = 3 then ct := 'PRT'; if tp = 4 then ct := 'CLN'; if tp = 9 then ct := 'ALY'; ct := DateToStr(Date) + ' '+ TimeToStr(Time) + ', '+ ct; if name='' then name:='pronouncing: '; m.Lines.Add('['+ct+'] '+Name+': '+message); if MessageCounter > MaxMessages then begin SaveToFile('Backup'); //m.Lines.Add('BACKUPED'); MessageCounter := 0; end; MessageCounter := MessageCounter+1; end; end. enjoy ;) P.s. Work only on c4-interlude.
  6. joogis right SPH realy most powerfull.
  7. I tested this script on the GP2 GF - does not work, the client Gracia I do not have unfortunately. Actually I would like to know what exactly does this script? takes aim on the PK? simply In scripts i wasn't very understanding.
  8. good share, ty. but is not "server bug", but rather just not close gaps administrator. I met a lot of bugs mostly it was a bug with the equipment or as in this case either the elixir restoring HP\mp\CP or scrolls with retractable penalty.
  9. not worked for me. when i relog nothing happens and cooldown time remains the same. but if pplz writing that works, i hope thats true. ty for ur share.
  10. on the local server worked!!! i'll going to test it on other server's, i'll give you results later. ty for share
  11. It is difficult, but i think i knew what it. Mb consolidate topic that others can ask help with translate without creating a lot of topics, with "the same" name? anyway ty for help.
  12. i found in this forum interesting topick but on greek language. who can translate it in english or better in russian? http://www.maxcheaters.com/forum/index.php?topic=59559.0 ty
  13. just download it instruction inside. P.s. if walker dont heal party members, just use script for wp-ppc: var PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer; PName,StatusPacket : String; BEGIN if _gFromServ then begin if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate begin ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP,PMaxMP,null,null); StatusPacket := FormatPck('%cdddddddddddddd',[$18,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]); gSys.EnSendC(StatusPacket); end; end; END. file save in *.fsc if u need translate instruction my pm allways open. Ty fo ur attention :)
  14. shock-world.com - not working, but share rly nice. ty.
  15. attention!!! new!!! 3 easiest step for start up wallker on interlude server!!! download it 1. in C:\windows\system32\drivers\etc\hosts type next lines: 127.0.0.1 vip.tt2xz.com 127.0.0.1 vip1.tt2xz.com 127.0.0.1 vip2.tt2xz.com 127.0.0.1 vip3.tt2xz.com 127.0.0.1 vip4.tt2xz.com 127.0.0.1 vip5.tt2xz.com 127.0.0.1 vip6.tt2xz.com 127.0.0.1 vip7.tt2xz.com 127.0.0.1 vip1.towalker.com 127.0.0.1 vip2.towalker.com 127.0.0.1 vip3.towalker.com 2. patches folder system 3. run L2.exe p.s. successful botting.
  16. [offtop] wtf? i cant understand what u said. at least translate it in english [move]P.s. 2 administration: if i want del my msg, how can i do it?[/move] [/offtop]
  17. если во время кача вы выбили херб на пополнение энергии, делайте тп в камаель вилледж и летите в любой алтарь, там много мобов... у за 4 минуты реал апнуть 4 лвл виталити. Работает вплоть до евро-оффа. Суть в том, что для пополнения виталити лвл мобов не важен, важно кол-во их трупов => чем больше убитых мобов тем больше виталити. А убивать проще мобов кучных и слабых. Удачи в экспериментах.
  18. Tell me server where you tryed and show me ur settings phx...
  19. you must go to the corect master.
  20. Если это баг с голосованием, то он стоил мне 3$ :) Но есть еще сервера где это работает.
  21. Anchor эта программка только с линейкой умеет работать? Логин\пароли берет из тхт файла?
  22. work in other chronicle too but you should change in pakege "D0".
  23. la.ru(official) - dont work. we need to write "/ n" space required for "cleaning chat" ;)
  24. download later l2controll i have 5.0 work on first try. Got here L2Control forum -> L2Control P.s. when registered he stopped working (not shown hp mob's, didn't use pots, etc.) so scrap every 10 days this Registry Trash Keys Finder, v 3.7.4 Got here Registry Trash Keys Finder (rus) At the moment, works flawlessly P.s.s. And takes Target nick and alarm played etc. generally all that must be. P.s.s.s. I play on the Russian official server(
×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..