All pastes #927248 Raw Edit

Unnamed

public java v1 · immutable
·published 2008-03-04 03:28 UTC
rendered paste body
ON *:JOIN:%chan:{  notice $nick 8,1¤0,1 0,1 Commands : 8,1 ¤0,1 .Registration - .Apply - .Status - .Uptime - .Requirements - .Staff8,1 ¤  if ($isfile(C:\QCBots\Users\ $+ $nick $+ .user) == $true) {    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 You're logged in.8,1 ¤  }  else {    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 Please log in or register.8,1 ¤  }}ON *:TEXT:REGISTER *:?:{  if ($2 != $null && $3 != $null && $4 != $null) {   if (    write C:\QCBots\users\ $+ $2 $+ .txt    write C:\QCBots\users\ $+ $2 $+ .txt $3    write C:\QCBots\users\ $+ $2 $+ .txt $4    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 You're now registered.8,1 ¤  }}else {    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 Give all required field.8,1 ¤}}on *:TEXT:LOGIN:?:{  if ($exists(C:\QCBots\Users\ [$+ [$2] $+] .txt) == $fale) {    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 Please Register Before OR Verify your login.8,1 ¤  }  	elseif ($read(C:\QCBots\Users\ $+ $2 $+ .txt, 0) == $3) {    write C:\QCBots\LogIn\ $+ $2 $+ .txt    write C:\QCBots\LogIn\ $+ $2 $+ .txt $3    /timer $+ $2 1 7200 /remove C:\QCBots\LogIn\ $+ $2 $+ .txt     	/timer $+ $2 $+ 1 1 7200 /query $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 You're now logged out.8,1 ¤    notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 You're now logged in.8,1 ¤    	}    	else {      	notice $nick 8,1¤0,1 0,1 $nick 8,1 ¤0,1 Wrong password/login.8,1 ¤      	}      	}