RPTools.net

Code: Select all

[h: TotalWins = 0]
[h: TotalFailures = 0]
[h: TotalSixes = 0]

[h: Input(
   "UnitRoll|1|Number of unit dice to roll",
   "UnitTN|2, 3, 4, 5, 6|Unit's Target Number|LIST|select=2 Value=string",
   "SgtRoll|1|Number of sergeant dice to roll",
   "SgtTN|2, 3, 4, 5, 6|Sergeant's Target Number|LIST|select=2 Value=string"
)]

<b>Unit's Target Number:</b> [r: eval("UnitTN")]<br>
<b>Unit's results:</b><br>
[count(UnitRoll), CODE:
{
  [Rawroll = 1d6]
  [h: UnitSix = IF(Rawroll == 6, 1, 0)]
  [h: UnitWin = IF(Rawroll >= UnitTN, 1, 0)]
  [h: UnitFail = IF(Rawroll < UnitTN, 1, 0)]
  [h: UnitSixs = TotalSixes + UnitSix]
  [h: UnitWins = TotalWins + UnitWin]
  [h: UnitFailures = TotalFailures + UnitFail]
}]<br>
[r: UnitWins] Successes (of which [r: UnitSixs] are 6s) and [r: UnitFailures] Failures<br>

<b>Sergeant's Target Number:</b> [r: eval("SgtTN")]<br>
<b>Sergeant's results:</b><br>
[count(SgtRoll), CODE:
{
  [Rawroll = 1d6]
  [h: SgtSix = IF(Rawroll == 6, 1, 0)]
  [h: SgtWin = IF(Rawroll >= UnitTN, 1, 0)]
  [h: SgtFail = IF(Rawroll < UnitTN, 1, 0)]
  [h: SgtSixs = TotalSixes + SgtSix]
  [h: SgtWins = TotalWins + SgtWin]
  [h: SgtFailures = TotalFailures + SgtFail]
}]<br>
[r: SgtWins] Successes (of which [r: SgtSixs] are 6s) and [r: SgtFailures] Failures<br>

Code: Select all

[h: Input(
   "UnitRoll|1|Number of unit dice to roll",
   "UnitTN|2, 3, 4, 5, 6|Unit's Target Number|LIST|select=2 Value=string",
   "SgtRoll|1|Number of sergeant dice to roll",
   "SgtTN|2, 3, 4, 5, 6|Sergeant's Target Number|LIST|select=2 Value=string"
)]

[h: UnitWins = 0]
[h: UnitFailures = 0]
[h: UnitSixs = 0]
[h: UnitOnes = 0]
[h: SgtWins = 0]
[h: SgtFailures = 0]
[h: SgtSixs = 0]
[h: SgtOnes = 0]

<b>Unit's Target Number:</b> [r: eval("UnitTN")]<br>
<b>Unit's results:</b><br>
[h, count(UnitRoll), CODE:
{
  [h: Rawroll = 1d6]
  [h: UnitSix = IF(Rawroll == 6, 1, 0)]
  [h: UnitWin = IF(Rawroll >= UnitTN, 1, 0)]
  [h: UnitFail = IF(Rawroll < UnitTN, 1, 0)]
  [h: UnitOne = IF(Rawroll == 1, 1, 0)]
  [h: UnitSixs = UnitSixs + UnitSix]
  [h: UnitOnes = UnitOnes + UnitOne]
  [h: UnitWins = UnitWins + UnitWin]
  [h: UnitFailures = UnitFailures + UnitFail]
}]
<span color="green">[r: UnitWins] Successes (of which [r: UnitSixs] are 6s)</span> and <span color="red">[r: UnitFailures] Failures (of which [r: UnitOnes] are 1s)</span><br>

<b>Sergeant's Target Number:</b> [r: eval("SgtTN")]<br>
<b>Sergeant's results:</b><br>
[h, count(SgtRoll), CODE:
{
  [h: Rawroll = 1d6]
  [h: SgtSix = IF(Rawroll == 6, 1, 0)]
  [h: SgtWin = IF(Rawroll >= UnitTN, 1, 0)]
  [h: SgtFail = IF(Rawroll < UnitTN, 1, 0)]
  [h: SgtOne = IF(Rawroll == 1, 1, 0)]
  [h: SgtSixs = SgtSixs + SgtSix]
  [h: SgtOnes = SgtOnes + SgtOne]
  [h: SgtWins = SgtWins + SgtWin]
  [h: SgtFailures = SgtFailures + SgtFail]
}]
<span color="green">[r: SgtWins] Successes (of which [r: SgtSixs] are 6s)</span> and <span color="red">[r: SgtFailures] Failures (of which [r: SgtOnes] are 1s)</span> 

Code: Select all

[h: Input(
   "AttackerBS|1|Attacker's BS"
)]
[h: Rawroll = 1d6]
[h: ScatDice = IF(Rawroll < 3, "Dead On", "Scattered")]
[h: ScatterInches = IF(Rawroll < 3, 0, 2d6 - AttackerBS)]
[h: ScatterInchesText = IF(Rawroll < 3, "", ScatterInches)]
[h: ScatterText = IF(Rawroll < 3, "", " inches<br>")]
[h: myAngle = 1d90]
[h: myRadians = divide(myAngle, 57.2958)]
[h: sinAngle = myRadians - divide(power(myRadians, 3),6)]
[h: sinAngle = sinAngle + divide(power(myRadians, 5),120)]
[h: sinAngle = sinAngle - divide(power(myRadians, 7),5040)]
[h: cosAngle = 1 - divide(power(myRadians, 2),2)]
[h: cosAngle = cosAngle + divide(power(myRadians, 4),24)]
[h: cosAngle = cosAngle - divide(power(myRadians, 6),720)]
[h: XMovement = IF(Rawroll < 3, 0, floor(multiply(ScatterInches,cosAngle,50)))]
[h: YMovement = IF(Rawroll < 3, 0, floor(multiply(ScatterInches,sinAngle,50)))]
[h: leftRight = 1d2]
[h: leftRight = IF(leftRight == 2, -1, 1)]
[h: upDown = 1d2]
[h: upDown = IF(upDown == 2, -1, 1)]
[h: myAngle = IF(upDown == -1, myAngle + 90, myAngle)]
[h: myAngle = IF(leftRight == -1, 360- myAngle, myAngle)]
[h: XMovement = multiply(XMovement,leftRight)]
[h: YMovement = multiply(YMovement,upDown)]
[h: ScatterAngle = myAngle]
[h: ScatterAngleText = IF(Rawroll < 3, "", ScatterAngle)]
[h: ScatterAnglePreText = IF(Rawroll < 3, "", "Angle: ")]
[h: ScatterAnglePostText = IF(Rawroll < 3, "", " degrees (0=East, 90=North, etc.)")]

Scatter Results: [ScatDice]<br>

[h: ids = getSelected()]
[foreach(id, ids), CODE: 
	{
	[h: CurrentX = getTokenX(1, id)]
	[h: CurrentY = getTokenY(1, id)]
	[h: NewX = CurrentX + XMovement]
	[h: NewY = CurrentY - YMovement]
	[h: moveToken(NewX, NewY, 1, id)]
	}
]

[ScatterInchesText][ScatterText]
[ScatterAnglePreText][ScatterAngleText][ScatterAnglePostText]