|
You last visited: Today at 10:53
Advertisement
[Error] (261:4): period ('.') expected in script
Discussion on [Error] (261:4): period ('.') expected in script within the Seafight forum part of the Browsergames category.
06/13/2014, 15:10
|
#1
|
elite*gold: 442 
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
[Error] (261:4): period ('.') expected in script
Writing a bot atm keep getting this ERROR([Error] (261:4): period ('.') expected in script ) guess it is caused by these lines:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy); //<-- Change Coords to your Healthbar position.
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
wait(100+random(10));
MoveMouse(rx,ry); //<-- Change Coords to Repairbutton position.
HoldMouse(rx,ry,true); //<-- Change Coords to Repairbutton position.
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
begin
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
ReleaseMouse(rx,ry,true);
end;
end;
begin
MoveMouse(hx,hy);
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true); //<-- Change Coords to Repairbutton position.
end;
end;
begin
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
ReleaseMouse(rx,ry,true);
end;
end;
"
If someone could help a little bit?  btw. My first try to write something like that before I just programmed a little bit in PASCAL.
~me :P
|
|
|
|
06/13/2014, 15:37
|
#2
|
elite*gold: 0
Join Date: Sep 2012
Posts: 76
Received Thanks: 52
|
Quote:
Originally Posted by delemojo
Writing a bot atm keep getting this ERROR([Error] (261:4): period ('.') expected in script ) guess it is caused by these lines:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy); //<-- Change Coords to your Healthbar position.
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
wait(100+random(10));
MoveMouse(rx,ry); //<-- Change Coords to Repairbutton position.
HoldMouse(rx,ry,true); //<-- Change Coords to Repairbutton position.
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
begin
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
ReleaseMouse(rx,ry,true);
end;
end;
begin
MoveMouse(hx,hy);
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true); //<-- Change Coords to Repairbutton position.
end;
end;
begin
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
ReleaseMouse(rx,ry,true);
end;
end;
"
If someone could help a little bit? btw. My first try to write something like that before I just programmed a little bit in PASCAL.
~me :P
|
remove "//<-- Change Coords to Repairbutton position." and try 
|
|
|
|
|
06/13/2014, 15:42
|
#3
|
elite*gold: 442
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
hmm still not working tried to re- arange things:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
wait(100+random(10));
MoveMouse(rx,ry);
HoldMouse(rx,ry,true);
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
begin
MoveMouse(hx,hy);
end;
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
or
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
|
|
|
|
|
06/13/2014, 15:59
|
#4
|
elite*gold: 0
Join Date: Jun 2012
Posts: 96
Received Thanks: 12
|
hmm still not working tried to re- arange things:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;<----- no ; after begin
wait(100+random(10));
MoveMouse(rx,ry);
HoldMouse(rx,ry,true);
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
begin
MoveMouse(hx,hy);
end;
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
or
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
and btw if you could tell : Which of all thos lines is line 261 it would be way easier....
|
|
|
|
|
06/13/2014, 16:10
|
#5
|
elite*gold: 442
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
Line 264: [Error] (264:4): period ('.') expected in script
btw. edited the <---no thing allready not on screenshot...
|
|
|
|
|
06/13/2014, 16:23
|
#6
|
elite*gold: 0
Join Date: Jun 2012
Posts: 96
Received Thanks: 12
|
hmm still not working tried to re- arange things:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
wait(100+random(10));
MoveMouse(rx,ry);
HoldMouse(rx,ry,true);
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then HoldMouse(rx,ry,true);
else begin
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true); end;
or //what do u want with this
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
changed a few thing but what do u want to do with this "or"
|
|
|
|
|
06/13/2014, 16:25
|
#7
|
elite*gold: 442
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
Quote:
Originally Posted by g_Sho
hmm still not working tried to re- arange things:
"
procedure findhealthbar(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
end;
procedure healthbarcheck1(var hx,hy:Integer);
begin
if (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
wait(100+random(10));
MoveMouse(rx,ry);
HoldMouse(rx,ry,true);
end;
end;
procedure healthbarcheck2(var hx,hy:Integer);
begin
MoveMouse(hx,hy);
wait(100+random(10));
if (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then HoldMouse(rx,ry,true);
else begin
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true); end;
or //what do u want with this
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
end;
changed a few thing but what do u want to do with this "or"
|
Allready an 'else' idk I just tested
|
|
|
|
|
06/13/2014, 16:27
|
#8
|
elite*gold: 0
Join Date: Jun 2012
Posts: 96
Received Thanks: 12
|
Quote:
Originally Posted by delemojo
Allready an 'else' idk I just tested
|
you mean else if ?
|
|
|
|
|
06/13/2014, 16:30
|
#9
|
elite*gold: 442
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
Quote:
Originally Posted by g_Sho
you mean else if ?
|
put it out completly:
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
end;
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
|
|
|
|
|
06/13/2014, 16:31
|
#10
|
elite*gold: 0
Join Date: Jun 2012
Posts: 96
Received Thanks: 12
|
Quote:
Originally Posted by delemojo
put it out completly:
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
end;
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin;
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
|
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
end;
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
its "begin" not "begin;"
|
|
|
|
|
06/13/2014, 16:35
|
#11
|
elite*gold: 442
Join Date: May 2012
Posts: 1,192
Received Thanks: 1,724
|
Quote:
Originally Posted by g_Sho
begin
If (Findcolortolerance(hx,hy,2568420 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then HoldMouse(rx,ry,true);
else
MoveMouse(rx,ry);
RealeaseMouse(rx,ry,true);
end;
begin
MoveMouse(hx,hy);
If (Findcolortolerance(hx,hy,29440 ,mmx1, mmy1, mmx2, mmy2, 30)=true)then begin
MoveMouse(rx,ry);
ReleaseMouse(rx,ry,true);
end;
its "begin" not "begin;"
|
found it like this in another script but I changed it
|
|
|
|
 |
Similar Threads
|
Isro ending sooner than expected?
07/21/2013 - SRO Private Server - 118 Replies
I don't know if any of you are visiting rev6 anymore, but this is quite interesting: Joymax Security Breach Confirmed
|
Expected an indented block
04/05/2013 - Metin2 Private Server - 0 Replies
Hey
Ich habe diesen Fehler:
0405 16:35:09994 ::
networkModule.py(line:194) SetSelectCharacterPhase
system.py(line:130) __pack_import
system.py(line:110) _process_result
introSelect.py(line:28) ?
system.py(line:130) __pack_import
|
**NEW*** eXpected Gaming *Recruiting Admins* [1.2.5][24/7][200 Slots] SURVIVAL ||
06/20/2012 - Minecraft Server Advertising - 0 Replies
**eXpected Gaming**
Server IP:
85.25.235.206:25565
|
Diablo pre order of CD key/ release expected/ news
01/01/2011 - Diablo 3 - 1 Replies
For those who need
i find the pre order their https://gamersloot.net/catalog/product_info.php?cP ath=269&products_id=2146
the release date will be probably on the middle/end of 2011 !!!
Last news there Diablo III
or on their FB page : Gamersloot.net | Facebook ( pic and daily news )
Tips
release date around july 2011 :mofo:
|
All times are GMT +1. The time now is 10:54.
|
|
![[Error] (261:4): period ('.') expected in script](https://www.elitepvpers.com/forum/iconimages/seafight/error-261-4-period-expected-script_ltr.gif){kind=small}
