Shooterready.com calc

[usmiv4o]

once upon a time i found this site:

http://www.shooterready.com/

there was simulator for long range snipers up to 2000 Feets

so i search for .torrent and found one with full CD for free muttley

torrent : http://www.mininova.org/tor/565838

so i try to write a help calculator

expandcollapse popup

#include <GUIConstants.au3>


    $Reading = 0.0
    $Result = 0.0
    $Size = 0.0
    $Reading = 0.0  

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ShootersReady.com Calc by Usmiv4o", 184, 388, 193, 125)
$Up = GUICtrlCreateLabel("Up", 14, 40, 105, 17)
$Rang = GUICtrlCreateLabel("Range", 14, 72, 100, 17)
$Wnd = GUICtrlCreateLabel("Wind", 14, 108, 120, 17)

;$Distance1 = GUICtrlCreateInput("Distance1", 40, 40, 105, 21)
;$Fall1 = GUICtrlCreateInput("Fall1", 40, 72, 105, 21)
;$Wind1 = GUICtrlCreateInput("Input1", 40, 108, 105, 21)
;$Distance2 = GUICtrlCreateInput("Input2", 40, 140, 105, 21)
;$Fall2 = GUICtrlCreateInput("Input1", 40, 177, 105, 21)

$Win = GUICtrlCreateInput("Wind", 42, 212, 105, 21)
$Siz = GUICtrlCreateInput("Size", 42, 244, 105, 21)
$Readin = GUICtrlCreateInput("MillDotReading", 42, 280, 105, 21)

$BTN = GUICtrlCreateButton("C", 120, 320, 49, 25, 0)

;$Wind = GUICtrlCreateLabel("Wind", 24, 360, 29, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



    $msg = 0
While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
Select
        
Case $msg = $btn
    Sleep (1000)    
    $inch = 25.4
    $Size = GUICtrlRead($Siz)
    $Reading = GUICtrlRead($Readin)
    $Range = GUICtrlRead($Rang) 
    
    ConsoleWrite ($Size & " Size" & @CRLF)
    ConsoleWrite ($Reading & " Reading " & @CRLF)

    $Result = ($Size * $inch) 
    $Result = ($Result / $Reading)
;MsgBox(4096, "drag drop file", $Result)
    
    $Result = Round ($Result, 2)
    ConsoleWrite ($Result & " Range [m]" & @CRLF)
    GUICtrlSetData($Rang, "Range " & $Result & " [M]")
    
;MsgBox(4096, "drag drop file", $Result)

    $Distance = Round($Result / 100) * 100
    ConsoleWrite ($Distance & " Distance rounded [m]" & @CRLF)
    if $Result > $Distance Then
        $Distance1 = $Distance
        $Distance2 = $Distance + 50 
        ConsoleWrite ($Distance1 & " $Distance1 [M]" & @CRLF)
        ConsoleWrite ($Distance2 & " $Distance2 [M]" & @CRLF)
    Else
        $Distance2 = $Distance
        $Distance1 = $Distance - 50 
        ConsoleWrite ($Distance1 & " $Distance1 [M]" & @CRLF)
        ConsoleWrite ($Distance2 & " $Distance2 [M]" & @CRLF)       
    EndIf
    
    
    $DistanceDiference =  $Result - $Distance1
    $DistanceDiference = $DistanceDiference / 100
        ConsoleWrite ($DistanceDiference & " DistanceDiference [%]" & @CRLF)    
    
    $Fall1 = IniRead(@ScriptDir & "\SH.ini", $Distance1,  "E", "NotFound")
        ConsoleWrite ($Fall1 & " Fall1 [MOA]" & @CRLF)
    $Fall2 = IniRead(@ScriptDir & "\SH.ini", $Distance2,  "E", "NotFound")
        ConsoleWrite ($Fall2 & " Fall2 [MOA]" & @CRLF)  
        
        


    
    $Fall1Diference = $Fall2 - $Fall1
        ConsoleWrite ($Fall1Diference & " $Fall1Diference [Click]" & @CRLF)     
    $Fall = $Fall1Diference * $DistanceDiference
    $Fall = $Fall1 + $Fall  
        ConsoleWrite ($Fall & " Fall [Click]" & @CRLF)      

    GUICtrlSetData($Up, "Up " & $Fall & "[Cl]");Write Fall Corection
    

;WIND
    $Wind = GUICtrlRead($Win)   
        ConsoleWrite ($Wind & " Wind [Inch]" & @CRLF)       
    $Wind1 = IniRead(@ScriptDir & "\SH.ini", $Distance1,  "W", "NotFound")
        ConsoleWrite ($Wind1 & " Wind1 [Inch]" & @CRLF) 
    $Wind2 = IniRead(@ScriptDir & "\SH.ini", $Distance2,  "W", "NotFound")
        ConsoleWrite ($Wind2 & " Wind2 [Inch]" & @CRLF) 
    $WinDiference = $Wind2 - $Wind1
        ConsoleWrite ($WinDiference & " Wind2 - Wind1 [Inch]" & @CRLF)      
        
;$WindRound = Round($Wind, 2)
;ConsoleWrite ($Wind & " Wind rounded [Inch]" & @CRLF)
    
        ConsoleWrite ($DistanceDiference & " DistanceDiference [%]" & @CRLF)        
    $WndC = $WinDiference * $DistanceDiference
        ConsoleWrite ($WndC & " WndDif * DistDif [Inch]" & @CRLF)       
    $WndC = $Wind1 + $WndC
        ConsoleWrite ($WndC & " Wnd + Wind1 [Inch]" & @CRLF)

    ConsoleWrite ($Result & " Range [m]" & @CRLF)
    
    $WndC = Round($WndC / $Result, 5)
    ;ConsoleWrite ($WndC & " Wnd  / Distance [Inch]" & @CRLF)       
        ConsoleWrite ($WndC & " Wnd Rounded [MOA]" & @CRLF)

    $WndC = $WndC * 10000
        ConsoleWrite ($WndC & " Wnd  [MOA]" & @CRLF)    
    GUICtrlSetData($Wnd, "Wind " & $WndC & " [Click]");Write Wind Corection

EndSelect   

WEnd

AND SH.ini - the ini file with bullet data - it is only with .50 Cal data

expandcollapse popup

[1000]
E=31.25
W=4.5
[1050]
E=33.75
W=5.0
[1100]
E=36.25
W=5.6
[1150]
E=38.75
W=6.2
[1200]
E=41.25
W=6.8
[1250]
E=44.00
W=7.4
[1300]
E=36.25
W=5.6
[1350]
E=49.50
W=8.8
[1400]
E=52.25
W=9.6
[1450]
E=55.25
W=10.4
[1500]
E=58.50
W=11.3
[1550]
E=61.50
W=12.1
[1600]
E=64.75
W=13.1
[1650]
E=68.25
W=14.0
[1700]
E=71.75
W=15.0
[1750]
E=75.25
W=16.1
[1800]
E=79.00
W=17.2
[1850]
E=82.75
W=18.3
[1900]
E=86.75
W=19.5
[1950]
E=90.75
W=20.7
[2000]
E=95.00
W=22.0

Shootersready.au3

[HeffeD]

If you found it on a torrent for "free", it means you're ripping off the developers of the simulator...

Not cool. muttley

[TehWhale]

We need some Seeders, I am trasnfering at 0.5 Bytes a second...

EDIT: 0.0 Bytes/Second

Edited July 14, 2008 by Alienware

[weaponx]

  HeffeD said:

If you found it on a torrent for "free", it means you're ripping off the developers of the simulator...

Not cool. muttley

  Alienware said:

We need some Seeders, I am trasnfering at 0.5 Bytes a second...

EDIT: 0.0 Bytes/Second

Nice...I thought you didn't want to get banned again? Jos is being quite merciful already Swift...

[TehWhale]

  weaponx said:

Nice...I thought you didn't want to get banned again? Jos is being quite merciful already Swift...

I reallllllllly reaallllyyy dont. I am going to be on my best behavior.