Forward fix

This commit is contained in:
mysticbbs 2013-04-22 13:38:35 -04:00
parent 4c66c491d9
commit aece754baa
1 changed files with 2 additions and 2 deletions

View File

@ -117,7 +117,7 @@ Var
// areafix etc here
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
For Count := 1 to 50 Do
For Count := 1 to ForwardSize Do
If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';');
@ -418,4 +418,4 @@ Begin
ProcessResult (rDONE, True);
End;
End.
End.