klizmabeqa1992 Posted March 6, 2010 Share Posted March 6, 2010 Нашел скриптик на харде, кидает в вх две стопки, вдруг кому пригодится еще PHP код: var beg,id, id2,amount:string; SocialID, Status: Integer; procedure SendMsg(msg:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msg); SendToClient; end; begin if FromClient and (pck[1]=#$1B) then begin SocialID:=ReadD(2); case ord(pck[2]) of $06:begin Status:=1; SendMsg('ITS ON'); end; $05:begin Status:=0; SendMsg('ITS OFF'); end; end; end; if Status=1 then begin if FromClient and (pck[01]=#$31) then begin beg:=pck[01] + hstr('02') +pck[03]+pck[04]+pck[05]; id:=pck[06]+pck[07]+pck[08]+pck[09]; amount:=pck[10]+pck[11]+pck[12]+pck[13]; pck:=''; buf:=beg + id + amount + id + hstr('01000000'); SendToServer; end; if FromServer and (pck[01]=#$42) then begin beg:=hstr('3203000000'); id:=pck[38]+pck[39]+pck[40]+pck[41]; amount:=pck[20]+pck[21]+pck[22]+pck[23]; id2:=pck[78]+pck[79]+pck[80]+pck[81]; buf:=beg + id + amount + id2 + hstr('01000000')+ id2 + hstr('01000000'); SendToServer; end; end; end. Quote Link to comment Share on other sites More sharing options...
BleFF Posted April 13, 2011 Share Posted April 13, 2011 Не очень полезная вещь, но все же кому то пригодится (: Quote Link to comment Share on other sites More sharing options...
32sm Posted March 10, 2012 Share Posted March 10, 2012 разжуйте как пользоваться, какие хроники? Quote Link to comment Share on other sites More sharing options...
JaysonX Posted May 1, 2012 Share Posted May 1, 2012 Это на ц4,на интерлюде не получается кинуть 2 стопки в ВХ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.