Makeing a orginized list..

[Regency]

Right now my script puts numbers in a log file and i need them orginized by the numbers.. like all 1 with each other, and so on..

any possible way to do this?

or atleast make it put a tally of numbers like

1- 6

23- 14

the number is first and amount of times it comes up... any idea?

[Valuater]

Show a log file so we can see how to manipulate it...

Maybe better to show us the actual code.

8)

[Regency]

This is the scriot that gets the data..

expandcollapse popup

#requireadmin
#AutoIt3Wrapper_run_debug_mode=Y
#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include  <Misc.au3>
#include <Date.au3>
#include "script\roulette log.au3"
;Opt("MustDeclareVars", 1); having this option set will help find mistakes before you run it. Such as using a variable before setting its value or misspelling a variable
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("PixelCoordMode", 1)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "_MinimizeToTray")

Global $Crimes = ''
Global $Gta = ''
Global $name1 = ''
Global $pass1 = ''
Global $url1 = ''
Global $Paused = 0
Global $oLoginPage = ''



Global $Quick = GUICreate("Auto Scripter - By - ScorpiA", 290, 200, 340, 300)
Global $StartUrl = GUICtrlCreateGroup("Address your acct is logged into:", 8, 8, 256, 49) ; You can use proxys if you like, it just needs to get you to The mafia network
Global $address = GUICtrlCreateInput("", 16, 24, 145, 21)
Global $saveurl = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)


Global $log = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Make = GUICtrlCreateButton("Start Auto Scripter By ScorpiA - Hit ESC to Exit", 8, 168, 267, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            _MinimizeToTray()
        Case $saveurl
            $url1 = GUICtrlRead($address) & "/Authenticated/roulette.aspx"
            GUICtrlSetData($Url, $url1)
        Case $address
            $Cr1 = GUICtrlRead($address) & "/Authenticated/publicforum.aspx"
            GUICtrlSetData($Url, $Cr1)
            $Log1 = GUICtrlRead($address) & "/login.aspx"
            GUICtrlSetData($Url, $Log1)
        Case $Make
            MyRun()
    EndSwitch
WEnd



Func MyRun()
    HotKeySet("{Home}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")

    $oLoginPage = _IECreate($Log1, 0, 1, 1, 0)
    _IELoadWait($oLoginPage)
    Local $begin = ''
    Local $dif = 0

    While 2
        Sleep(10)
        $dif = Int(TimerDiff($begin) / 100)
        If $dif >= (1 * 60) Then
            MyFunction2()
            
            $begin = TimerInit()
        EndIf
    WEnd
EndFunc   ;==>MyRun

Func MyFunction2()
    _IENavigate($oLoginPage, $cr1,1)
    _IELoadWait($oLoginPage)
    
    $oUser = _IEGetObjByName($oLoginPage, "Login1$UserName")
    _IEFormElementSetValue($oUser, "HEREERERERE")
    $oPass = _IEGetObjByName($oLoginPage, "Login1$Password")
    _IEFormElementSetValue($oPass, "DSDSG")
    $oLogIn = _IEGetObjByName($oLoginPage, "Login1$LoginLinkButton")
    _IEAction($oLogIn, "click")
    _IELoadWait($oLoginPage)
    _IENavigate($oLoginPage, $url1, 1)
    _IELoadWait($oLoginPage)
    $oinsert = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_txt1st12")
    _IEFormElementSetValue($oinsert, "1000")
    $ospin = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_btnSpin")
    _IEAction($ospin, "click")
    _IELoadWait($oLoginPage)
    $oDiv = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_lblWinNumber")
    ConsoleWrite(_IEPropertyGet($oDiv, "innertext") & @CR)
    $variable = _IEPropertyGet($oDiv, "innertext")
If $variable > 0 Then
    Roulette()
ElseIf $variable = 0 Then
    Roulette()
    EndIf
EndFunc   ;==>MyFunction2






Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit
EndFunc   ;==>Terminate


Func _MinimizeToTray()
    If BitAND(WinGetState($Quick), 2) Then
        GUISetState(@SW_HIDE)
    Else
        GUISetState(@SW_SHOW)
    EndIf
EndfuncoÝ÷ Ù©ÝêÞËazZ x,r¸©µ«­¢+Ø¥¹±Õ±Ðí¥±¹ÔÌÐì((ÀÌØí   Õ±±Ñ}1½ôMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈíI½Õ±ÑÑ}1½¹ÑáÐÅÕ½Ðì()Õ¹I½Õ±ÑÑ}1½}]É¥Ñ ÀÌØí¥±9µ°ÀÌØí1¥¹¤($ÀÌØí¥±ô¥±=Á¸ ÀÌØí¥±9µ°ä¤(%% ÀÌØí¥±ôô´Ä¤Q¡¸IÑÕɸÀ(%¥±]É¥Ñ1¥¹ ÀÌØí¥±°ÅÕ½ÐìÅÕ½ÐìµÀìÀÌØí1¥¹¤(%¥±
±½Í ÀÌØí¥±¤(%IÑÕɸÄ)¹Õ¹((ÀÌØíÙÉ¥±ôÅÕ½ÐìÅÕ½Ðì()Õ¹I½Õ±ÑÑ ¤(%I½Õ±ÑÑ}1½}]É¥Ñ ÀÌØí Õ±±Ñ}1½°ÀÌØíÙÉ¥±¤)¹Õ¹

and this is what the log looks like

expandcollapse popup

22
22
15
3
32
0
33
4
9
35
20
28
0
0
26
12
23
14
27
29
27
0
20
2
32
10
8
34
21
28
13
6
33
11
21
22
16
20
19
18
14
28
36
6
3
0
8
19
7
21
7
11
19
5
20
1
17
25
19
10
28
4
2
22
4
36
32
6
29
10
0
0

[Regency]

bump

[ProgAndy]

I would use _FileReadToArray, _ArrayAdd, _ArraySort, _FileWriteFromArray

With ArraySort, you have to look, if it can sort numeric, or you have to rewrite it