SRL Archive - SRL Archives

FightMonster


Neonknight77

2006-04-16 20:50:48


Procedure FightMonster(MColor1,MColor2: Integer; PickUpBones: Boolean; MName: String);
Begin
If(FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5))And
FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5)Then
MMouse(X,Y,1,1);
If(IsUpText('Attack '+MName))Then
Begin
Sleep(100+Random(200));
Mouse(X,Y,1,1,True);
Flag;
Repeat
InFight;
Until Not(InFight) Or (GetHP<=7);
End;
If(GetHP<=7)Then
Begin
SetRun(True);
RunAwayDirection('S');
Logout;
Writeln('Lost too much HP');
TerminateScript;
End;
If(Not(PickUpBones=False))Then
Begin
If(Not(InFight))Then
Begin
If(FindColorSpiralTolerance(X,Y,BoneColor,MSX1,MSY1,MSX2,MSY2,10))Then
MMouse(X,Y,2,2);
If(IsUpText('Pick'))Then
Mouse(X,Y,1,1,True);
End;
End;
End;

phantombmx

2006-04-16 21:11:57

you could change the if(not(pickupbones=false))then to if(pickupbones=true)then

you are just makin it longer than it should be

Neonknight77

2006-04-16 21:20:02

Your point is?
I wanted it that way. Same thing…

Bebe

2006-04-16 21:34:29

if(not(pickupbones))
=False

if(pickupbones)
=true

Otherwise it is good, besides your standards, they really suck :p

Neonknight77

2006-04-16 21:37:39

Stop freaking talking about my standards. I don't care. It's starting to get annoying. If you don't like them, deal with it.
Thanks for the first comment :P

Renax

2006-04-16 22:09:09

Neon you really should calm down, life's to short to get frustrated at people. and we try to avoid more specific functions such as this. your standards are abit of but overall not bad.

WhiteShadow

2006-04-16 22:14:26

From: Renax
Neon you really should calm down, life's to short to get frustrated at people. and we try to avoid more specific functions such as this. your standards are abit of but overall not bad.


Agreed. Most people make their own fight procedures since their fairly simple.

In the part in this procedure the FindColorSpiralTolerance, I think using "or" instead of ''and'' would be Alot better.

Good commitment anyhow.

Neonknight77

2006-04-16 23:00:47

Well, I want it to search for both colors because I don't want it to find something else.

Pwnd

2006-04-16 23:02:51

From: Renax
Neon you really should calm down, life's to short to get frustrated at people. and we try to avoid more specific functions such as this. your standards are abit of but overall not bad.

Life is also to short to bitch about standards. That's why people don't worry about fixing them.

Neonknight77

2006-04-16 23:06:17

I mean it's only standards. If you can't read it learn how to read.

XxKanexX

2006-04-16 23:51:25

Looks a bit like myne. But it's good to see that my InFight function has come to use :rolleyes:

Renax

2006-04-17 11:13:56

life's also to short to care if i nag people about using standards :)

XxKanexX

2006-04-17 11:18:42

Lifes to short to be complaining about how short life is.

WhiteShadow

2006-04-17 21:20:39

From: XxKanexX
Lifes to short to be complaining about how short life is.


I don't think life is short at all. It's actually long, almost endless to me. :p

Pwnd

2006-04-17 21:31:19

From: XxKanexX
Lifes to short to be complaining about how short life is.

Contridictory phrase?

WhiteShadow

2006-04-17 21:35:39

From: Pwnd
Contridictory phrase?


Sp. Haha ;-P

XxKanexX

2006-04-17 21:55:37

From: WhiteShadow
I don't think life is short at all. It's actually long, almost endless to me. :p

Tell that to yourself when you're dead ;)

WhiteShadow

2006-04-17 22:04:54

From: XxKanexX
Tell that to yourself when you're dead ;)


When I'm dead I'll be nothing feel nothing. I <3 the neutralness. I'm suicidal very often now. Being crazy is a disease.

Or:

As they say Death is only the begining. I hope it's like that.

Mutant Squirrle

2006-04-17 22:08:14

so putting this back on topic…

i just glanced real quick but it seems kind of…. bad? you have RunDirection('S'); uh… wat if i cant run S :( what if i needa run … N