Jump to content
Sign in to follow this  
Busti

Script0r - V2.3 By Busti

Recommended Posts

ok about Script0r :

script0r is a counter-strike scripting editor with much features,

from easy buy menu creating, too big script creating...

Script0r , has tutorials , tips, code snippets, tolls etc. in it, the main programm is 100% selfmade,

it got a TuneUp System, wich let you add your own commands & menu entrys to script0r, it has a autosaving function, with a intervall you can change by yourself (std. 2min), so if the programm crashes, you got a backup^^ :think:

the tools are not realy big yet, there are 3 tools right now:

- Error Checker, wich is not working yet, but im working on it !!1

- CommandMenu Maker, you can easyli create a Commandmenu without much knowledge

- NetSettingsMaker, simple go to a site were you can mess you download / upload speed, put it in it and the programm calcolates good netsettings (9/10) like it.

- a Buy script maker, wich i think is really usefull if you dont know the commands etc.

ScreenShot of The Programm :

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

Posted Image

i hope i get some kritik / arguments :(

Download

script0r_CSE.rar

Edited by Busti

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

well, i don't play cs, but it looks very nice! (and it looks like a lot of work too...)

if there's any cs-player who could test it...

you dont need cs to test it 8)


My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

@raku sry, hes right, i deletet the download link about 1 min becouse i uploadet a new version, the old 1 had a bug


My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

Share this post


Link to post
Share on other sites

Oh my godness

Nothing more to say o.O


--------------------------------------------------------------------------------------------------------------------------------Scripts : _Encrypt UDF_UniquePCCode UDF MS like calculatorInstall programm *UPDATED* --------------------------------------------------------------------------------------------------------------------------------[quote name='Helge' post='213117' date='Jul 26 2006, 10:22 AM']Have you ever tried surfing the internet with a milk-carton ?This is similar to what you're trying to do.[/quote]

Share this post


Link to post
Share on other sites

now im working on the error check function, that looks yet like this :

$LinesCount = FileReadLineToArray("script.cfg")
debug($LinesCount[0])
debug($LinesCount[1])
debug($LinesCount[2])
$commands = GetCommands($LinesCount)

For $i = 0 To $commands[0]
    
    debug($commands[$i])

Next



Func FileReadLineToArray($FileName)
    Dim $MaxLineArray
    For $i = 1 To FileGetSize($FileName)
        FileReadLine($FileName,$i)
        If @error Then ExitLoop
    Next
    $MaxLineArray = $i
    Dim $MaxSaveArray[$MaxLineArray+1]
    $MaxSaveArray[0] = $MaxLineArray
    For $i = 1 To FileGetSize($FileName)
        $MaxSaveArray[$i] = FileReadLine($FileName,$i)
        If @error Then ExitLoop
    Next
Return $MaxSaveArray
EndFunc

Func GetCommands($StringArray)
    Dim $Lines[$StringArray[0]+1]
    Dim $command[1000]
    Local $o = 0
    For $LineCount = 1 To $StringArray[0]
    ;$command = StringLeft( $Lines[$i] , $i )
        For $i=0 To StringLen($StringArray[$LineCount])
            $SpaceChecker = _StringLeft($StringArray[$LineCount],$i)
            If StringLeft($StringArray[$LineCount],1) = " " Then
                For $t = 0 To StringLen($StringArray[$LineCount])
                    If _StringLeft( $StringArray[$LineCount] , $t ) = " " Then
                        $StringArray[$LineCount] = StringTrimLeft( $StringArray[$LineCount] , 1)
                    ElseIf _StringLeft( $StringArray[$LineCount] , $t ) <> " " Then
                        ExitLoop
                    EndIf
                Next
            EndIf
            If StringLeft( $StringArray[$LineCount] , 2 ) = "//" Then ExitLoop;Line is a Comment, Skip It
            If $SpaceChecker = " " Then
                $o += 1
                $command[$o] = StringLeft($StringArray[$LineCount] , $i-1 );Command (most of time : Alias)
                If $command[$o] = "" Then $o -= 1
                $StringArray[$LineCount] = StringTrimLeft( $StringArray[$LineCount] , $i );Trim the Alias Away + the space
                $i = 0
            EndIf
        Next
    Next
    $command[0] = $o
    Return $command
EndFunc

Func debug($msg)
    $debug = 1
    If $debug = 1 Then Return MsgBox(0,"",$msg)
EndFunc
    
Func _StringLeft($String,$Count)
    Return StringLeft(StringTrimLeft($String,$Count-1),1)
EndFunc

script.cfg :

alias +lol "+attack;wait;-attack;"
alias -lol "+attack;wait;-attack;"

//This is a Comment, now i want to skip it

                      //This is a Comment with spaces, skip it !
Edited by Busti

My UDF's : Startet on : 06.06.2006_CaseSearchOrReplaceStr();~> Searches OR Replaces a String,;~> With or Without Casesensivity

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  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...