Add(MainForm,1351679,147,210)
{
 Width=695
 Height=561
}
Add(WebBrowser,15563951,329,49)
{
 Left=5
 Top=85
 Width=665
 Height=430
 URL="http://www.igra3k.ru/"
 Point(PHandle)
 Point(doFromText)
 Point(Handle)
}
Add(InlineCode,5978023,343,224)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,9526444:Var2,[])
 link(name,15375584:Text,[(356,194)(363,194)])
 link(value,12692327:Text,[(363,207)(407,207)])
}
Add(Edit,15375584,357,154)
{
 Left=10
 Top=5
 Width=135
 Text="signin[login]"
}
Add(Edit,12692327,401,155)
{
 Left=155
 Top=5
 Width=135
 Text="privet"
}
Add(Button,3488175,231,224)
{
 Left=295
 Top=5
 TabOrder=-1
 Caption="Set"
 link(onClick,5978023:Parsel,[])
}
Add(InlineCode,4357583,329,357)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|100:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = ToStringEvent(name) then|76://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|98:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,9526444:Var1,[(335,208)])
 link(name,3057939:Text,[(342,327)(349,327)])
 link(value,6191608:Text,[(349,340)(393,340)])
}
Add(Edit,3057939,343,287)
{
 Left=10
 Top=30
 Width=135
 Text="signin[password]"
}
Add(Edit,6191608,387,288)
{
 Left=155
 Top=30
 Width=135
 Text="privet"
}
Add(Button,16300376,217,357)
{
 Left=295
 Top=30
 TabOrder=-1
 Caption="Set"
 link(onClick,4357583:Parsel,[])
}
Add(GetDataEx,9526444,343,203)
{
 link(Data,149976:Var2,[])
}
Add(InlineCode,15424916,315,497)
{
 WorkPoints=#6:Parsel|
 DataPoints=#2:ph|4:name|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    ph:THI_Event;|19:    name:THI_Event;|20:    value:THI_Event;|0:|47:    procedure Parsel(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|29:procedure THiAsmClass.Parsel;|16:var pc:PControl;|15:    txt:string;|14:    i:integer;|5:begin|36: pc := PControl(ToIntegerEvent(ph));|80: for i:=0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length-1 do|102:  if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value = ToStringEvent(value) then|74:    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).focus;|100://    PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value := ToStringEvent(value);|4:end;|0:|4:end.|
 link(ph,149976:Var1,[(321,187)])
 link(value,4667223:Text,[(335,474)(379,474)])
}
Add(Edit,4667223,373,428)
{
 Left=155
 Top=60
 Width=135
 Text="Начать игру"
}
Add(Button,15211543,203,497)
{
 Left=295
 Top=60
 TabOrder=-1
 Caption="Set"
 link(onClick,5233014:doEvent1,[])
}
Add(GetDataEx,149976,343,182)
{
 link(Data,15563951:PHandle,[])
}
Add(Hub,5233014,266,497)
{
 link(onEvent1,15424916:Parsel,[])
 link(onEvent2,9754410:doPress,[(305,510)(305,538)])
}
Add(KeyEvent,9754410,434,532)
{
 Code=32
 link(Handle,15563951:Handle,[(440,145)(356,145)])
}