Ok so sorry for all my questions i have been asking
But i cant under stand why i am getting this error. The error is
Code:
[Error] (84:19): Type mismatch at line 83
Compiling failed.
the function is
Simba Code:
Function FindMonster(ID:integer; TheName:String):Boolean;
Var
MonsterArray :TNPCArray;
MyPoint :TPoint;
I,x,y :Integer;
Begin
If R_FindNPCs(ID,False,MonsterArray) Then
Begin
MonsterArray := R_SortNPCs(MonsterArray)
For I := 0 To High(MonsterArray) Do
If Not MonsterArray[I].InCombat Then
If Not R_Animating Then
Begin
If R_TileOnMS(MonsterArray[I].Tile,0) Then
Begin
MyPoint := R_TileToMS(MonsterArray,0)
MMouse(MyPoint.x,MyPoint.y,RandomRange(-3,3),RandomRange(-3,3));
If WaitUptext(TheName,1200) Then
If Random(20) = 5 Then
Begin
GetMousePos(x,y);
Mouse(x,y,0,0,False);
If WaitOption('Attack') Then
Begin
Result := True
TrollWait(RandomRange(100,1000));
Exit;
End;
End Else Begin
GetMousePos(x,y);
Mouse(x,y,0,0,True);
Result := True
TrollWait(RandomRange(100,1000));
Exit;
End;
End;
End;
End;
End;
the line is the middle one
Simba Code:
MyPoint := R_TileToMS(MonsterArray,0)
MMouse(MyPoint.x,MyPoint.y,RandomRange(-3,3),RandomRange(-3,3));
If WaitUptext(TheName,1200) Then
how ever if i coment out the top line i dont get that error?
Thanks for any help and sorry for all the questions