blob: f71b7ae7f449415ba620889ec135cb1e10019796 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
// Evol functions.
// Authors:
// 4144
// Description:
// Input utility functions
// Variables:
// none
function script menuint {
deletearray .@vals;
.@menustr$ = "";
.@cnt = 0;
for (.@f = 0; .@f < getargcount(); .@f = .@f + 2)
{
if (getarg(.@f) != "")
{
.@menustr$ = .@menustr$ + getarg(.@f) + ":";
.@vals[.@cnt] = getarg(.@f + 1);
.@cnt ++;
}
}
@menu = 255;
@menuret = -1;
select(.@menustr$);
if (@menu == 255)
return -1;
@menu --;
if (@menu < 0 || @menu >= getarraysize(.@vals))
return -1;
@menuret = .@vals[@menu];
return @menuret;
}
|