Search for this function:
function gviewid {
set .@n,getarraysize(.viewid);
while(1)
{
set .@zt,.@zt+1;
if(.@zt&13)sleep2(1);
if(set(.@u,.viewid[set(.@t,rand(.@n))]))
break;
}
for(;.@t<.@n;set .@t,.@t+1)
set .viewid[.@t],.viewid[.@t+1];
return .@u;
}
and replace with this:
function gviewid {
set .@n,getarraysize(.viewid);
if(.@n<=1) set .@rnd,0;
else set .@rnd,rand(.@n);
//dispbottom "."+getarraysize(.viewid)+"";
while(1)
{
set .@zt,.@zt+1;
if(.@zt&13)sleep2(1);
if(set(.@u,.viewid[set(.@t,.@rnd)]))
break;
}
for(;.@t<.@n;set .@t,.@t+1)
set .viewid[.@t],.viewid[.@t+1];
return .@u;
}