RPGDialog - NPC interaction system

RewardItem(FlameThrower_01,1)RewardItem(FlameThrowerAmmo_01,500)RewardItem(Pistol_01,1)RewardItem(PistolAmmo_01,34)SayChat("Thank you for completing that for me.")-

Change:
           %ActionEnd=strpos(%line,")")+1;
To This:
           %ActionEnd=strpos(%line,"-")+1;

Change:
            %ActionEnd=strpos(%line2,")")+1;
To This:
            %ActionEnd=strpos(%line2,"-")+1;

function serverCmdRPGDialogAnswer(%client,%sender,%questionNumber,%answerNumber)
{
   if(%client==%sender.RPGDialogTalkingTo)
   {
      %npcFile=%sender.RPGDialogScript;

      %Actions=GetAction(%npcFile,%questionNumber);

      if(%Actions!$="<InvalidQuestion>")
      {
         if(strPos(%answerNumber,"QL")>=0)
         {
            %ActionHeaderSize=strlen("<"@%answerNumber@">");
            %NextActionHeaderSize=strlen("<"@getSubStr(%answerNumber,2,strLen(%answerNumber))+1@">");
            %ActionStart=strPos(%Actions,"<"@%answerNumber@">")+%ActionHeaderSize;
            %ActionEnd=strPos(%Actions,"<"@getSubStr(%answerNumber,2,strLen(%answerNumber))+1@">");
         }
         else
         {
            %ActionHeaderSize=strlen("<"@%answerNumber@">");
            %NextActionHeaderSize=strlen("<"@%answerNumber+1@">");
            %ActionStart=strPos(%Actions,"<"@%answerNumber@">")+%ActionHeaderSize;
            %ActionEnd=strPos(%Actions,"<"@%answerNumber+1@">");
         }


         if(%ActionEnd>=0)
         {
            %ActionEnd=%ActionEnd-%ActionStart;
         }
         else
         {
            %ActionEnd=strlen(%Actions);
         }

         // BrokeAss Games Multi-Response Add-On
         %SubActions=getSubStr(%Actions,%ActionStart,%ActionEnd);

      for(%i=1;%i<%ActionEnd;%i++){

         %ParamStart=strPos(%SubActions,"(")+1;
         %ParamEnd=strPos(%SubActions,")")-%ParamStart;
         %Param=getSubStr(%SubActions,%ParamStart,%ParamEnd);

         %Action=getSubStr(%SubActions,0,%ParamStart-1);
         //echo("SubActions: " @ %SubActions); //Parser Debugging
         //echo("Action: " @ %Action @ " Param: " @ %Param); //Parser Debugging

         if(%Param!$="")
         {
            eval(%Action@"("@%Param@","@%client@","@%sender@",\""@%npcFile@"\");");
            %SubActions=getSubStr(%SubActions,%ParamEnd+%ParamStart+1,%ActionEnd);
         }
         else
         {
            eval(%Action@"("@%client@","@%sender@",\""@%npcFile@"\");");
            %SubActions=getSubStr(%SubActions,%ParamEnd+%ParamStart+1,%ActionEnd);
         }

         if(%SubActions$="-")
         {
            break;
         }

        } // End Multi-Response Add-On
      }
      else
      {
      echo("ERROR::Invalid Question/Answer!!\nnpcFile = "@%npcFile@"\nquestionNumber = "@%questionNumber);
      }
   }
}

//<ActionList>SellItem(Item,Price,Currency,Amount)
function SellItem(%item,%price,%currency,%amount,%client,%sender,%npcFile)
{
   if(%client.player.getInventory(%currency) >= %price){
   %client.player.incInventory(%item, %amount);
   %client.player.decInventory(%currency, %price);
   %sender.player.incInventory(%currency, %price);
   messageClient(%client, 'SellItem', '\c1You have purchased %1 %2(s) for %3 %4 from %5.',%amount,%item,(%price*%amount),%currency,%sender.name);
   } else {
   messageClient(%client, 'SellItem', '\c1You do not have %3 %4 to buy %1 %2(s) from %5.',%amount,%item,(%price*%amount),%currency,%sender.name);
   }
   //CloseDialog(%client,%sender,%npcFile);
}
//<ActionList>BuyItem(Item,Price,Currency,Amount)
function BuyItem(%item,%price,%currency,%amount,%client,%sender,%npcFile)
{
   if(%client.player.getInventory(%item) >= %amount){
   %client.player.decInventory(%item, %amount);
   %client.player.incInventory(%currency, %price);
   %sender.player.decInventory(%currency, %price);
   messageClient(%client, 'BuyItem', '\c1You have sold %1 %2(s) for %3 %4 to %5.',%amount,%item,(%price*%amount),%currency,%sender.name);
   } else {
   messageClient(%client, 'BuyItem', '\c1You do not have %1 %2(s) to sell for %3 %4 to %5.',%amount,%item,(%price*%amount),%currency,%sender.name);
   }
   //CloseDialog(%client,%sender,%npcFile);
}
//<ActionList>GiveItem(Item,Amount)
function GiveItem(%item,%amount,%client,%sender,%npcFile)
{
   if(%sender.player.getInventory(%item) >= %amount){
   %client.player.incInventory(%item, %amount);
   %sender.decInventory(%item, %amount);
   messageClient(%client, 'GiveItem', '\c1%3 has given you %1 %2(s).',%amount,%item,%sender.name);
   } else {
   messageClient(%client, 'TakeItem', '\c1%3 does not have %1 %2(s) to give you.',%amount,%item,%sender.name);
   }
   //CloseDialog(%client,%sender,%npcFile);
}
//<ActionList>TakeItem(Item,Amount)
function TakeItem(%item,%amount,%client,%sender,%npcFile)
{
   if(%client.player.getInventory(%item) >= %amount){
   %sender.player.incInventory(%item, %amount);
   %client.decInventory(%item, %amount);
   messageClient(%client, 'TakeItem', '\c1You have given %1 %2(s) to %3.',%amount,%item,%sender.name);
   } else {
   messageClient(%client, 'TakeItem', '\c1You do not have %1 %2(s) to give to %3.',%amount,%item,%sender.name);
   }
   //CloseDialog(%client,%sender,%npcFile);
}
//<ActionList>RewardItem(Item,Amount)
function RewardItem(%item,%amount,%client,%sender,%npcFile)
{
   %client.player.incInventory(%item, %amount);
   messageClient(%client, 'RewardItem', '\c1You have been rewarded %1 %2(s) by %3.',%amount,%item,%sender.name);
   //CloseDialog(%client,%sender,%npcFile);
}
//<ActionList>SayChat(ChatMessage)
function SayChat(%chatmessage,%client,%sender,%npcFile)
{
   messageClient(%client, 'SayChat', '\c1%1 Says: %2',%sender.name,%chatmessage);
   //CloseDialog(%client,%sender,%npcFile);
}