Send (Number)

[GeekS]

Having problems doing a fun script here, you can see it here;

;;;;;

Func BEER()

$s = 99

$i = 100

While $i >= 1

Send ( '$i bottles of beer on the wall, $i bottles of beer, you take 1 down, pass it around, $s bottles of beer on the wall'.)

$s = $s - 1

$i = $i - 1

WEnd

EndFunc

;;;;;;

Now my problem is that the send command doesnt allow the $'s to use numbers, but just types etc $s.

Is there any way i can fix this?

Greetz & Thanks from GeekS

[Daniel W.]

Func BEER()
$s = 99
$i = 100
While $i >= 1

Send ( $i & ' bottles of beer on the wall,  & $i & ' bottles of beer, you take 1 down, pass it around,' & $s & ' bottles of beer on the wall'.)

$s = $s - 1
$i = $i - 1
WEnd
EndFunc

[GeekS]

Ur solution had some small leaks, but i know what u ment, thx

[Daniel W.]

Just missed one " ' "

[Nomad]

Better yet:

Func BEER()
$s = 99
$i = 100
While $i >= 1

Send ( $i & ' bottles of beer on the wall,'  & $i & ' bottles of beer, you take 1 down, pass it around,' & $s & ' bottles of beer on the wall.')

$s -= 1
$i -= 1
WEnd
EndFunc

Nomad

[SmOke_N]

Func BEER()
    Local $i_BottlesLeft = 100
    For $i_BottleCount = 100 To 1 Step - 1
        Local $sBC = 's', $sBL = 's'
        $i_BottlesLeft -= 1
        If $i_BottleCount < 2 Then $sBC = ''
        If $i_BottlesLeft = 1 Then $sBL = ''
        ConsoleWrite($i_BottleCount & ' bottle' & $sBC & ' of beer on the wall, '  & $i_BottleCount _
            & ' bottle' & $sBC & ' of beer, you take 1 down, pass it around, ' & $i_BottlesLeft _
            & ' bottle' & $sBL & ' of beer on the wall.' & @LF)
    Next
    If MsgBox(36, 'Repeat?', 'Would you like to start over?') = 6 Then BEER()
EndFunc

This reminded me of the kids singing this on a long trip, and always starting over... would be funny to get the text to voice synthesizer going on this one, that way I could annoy them like they do me on the trips