prontera,150,150,0 script HiddenEffect 111,{
// Used while to make it loop
while(.Effect) {
// Interval delay of each effect
sleep 1000;
// Not sure if this is needed but it seems like only changing .Effect will not stop While from looping
if (.Effect) {
// Random 25 types of effect
switch(rand(25)) {
case 0: misceffect 1; break;
case 1: misceffect 7; break;
case 2: misceffect 12; break;
case 3: misceffect 15; break;
case 4: misceffect 16; break;
case 5: misceffect 28; break;
case 6: misceffect 30; break;
case 7: misceffect 34; break;
case 8: misceffect 43; break;
case 9: misceffect 65; break;
case 10: misceffect 67; break;
case 11: misceffect 75; break;
case 12: misceffect 77; break;
case 13: misceffect 85; break;
case 14: misceffect 97; break;
case 15: misceffect 98; break;
case 16: misceffect 102; break;
case 17: misceffect 104; break;
case 18: misceffect 119; break;
case 19: misceffect 121; break;
case 20: misceffect 128; break;
case 21: misceffect 130; break;
case 22: misceffect 134; break;
case 23: misceffect 153; break;
case 24: misceffect 170; break;
case 25: misceffect 226; break;
}
}
}
OnToggle:
if (.Effect) {
set .Effect, 0;
dispbottom "Effect enabled!";
} else {
set .Effect, 1;
dispbottom "Effect disabled!";
}
end;
OnInit:
bindatcmd "toggleeffect",strnpcinfo(3)+"::OnToggle",99,99; // Bind command @toggleeffect for account level 99
set .Effect, 0; // Disabled by default
end;
}
This should work, you can use @toggleeffect to turn the effect on and off.