Error

Hey Guys.

No idea where else to turn because I've got serious problem with running a VBSCRIPT system, it keeps crashing for me. It's a premade system for a game so I havent coded it myself and it seem to be working for pretty much everyone but me, maybe someone got an idea if there's some easy way to solve it.

I'm running Vista.

So the error I get is.
Function/Sub: prompt_explode called by trigger
Reason: processing trigger "prompt_catch"

I'm pretty darn sure that I've loaded the system correctly so i'm beginning to wonder if it has something to do with my vista?

Well any ideas and help would be very much appreciated. If you there's any specific extra information you need I'll try to post it ASAP.

Regards

Can you show us that trigger?

^(\d+)h\, (\d+)m\, (\d+)e\, (\d+)p\, (\d+)en\, (\d+)w\,? * (.*?)\<?\>?\-

That's all.

Execution of line 3520 column 3
Function/Sub: prompt_explode called by trigger
Reason: processing trigger "prompt_catch"
Inkompatibla typer: 'varH'

that's some extra information, I'm very poor at "coding" so if you have any way to specificly say what you need to know I'll do my best to post it.

Thankfull for any help I can get

<triggers>
<trigger
enabled="y"
expand_variables="y"
group="*script"
keep_evaluating="y"
match="^(\d+)h\, (\d+)m\, (\d+)e\, (\d+)p\, (\d+)en\, (\d+)w\,? * (.*?)\&lt;?\&gt;?\-"
name="prompt_catch"
omit_from_output="y"
regexp="y"
repeat="y"
script="prompt_explode"
sequence="95"
>
</trigger>
</triggers>

That is the trigger. It calls a function though, prompt_explode, what does it look like?

I guess the funciton your looking for is in the script, so this is what I found.

sub prompt_explode (a, b, c)
'******** Time Stamp ********
setvariable "prompt_stamp", "" & (Timer()-dblTimer)

if getvariable("prompt_stamp") > 180 Then
dblTimer=dblTimer+180
setvariable "prompt_stamp",getvariable("prompt_stamp")-180
setvariable "prompt_count",getvariable("prompt_count")+3
elseif getvariable("prompt_stamp") > 120 Then
dblTimer=dblTimer+120
setvariable "prompt_stamp",getvariable("prompt_stamp")-120
setvariable "prompt_count",getvariable("prompt_count")+2
elseif getvariable("prompt_stamp") > 60 Then
dblTimer=dblTimer+60
setvariable "prompt_stamp",getvariable("prompt_stamp")-60
setvariable "prompt_count",getvariable("prompt_count")+1
end if

if getvariable("prompt_count") >= 60 Then
setvariable "prompt_count",getvariable("prompt_count")-60
setvariable "prompt_hour",getvariable("prompt_hour")+1
end if

if getvariable("prompt_hour") > 0 Then
setvariable "prompt_int", "" & getvariable("prompt_hour") & ":" & getvariable("prompt_count") & ":" & clng(getvariable("prompt_stamp")*100)/100
else
setvariable "prompt_int", "" & getvariable("prompt_count") & ":" & clng(getvariable("prompt_stamp")*100)/100
end if
'Note "c: " & c(1) '<-- THIS IS THE WIKLDCARD WOOT
'********** Prompt Instr **********
if instr(c(7), "p") then
setvariable "script_prone", "1"
setvariable "prompt_safe", "Proned!"
else
setvariable "script_prone", "0"
setvariable "temp_meditate", "0"
setvariable "temp_stand", "0"
setvariable "prompt_safe", "Safe"
setvariable "aff_fallen", "0"
end if
if instr(c(7), "e") then
setvariable "script_check_eq", "1"
setvariable "need_eq", "0"
setvariable "temp_eq", "0"
else
setvariable "script_check_eq", "0"
setvariable "temp_auto_eq", "0"
end if
if instr(c(7), "l") then
setvariable "script_check_larm", "1"
else
setvariable "script_check_larm", "0"
setvariable "temp_auto_larm", "0"
end if
if instr(c(7), "r") then
setvariable "script_check_rarm", "1"
else
setvariable "script_check_rarm", "0"
setvariable "temp_auto_rarm", "0"
end if
if instr(c(7), "k") then
setvariable "script_check_kafe", "1"
setvariable "need_kafe", "0"
else
setvariable "script_check_kafe", "0"
setvariable "need_kafe", "1"
end if
if instr(c(7), "x") then
setvariable "script_check_bal", "1"
else
setvariable "script_check_bal", "0"
setvariable "temp_auto_bal", "0"
end if
if instr(c(7), "s") then
setvariable "script_check_sub", "1"
else
setvariable "script_check_sub", "0"
end if
if instr(c(7), "S") then
setvariable "script_check_sup", "1"
else
setvariable "script_check_sup", "0"
end if
if instr(c(7), "i") then
setvariable "script_check_id", "1"
else
setvariable "script_check_id", "0"
end if
if instr(c(7), "b") then
setvariable "script_check_blind", "1"
else
setvariable "script_check_blind", "0"
end if
if instr(c(7), "d") then
setvariable "script_check_deaf", "1"
else
setvariable "script_check_deaf", "0"
end if

'********** Stat Catch **********
setvariable "script_health", c(1)
setvariable "script_mana", c(2)
setvariable "script_ego", c(3)
setvariable "script_power", c(4)
setvariable "script_endurance", c(5)
setvariable "script_willpower", c(6)
setvariable "prompt_letter", c(7)