Gammon Forum

alias> Addwalk * *
script> Addwalk

sub Addwalk(name, output, wilds)
  dim a
  a = world.getvariablelist
  dim wname
  wname = "Wlk_" & wilds(1)
  for count = 0 to ubound(a)
    if wname = a(count) then
      world.note "Already exists!"
    else
      world.setvariable wname, wilds(2)
    end if
  next
end sub

Then...

alias> Walk *
script> Walk

sub Walk(name, output, wilds)
  dim wname
  wname = "Wlk_" & wilds(1)  dim a
  a = world.getvariablelist 'Returns a sorted list, so lets do a binary search. ;)
  fd = false
  st = 0
  en = ubound(a)
  do until fd or st = en
    cr = st + int((en-st)/2)
    if a(cr) > wname then
      en = cr
    else if a(cr) < wname then
      st = cr
    else
      fd = True
    end if
    if le = en and lst = st then
      exit do
    else
      lst = st
      le = en
    end if
  loop
  if fd then
    dim walk
    walk = getvariable(a(cr))
    world.send world.evaluatespeedwalk(walk)
  else
    world.note "Unknown!"
  end if
end sub

' Sort the items in array values() with bounds min and max.
Sub Quicksort(values() As String, _
              ByVal min As Long, _
              ByVal max As Long)

  Dim med_value As String
  Dim hi As Long
  Dim lo As Long
  Dim i As Long

  ' If the list has only 1 item, it's sorted.
  If min >= max Then Exit Sub

  ' Pick a dividing item randomly.
  i = min + Int(Rnd(max - min + 1))
  med_value = values(i)

  ' Swap the dividing item to the front of the list.
  values(i) = values(min)

  ' Separate the list into sublists.
  lo = min
  hi = max
  Do
    ' Look down from hi for a value < med_value.
    Do While values(hi) >= med_value
      hi = hi - 1
      If hi <= lo Then Exit Do
    Loop

    If hi <= lo Then
      ' The list is separated.
      values(lo) = med_value
      Exit Do
    End If

    ' Swap the lo and hi values.
    values(lo) = values(hi)

    ' Look up from lo for a value >= med_value.
    lo = lo + 1
    Do While values(lo) < med_value
      lo = lo + 1
      If lo >= hi Then Exit Do
    Loop

    If lo >= hi Then
      ' The list is separated.
      lo = hi
      values(hi) = med_value
      Exit Do
    End If

    ' Swap the lo and hi values.
    values(hi) = values(lo)
  Loop ' Loop until the list is separated.

  ' Recursively sort the sublists.
  Quicksort values, min, lo - 1
  Quicksort values, lo + 1, max

End Sub

Do While values(lo) < med_value
      lo = lo + 1
      If lo >= hi Then Exit Do
    Loop

while (values [lo] < med_value)
 if (lo++ >= hi)
    break;