As a GM I don't really care about the exact rolls for my NPCs, I just want to quickly know how many hits and glitches I got.
That being said, I created this vbscript to automate dice rolling for SR4.
Simply copy and save the code into a blank txt file on your Windows PC and change the file extension from .txt to .vbs
Double click it and it will handle the rest.
Y = 6
Do Until Y <> 6
D = inputbox("Enter the number of dice you want to roll","SR4 Dice Roller 1.0",0)
If D = "" or D = "0" then
wscript.quit
End If
Set objRandom = CreateObject( "System.Random" )
Hits = 0
Glitches = 0
For i = 1 to D
x = objRandom.Next_2( 1, 6 )
If x > 4 then
Hits = Hits + 1
End If
If x = 1 then
Glitches = Glitches + 1
End If
Next
If Hits = 0 AND Glitches >= D/2 Then
msgbox"YOU GOT A CRITICAL FAILURE!!!" & vbcrlf & Glitches & " Glitches rolled!",,"SR4 Dice Roller 1.0"
Else
msgbox"You got " & Hits & " Hits and " & Glitches & " Glitches.",,"SR4 Dice Roller 1.0"
End If
Y = msgbox("Do you want to roll again?",vbYesNo,"SR4 Dice Roller 1.0")