Gammon Forum

sub OnRoll (name, line, wildcards)
   dim roll
   dim max 'I'm unsure about this... This is the variable that I'm trying to initalize.
            Do I need to initalize it in some special way?
      roll = CInt (wildcards (1))
      max = 0 'Here is an uncertianty that I brought over from unix. I want the
               variable to be reset to keep other 'max roll' values from carrying
               over. I'm not entirely sure how to do it in vb, though. My first
               problem.
 if roll < 51 then
   world.send "roll"
 else
   world.EnableTrigger "LblRoll", 0
   world.Sound "***some wav sound***"
           end if
 if roll > max then 'Here is where I check the max.
      max = roll 'Here, I want the max to be set equal to the roll if the roll is
                  greater. Keeping a running record of the maximum roll. I don't
                  think that it works like the variable stuff in unix so this is
                  my second problem.
      world.note "Max roll =", max 'Here is the note to the world. I can get the text
                                   into the output all right, I just can't figure
                                   out how to 'print' the variable like in unix. My
                                   third problem.
    else
      world.note "Max roll =", max 'Here it prints if the max isn't beat.
           end if
end sub

dim max  ' declare outside a sub
max = 0  ' initialise it once

sub OnRoll (name, line, wildcards)
   
...

end sub

Rolling stats for halfling ranger.:
Max: Str: 17  Int: 17  Wis: 21  Dex: 25  Con: 20
Cur: Str: 8   Int: 8   Wis: 8   Dex: 8   Con: 8 
[33] Cmds: help, end, roll, add, rem>  
roll
Max roll = 33

Rolling stats for halfling ranger.:
Max: Str: 17  Int: 17  Wis: 21  Dex: 25  Con: 20
Cur: Str: 8   Int: 8   Wis: 8   Dex: 8   Con: 8 
[27] Cmds: help, end, roll, add, rem>  
roll
Max roll = 27

Rolling stats for halfling ranger.:
Max: Str: 17  Int: 17  Wis: 21  Dex: 25  Con: 20
Cur: Str: 8   Int: 8   Wis: 8   Dex: 8   Con: 8 
[32] Cmds: help, end, roll, add, rem>  
roll
Max roll = 32

sub OnStart (name, line, wildcards)
   dim max
   max = 0

world.note "Scripting enabled - script file processed"
End sub

sub OnRoll (name, line, wildcards)
   dim roll
      roll = CInt (wildcards (1))
 if roll < 51 then
   world.Send "roll"
    else
   world.EnableTrigger "LblRoll", 0
   world.Sound "C:\SIERRA\Half-Life\cstrike\sound\ambience\guit1.wav"
           end if
 if roll > max then
      max = roll
      world.note "Max roll = " & max
    else
      world.note "Max roll = " & max
           end if
End sub

dim max
max = 0
world.note "Scripting enabled - script file processed"

sub OnRoll (name, line, wildcards)
   dim roll
      roll = CInt (wildcards (1))
 if roll < 51 then
   world.Send "roll"
    else
   world.EnableTrigger "LblRoll", 0
   world.Sound "C:\SIERRA\Half-Life\cstrike\sound\ambience\guit1.wav"
           end if
 if roll > max then
      max = roll
      world.note "Max roll = " & max
    else
      world.note "Max roll = " & max
           end if
End sub

   dim max
   max = 0

sub OnStart (name, line, wildcards)
   max = 0
   world.note "Scripting enabled - script file processed"
End sub

sub OnRoll (name, line, wildcards)
   dim roll
      roll = CInt (wildcards (1))
 if roll < 51 then
   world.Send "roll"
    else
   world.EnableTrigger "LblRoll", 0
   world.Sound "C:\SIERRA\Half-Life\cstrike\sound\ambience\guit1.wav"
           end if
 if roll > max then
      max = roll
      world.note "Max roll = " & max
    else
      world.note "Max roll = " & max
           end if
End sub