Sign in to follow this  
Followers 0
usmiv4o

Shooterready.com calc

5 posts in this topic

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

#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

[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


I have nothing to be proud: I am Bulgarian :~But there is no better place than 127.0.0.1Tutorial for newbies

Share this post


Link to post
Share on other sites



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

Not cool. muttley

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

EDIT: 0.0 Bytes/Second

Edited by Alienware

Share this post


Link to post
Share on other sites

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

Not cool. muttley

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...

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0