File: cycle

package info (click to toggle)
epic5 3.0.3-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 5,328 kB
  • sloc: ansic: 75,810; makefile: 648; ruby: 227; python: 215; sh: 78; perl: 13
file content (15 lines) | stat: -rw-r--r-- 312 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
IF (WORD(2 $LOADINFO()) != [pf]) { LOAD -pf $WORD(1 $LOADINFO()); RETURN; };

ALIAS CYCLE (CHAN DEFAULT $C, REASON) {
	IF (MATCH(*i* $WORD(0 $CHANMODE($CHAN)))) {
		XECHO -b $chan is invite-only, cannot cycle;
		RETURN;
	};

	@ :KEY = KEY($CHAN);

	WAIT FOR PART $CHAN $REASON;
	JOIN $CHAN $KEY;
};

#larne 2k10