Forum :: Programming :: Help with a Scar divi script

Sorry not sure if this is where this should be posted haveing some troble with this keeps walking into monsters if turned that dir already any help would be great thanks

Program AMMH;
var www,y1,x1,hitcount,z,w,HitCountReset,Facing,TargetDir,people,monster,
hpcolor,x,y,monstercount,monsters,Ice_cold,Icyhawt,exp,clicker,Facing,Tapped:int​eger;
const
user=''; //username
pass=''; //password
Procedure ReadString(str: String);{by rena: START}
var
i,strLength :Integer;
goer: Boolean;
begin
i:=1
strLength:=Length(str)
goer:=False
while(i<strLength+1) do
begin
if(GetKeyCode(StrGet(str,i))=191)then
begin
KeyDown(16)
goer:=True
i:=i+1
end;
KeyDown(GetKeyCode(StrGet(str,i)))
wait(50)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(100)
KeyUp(GetKeyCode(StrGet(str,i)))
wait(50)
i:=i+1
if(goer=True)then
begin
KeyUp(16)
wait(600)
end;
end;
wait(300)
end;{by rena: END}
procedure w2(ww:integer); //1=butterflys
begin //2=nutvipers1
www:=ww*100 //3=nutvipers2
repeat
www:=www-100
cleardebug
writeln('Waiting: '+ inttostr(www/100))
wait(210)
until www=0
end;
procedure MoveSpot; // tells if monster is ontop of you
begin
If Findcolor(x,y,255,518, 307,518, 308) //red color please move//
then
begin
keyup(17);
keydown(37);
wait(50);
keyup(37);
wait(50);
keydown(39);
wait(50);
keyup(39);
end
end;
procedure AttackUp;//relog procedure/////////////////////
begin
If Findcolor(x,y,16765600,598, 310,598, 311)
then
begin
clickmouse(633, 12,true)
end
end;
procedure relog;//relog procedure/////////////////////
begin
if (not(user='no relog')) then
begin
writeln('wat?')
w2(2)
keyup(50)
wait(20)
clickmouse(600,50,true)
wait(200)
clickmouse(323,224,true)
wait(1500)
begin
clicker:=0;
keydown(120)
wait(50)
keyup(120)
wait(100)
keyup(120)
wait(100)
MoveSpot
wait(200)
findwindowtitlepart('EO Remake v36', false);
activateclient
wait(500)
repeat
clickmouse(110,369,true)
w2(2)
clickmouse(434, 235,true)
until(FindColorspiral2(x,y,255,370, 335,370, 355))
or
(findcolorspiral(x,y,10276608,435,317,435,317))
end
begin
if(findcolorspiral(x,y,10276608,435,317,435,317))then
clickmouse(435,317,true)
wait(500)
end
if(findcolorspiral(x,y,255,18,382,19,382)=false)
then
repeat
clickmouse(110,369,true)
w2(2)
until(FindColorspiral2(x,y,255,370, 335,370, 355)) or
(findcolorspiral(x,y,10276608,435,317,435,317))
begin if(findcolorspiral(x,y,10276608,435,317,435,317))then
clickmouse(435,317,true)
wait(500)
clickmouse(110,369,true)
w2(2)
end
begin
repeat
w2(2)
clickmouse(184,370,true)
clickmouse(413,351,true)
wait(20)
ReadString(user)
wait(1500)
clickmouse(430,391,true)
w2(2)
wait(1500);
ReadString(pass)
clickmouse(408,435,true)
wait(300)
clickmouse(371,318,true)
wait(500)
until(findcolorspiral(x,y,people,402,143,402,143))
end
begin
repeat
clickmouse(408,435,true)
w2(2)
until(findcolorspiral(x,y,people,402,143,402,143))
end
repeat
w2(5)
until(findcolorspiral(x,y,people,402,143,402,143))
clickmouse(540,130,true)
w2(5)
keyup(17)
Ice_cold:=Icyhawt
monsters:=monstercount+1
end
end;
//end relog procedure////////////////////////////////////

var mode:string;
procedure ScriptStatus2;
begin
cleardebug;
writeln(mode)
writeln('Hits:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir)+' - Monsters:'+ inttostr(monsters)+' - Antifreeze:'+ inttostr(Ice_cold))
if(clicker=0)and(findcolorspiral(x,y,255,41,490,41,490))
then
begin
wait(500)
clickmouse(79,468,true)
clicker:=1
end
if findwindowtitlepart ('EO Remake v36', false)then begin activateclient;wait(500)end
else
end;
procedure check_dc;
begin
if(FindColorSpiral(x1, y1, 10276608, 30, 55, 619, 328))then
begin
wait(500)
clickmouse(434,235,true)
relog
keydown(120)
wait(20)
keyup(120)
wait(120)
end
end;
procedure ScriptStatus;
begin
cleardebug;
writeln(mode)
writeln('Hits:'+ inttostr(hitcount)+' - Facing:'+inttostr(facing)+' - Target:'+
inttostr(TargetDir)+' - Monsters:'+ inttostr(monsters)+' - Antifreeze:'+ inttostr(Ice_cold)
+' - Script Made By Yupe')
check_dc
if(clicker=0)and(findcolorspiral(x,y,255,41,490,41,490))
then
begin
wait(300)
end
if (user='no relog')
then
begin
writeln('Might as well terminate script, no relog available')
writeln('Terminating script, KBAI')
terminatescript
end
if findwindowtitlepart ('EO Remake v36', false)then begin activateclient;wait(500)end
else
end;
Procedure Monstercounter;
begin
monsters:=monsters-1
scriptstatus
if monsters<1 then begin
keydown(49)
wait(50)
keyup(49)
Wait(50)
keyup(120)
wait(200)
keyup(120)
relog
keydown(120)
wait(200)
keyup(120)
wait(200)
keyup(120)
Ice_cold:=Icyhawt
monsters:=monstercount
end
end;
Procedure NextArrow;
begin
hitcount:=hitcount-1
wait(5)
if hitcount<0 then begin
Keyup(17);wait(50);Keyup(17);wait(200);
sendarrowwait(TargetDir, 2) Facing:=TargetDir
hitcount:=HitCountReset keydown(17) end
end;
Procedure Antifreeze;
begin
Ice_cold:=Ice_cold-1
wait(50)
scriptstatus
if Ice_cold<0 then begin
keyup(50)
wait(50)
keydown(49)
wait(50)
keyup(49)
wait(199)
keyup(120)
wait(200)
keyup(120)
relog
keydown(120)
wait(200)
keyup(120)
wait(200)
keyup(120)
monsters:=monstercount
Ice_cold:=Icyhawt
monsters:=monsters+1
end
end;
Procedure autopot;
begin
if(findcolorspiral(x,y,hpcolor,198,28,198,29))
and(findcolorspiral(x,y,monster,240,140,406,231)=false)
then
begin
wait(100)
repeat
wait(50);
keydown(114)
Wait(50)
keyup(114)
wait(50);
keydown(114)
Wait(50)
keyup(114)
until(findcolorspiral(x,y,hpcolor,198,28,198,29)=false)
or(findcolorspiral(x,y,monster,240,140,406,231))
end
end;
Procedure heal;
begin
if(findcolorspiral(x,y,hpcolor,161,28,161,29))
and(findcolorspiral(x,y,monster,240,140,406,231)=false)
then
begin
wait(100)
repeat
wait(100);
keydown(119)
Wait(100)
keyup(119)
wait(100);
keydown(119)
Wait(100)
keyup(119)wait(100);
keydown(119)
Wait(100)
keyup(119)wait(100);
keydown(119)
Wait(100)
keyup(119)wait(100);
keydown(119)
Wait(100)
keyup(119)wait(100);
keydown(119)
Wait(100)
keyup(119)
wait(100);
keydown(119)
Wait(100)
keyup(119)
scriptstatus
until(findcolorspiral(x,y,hpcolor,161, 28,161,29)=false)
or(findcolorspiral(x,y,monster,240,140,406,231))
end
end;
procedure left;
begin
If FindColor(x,y,11218739,119, 117,119, 118)
then
begin
keydown(37);
keyup(37);
keydown(17)
wait(500);
repeat
Until (Not(FindColor(x,y,11218739,119, 117,119, 118)))
Keyup(17);
wait(500);
Keyup(17);
wait(500);
clickmouse(290, 198,true)
wait(100);
clickmouse(354, 197,true)
wait(100);
clickmouse(354, 230,true)
wait(100);
clickmouse(290, 229,true)
wait(100);
keydown(38);
keyup(38);
wait(1000);
end;
end;
procedure right;
begin
If FindColor(x,y,10691371,127, 127,127, 128)
then
begin
keydown(39);
keyup(39);
keydown(17)
wait(500);
repeat
Until (Not(FindColor(x,y,10691371,127, 127,127, 128)))
Keyup(17);
wait(500);
Keyup(17);
wait(500);
clickmouse(290, 198,true)
wait(100);
clickmouse(354, 197,true)
wait(100);
clickmouse(354, 230,true)
wait(100);
clickmouse(290, 229,true)
wait(100);
keydown(40);
keyup(40);
wait(1000);
end;
end;
procedure up;
begin
If FindColor(x,y,9901851,128, 118,128, 119)
then
begin
keydown(38);
keyup(38);
keydown(17)
wait(500);
repeat
Until (Not(FindColor(x,y,9901851,128, 118,128, 119)))
Keyup(17);
wait(500);
Keyup(17);
wait(500);
clickmouse(290, 198,true)
wait(100);
clickmouse(354, 197,true)
wait(100);
clickmouse(354, 230,true)
wait(100);
clickmouse(290, 229,true)
wait(100);
keydown(39);
keyup(39);
wait(1000);
end;
end;
procedure down;
begin
If FindColor(x,y,9638683,120, 127,120, 128)
then
begin
keydown(40);
keyup(40);
keydown(17)
wait(500);
repeat
Until (Not(FindColor(x,y,9638683,120, 127,120, 128)))
Keyup(17);
wait(500);
Keyup(17);
wait(500);
clickmouse(290, 198,true)
wait(100);
clickmouse(354, 197,true)
wait(100);
clickmouse(354, 230,true)
wait(100);
clickmouse(290, 229,true)
wait(100);
keydown(37);
keyup(37);
wait(1000);
end;
end;
procedure Mage;
begin
If FindColorSpiral(x,y,4748440,15,65,625,332)then
begin
Keydown(113)
Wait(5)
ClickMouse(x,y,True)
Wait(100)
end
end;
procedure settings; begin end;{v---Down below(settings)}
begin
writeln(' ')
wait(1000)
findwindowtitlepart('EO Remake v36',false)
activateclient
{MAKE SURE DATE/TIME PROPERTIES IS OPEN!!!!!}
{---Hotkeys should be
{Hotkey #1 should be +1 and set on "1"}
{Hotkey #2 should be +Whatever and set on "2"}
{Hotkey #3 should be +5.27 and set on "f7"}
{----------------------------------------------------------------}
//Personal settings
HitCountReset:=50000000
Monstercount:=100000000000000 //How many monsters to kill before automatically relogging
Icyhawt:=100 //Anti-freeze, justify how long of a wait it is,
//and enter how long you would like it to be, etc 1
people:=55287;//Yellow stuff that is on people in the eobots client, or w/e
hpcolor:=12643; //The blue HP bar stuff
monster:=131847; //You know this.
//Username/Password input can be found at top
{---------------------------------------------------------------}
{What may need editing:
Check_dc
Potions
Heal
Relog
Mabye a few other things
}
repeat
left
right
up
down
MoveSpot
until(false)
end.

I don't think anyone can help you with this.
If you need a working melee mage script, i can give you one.

---
Remember when is not an organization nor a fucking group , it's simply an idea that we believe in
and live for.
The priority of Remember when should come before oxygen , as oxygen is cosmetic even life itself is
cosmetic,that's why offer our worthless lives to The "Remember when"

Im not sure but if i remember correctly you cant make it press 1 key then another instantly you need a wait (???) example:

procedure right;
begin
If FindColor(x,y,10691371,127, 127,127, 128)
then
begin
keydown(39);

wait(4);   <---- Adds a little pause between pressing the right arrow then releasing it.

keyup(39);
keydown(17)
wait(500);
repeat
Until (Not(FindColor(x,y,10691371,127, 127,127, 128)))
Keyup(17);
wait(500);
Keyup(17);
wait(500);
clickmouse(290, 198,true)
wait(100);
clickmouse(354, 197,true)
wait(100);
clickmouse(354, 230,true)
wait(100);
clickmouse(290, 229,true)
wait(100);
keydown(40);
keyup(40);
wait(1000);
end;
end;

But if that isn't the problem then the problem is the colours.

---
"Do not take life too seriously. You will never get out of it alive."

Its turns l r u d all fine but useing it on EOR with Goust hack witch walk in the monsters is a hassle example being if turned left already and monster walk up on the left i walk inside of it i need to make it so if its turned left it knows it and has no need to key down left key but instead just start attacking gousting needed for when timmer on attacking is up so i dont start missing unless i can make it know to walk the direction witch no monster is there and step back

Well you'll need to add a feature for detection what way you are facing in the attack procedure so that if you are facing left it will not turn.

I would attempt this but i haven't got SCAR anymore nor able to test it on anything.

--------------Edit------------

Or you could use a feature like what i made in my old dragons script for EO Test

Procedure Gtfo;
Begin
If Findcolor(x,y,Monster,306,173,312,189)
Then
Begin
Keydown(123)
Wait(300)
Keyup(123)
Wait(200)
Sendarrowwait(randomrange(0, 3), 400)
Targetdir:=5
End
End;

Basically this checks if there is a monster stood inside you and if there is it will hit refresh and walk a random direction then reset it's direction.

---
"Do not take life too seriously. You will never get out of it alive."

Alright thanks il give that a try might be hard cant patch eor but still worth a try into it

thoguth about it after trying and it didnt work on all monsters imma make it notice that heath keeps droping when not attacking and move then move back hopefully that will work