Help Plz.. Probley Simple For You But Not Me :(

[Golbez]

there i can show what the problem is...

expandcollapse popup

dim $var, $var2, $lookingfor, $numadd, $total, $creature, $sign, $signb, $monstermax, $monstermin, $x
Do
    $lookingfor = InputBox ( "WoW Get Value", "Whate are you tring to change?                            1 = maxhealth                2 = faction               3 = level                          4 = money                 5 = size                            6 = type                  7 = maxmana                  8 = damage            9 = speed                     10 = other")
        Select
            Case $lookingfor = 1
                $lookingfor = "maxhealth"
            Case $lookingfor = 2
                $lookingfor = "faction"
            Case $lookingfor = 3
                $lookingfor = "level"
            Case $lookingfor = 4
                $lookingfor = "money"
            Case $lookingfor = 5
                $lookingfor = "size"
            Case $lookingfor = 6
                $lookingfor = "type"
            Case $lookingfor = 7
                $lookingfor = "maxmana"
            Case $lookingfor = 8
                $lookingfor = "damage"
            Case $lookingfor = 9
                $lookingfor = "speed"
            Case $lookingfor = 10
                $lookingfor = InputBox ( "WoW Get Value", "Whate are you tring to change?  EX: maxhealth" )
        EndSelect
Until $lookingfor <> ""
;$creature = InputBox ("Creature number", "Whats is the creature number. EX: creature 331" ); old way..
$monstermin = InputBox ( "WoW Get Value", "Starting number of creatures. EX: 1" )
$monstermax = InputBox ( "WoW Get Value", "Endng number of creatures. EX: 20" )
Do
    $sign = InputBox ("Math Work", "Whats is the function u want to do?               1 = divide                                                           2 = multiply                                                     3 = subtract                                                       4 = add" )
    Select
        case $sign = 1 
            $sign = "/"
        case $sign = 2
            $sign = "*"
        case $sign = 3
            $sign = "-"
        case $sign = 4
            $sign = "+"
    EndSelect
Until $sign <> ""
$numadd = InputBox ( "WoW Get Value", "number to do math with.  (add,subtract,divide,multiply)" )

;$sign = $signb
$creature = 0
$sectionnames = IniReadSectionNames("creatures.scp")

$var2 = $monstermax - $monstermin
If $var2> $sectionnames[0] Then
    $monstermax = $sectionnames[0]
EndIf

For $intcount = $monstermin to $monstermax step 1
    $var = IniRead("creatures.scp", $sectionnames[$intcount], $lookingfor, "skip")
    MsgBox('', "$intcount= " & $intcount,  $sectionnames[$intcount] & "  var "& $var )
        Select
        Case $sign = "*"
            $total = $numadd * $var
        Case $sign= "/"
            $total = $numadd / $var
        Case $sign = "+"
            $total = $numadd + $var
        Case $sign = "-"
            $total = $numadd - $var
    EndSelect
    IniWrite("creatur2es.scp", $sectionnames[$intcount], $lookingfor, $total)
Next  
SplashTextOn("Title", "Made by: Ray Smith                                                               Contact me with any sugestions or commments.             E-Mail:  MasterGolbez37@gmail.com", 460, 75, -1, -1, 1, "", 15)
Sleep(2000)
SplashOff()

then the window appears watch the $intcount= # (title) and the creature #