/* AmIRC Reconnect by Ariel Magnum Version 1.1

  Introduction :

  AmIRC's internal reconnect is pretty lame in that if the
  modem/stack drops it doesnt work.Could have easily been
  fixed by using a retry value but I guess nobody's perect.
  This script solves this problem.


  Features     :

  · Configurable
  · Joins ALL previously joined channels
  · Perfect if your away from the computer


  Installation :
  1. Copy to the AmIRC rexx directory.
  2. Enter into the Connect Event :
	 reconnect.amirx
  3. Disable the internal AmIRC Auto Reconnect to server
	 from the "User modes" menu.
  4. Set your timeout.This is the time a connect should last.
  5. Set your retries.If your ISP is busy frequently then bump this
	 up.

  History      :
  1.0 12.2.97 First Release
  1.1 Fixed bugs (JOIN)
*****  Config  *****
*/
maxtimeout=60  /* in seconds        */
retries=5      /* number of retries */
/* Do not mess with code below */

options results
"GETSERVERNAME"
server=result
"CHANNELS"
channels=strip(result)
cecho('AmIRC Reconnect 1.1 By Ariel Magnum.Reconnecting to' server 'channels' channels)
do in=1 to retries
	'SAY /SERVER' server
	do maxtimeout
		"ISCONNECTED"
		if rc=0 then leave
		delay(50)
	end
	"ISCONNECTED"
	if rc=5 then do
		cecho('Attempt' in 'timed-out')
		iterate
	end
	do until line.command='376'
		"GETLINE"
	end
	if channels~='' then 'SAY /JOIN' translate(channels,',',' ')
	exit
end
cecho('Unable to reconnect')
exit
cecho:;"ECHO P="d2c(27)"b«Reconnect»" arg(1)'.';return 0