kvirc random kick script

[korkakak]

Code: Select all

if ($0)
	{
	srand($0)
	}
	%i=0;
	foreach(%nick,$chan.users) 
		{
		%Users[%i]=%nick;
		%i++;
		}
	%i--;
	%k=$rand;
	%k%=%i;
	echo %k , %i;
	if (%Users[%k]==$me)
		{
		%k++
		%k%=%i;
		}
 	kick  %Users[%k] $chan.name Random Kick script. Lupamai pires to pouli kai efuges :-)
	invite %Users[%k] $chan.name ELA PISW TWRA!

[korkakak]

Και για να καταλάβετε ποσο αισχρό είναι το scripting language του kvirc

αυτό βαράει λάθος:

Code: Select all

   foreach(%nick,$chan.users) %Users[%i++]=%nick;

και αυτό

Code: Select all

   foreach(%nick,$chan.users) {%Users[%i++]=%nick;}