alloz se olous!loipon brika ena script me to opio mporis na spammareis oso thes akoma kai sto hv!

 

Video:

 

to video einai apo to L2 DW!

 

var
 m: TMemo;
 frm:TForm;
 penel: TPanel;
 etext:  tedit;
 button: tbutton;
 i: Integer;
 Message, Name: String;

procedure SendMs(Sender: TButton);
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);
   SendToServer;
 end;
end;

procedure Init;
begin
 frm := TForm.Create(nil);
 frm.Caption := 'Chat';
 frm.BorderStyle := bsSizeable;
 frm.Position := poScreenCenter;
 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:=24;
 button:=tbutton.Create(penel);
 button.parent:=penel;
 button.align:=alRight;
 button.caption:='Ïîñëàòü';
 button.onClick:=@SendMs;
 etext:=tedit.Create(penel);
 etext.parent:=penel;
 etext.align:=alClient;
 frm.Show;
end;

procedure Free;
begin
 etext.Free;
 button.Free;
 penel.Free;
 m.Free;
 frm.Free;
end;

begin
if FromServer and (pck[1]=#$4a) then
 begin
   i:=10;
   name:=ReadS(i);
   message:=ReadS(i);
   if name='' then name:='Îáüÿâëåíèå';
   m.Lines.Add(Name+': '+message);
 end;
end.

 

bazete phx. pate scripts. to kane load. meta to kanete "tick" kai sas bgazei ena new window. ekei akribos grafete afto p thelete kai spammarete oso thelete.

 

Credits: www.coderx.ru

ppc man its joke ? its not need 250 hide.

ppc man its joke ? its not need 250 hide.

 

[ENG]

1) We're in greek section so speak greek.

2) Dont undig topics.

«  on: August 04, 2009, 05:08:50 PM »

 

And btw the hide was ok when the vid was made, as it was working in DW.

wraios gerero.Alla apo oti kserw yparxei kai poio eukolo kolpaki gia to spam.Apla pas ekei pou leei to phx perissotera(gia advance) i sta agglika more(advanve) kai svineis stin 3i seira pou leei hello to mnm sou kai patas run.Tha deis oti kai etsi dn trws pali chat ban. :p

eleos 250 posts k dw?

pedia ayto mi to kanete einai entelos spastiko kai den einai bug einai gia kompleksikous plz :)

mou vgazi la8os stin grami   button.align:=alRight;        

ti kano tora? :D

 

ekdosi phx 3.5.126.148

Sovaro script gia 250 posts....

hahahha..

re pedia elleos...................

To mminima pou fenete sto chat to vlepete mono esis ayto kai oxi i aloi pektes tou server

dokimasmeno se polous server..

ektos kai an exete diaforetiko script apo ayto pou kikloforei.

re to exo kai egw auto to Script ok kanis spam kai ta lipa omos mporis na to kanis kai alios omos na grapsis kati kai paris to Script tis protasis kai na patisis 1msec send event tcpa ama mporesis na vris kana script na milas HV gia na milame xoris na imaste hero kala 8a ine

 

Chech file dn mporis na milisis Hv :S to aplo chat milas