;Cyborg Script Serial# 831004101-1407000025-0200
;Created for Hogwarts by The BotBot v.83
;Portions Copyright (C)1999 Kevin Bjorke/National Pixel Products
;Support: http://www.botzilla.com/house/book/askX.html
;hexkey 000102030405060708090a0b0c0d0e0f101112131415161718

ON SIGNON {
	ICameFrom	GLOBAL
	autoX	GLOBAL
	autoY	GLOBAL
	bbTxt	GLOBAL
	bbV	GLOBAL
	blndProp	GLOBAL
	bt	GLOBAL
	defProp	GLOBAL
	initOK	GLOBAL
	palAddr	GLOBAL
	prePulse	GLOBAL
	prefname	GLOBAL
	rcFlag	GLOBAL
	spp	GLOBAL
	timeBase	GLOBAL
	timezone	GLOBAL
	webAddr	GLOBAL
	whenFing	GLOBAL
	whoFing	GLOBAL
	bez	GLOBAL
	catrom	GLOBAL
	clamp	GLOBAL
	ctime	GLOBAL
	n_prp	GLOBAL
	npf	GLOBAL
	pnw	GLOBAL
	t_or_f	GLOBAL
	time_now	GLOBAL
	"BotBotV83"	ICameFrom =
	USERNAME " ist gleich wieder da..." &	bbTxt =
	83	bbV =
	"Flower#"	blndProp =
	0	bt =
	0	defProp =
	1	initOK =
	"212.17.72.117:9997"	palAddr =
	DATETIME	prePulse =
	"harry potter"	prefname =
	1	rcFlag =
	8	spp =
	DATETIME	timeBase =
	-8	timezone =
	"www.chatlines.at/hogwarts"	webAddr =
	0	whenFing =
	0	whoFing =
	{
		prec = i = v4 = v3 = v2 = v1 =
		prec prec * prec * s3 =
		i i * i2 =
		i2 i * i3 =
		prec i - j =
		j j * j2 =
		j2 j * j3 =
		v1 j3 * 
		v2 j2 * i  * 3 * +
		v3 j  * i2 * 3 * +
		v4      i3 * + s3 / 
	} bez DEF
	{
		timeBase	GLOBAL
		DATETIME timeBase -
	} time_now DEF
	{
		"Won't Show In Paint-Free Rooms" STATUSMSG
	} npf DEF
	{
		prec = i = p4 = p3 = p2 = p1 =
		p3 p1 - 2 / v2 =
		p4 p2 - 2 / v3 =
		i i * i2 = 
		i2 i * i3 = 
		p2 
		v2 i * 
		p3 p2 - 3 * 2 v2 * - v3 - i2 *  
		p2 p3 - 2 *   v2   + v3 + i3 *
		prec / + prec / + prec / +
	} catrom DEF
	{
		b = a = 
		DUP a < { POP a } SWAP IF
		DUP b > { POP b } SWAP IF
	} clamp DEF
	{
		timezone	GLOBAL
		{
			DATETIME 86400 % t =
			t 3600 / timezone + h =
		} {
			DATETIME 2147483647 + 86400 % 11647 + 86400 % t =
			t 3600 / h =
		} DATETIME 0 >= IFELSE
		{ 24 h -= } h 24 > IF
		{ 24 h += } h 0 < IF
		h ITOA ":" & 
		t 3600 % 60 / m =
		{ "0" & } m 10 < IF m ITOA &
		":" & 
		t 60 %  s =
		{ "0" & } s 10 < IF s ITOA &
	} ctime DEF
	{
		"Props Based on \x22" SWAP & "\x22" & STATUSMSG
	} pnw DEF
	{
		LOWERCASE DUP "on" == SWAP "^[yt+]" GREPSTR OR
	} t_or_f DEF
	{
		ITOA d =
		p =
		{
		    "$1" GREPSUB d & "$2" GREPSUB & p =
		} { p "(.*)#(.*)" GREPSTR } WHILE
		p
	} n_prp DEF
	"\x40200,130 )amen Hi Hexen und Zauberer von " SERVERNAME & ", " USERNAME & " ist wieder mal da!" & & SAY
	defProp MACRO
	"BotBot V83 Active" STATUSMSG
}

ON INCHAT {
	ctime	GLOBAL
	initOK	GLOBAL
	time_now	GLOBAL
	whenFing	GLOBAL
	whoFing	GLOBAL
	CHATSTR LOWERCASE lowchat =
	{
		"$1" GREPSUB lowchat =
	} lowchat "^@[0-9, ]*(.*)" GREPSTR IF
	{ EXIT } initOK NOT IF
	{
		{
			"\x3bfinger" WHOCHAT PRIVATEMSG
		} whoFing WHOCHAT == NOT IF
		"http://www.chatlines.at/hogwarts"
		"\x0dVisit http://www.botzilla.com/" &
		WHOCHAT PRIVATEMSG
		WHOCHAT whoFing =
		DATETIME whenFing =
	} lowchat "finger" ==
	  lowchat "\x3bfinger" == OR
	  DATETIME whenFing - 5 > AND
	  WHOCHAT WHOME == NOT AND IF
}

ON OUTCHAT {
	ICameFrom	GLOBAL
	autoX	GLOBAL
	autoY	GLOBAL
	bbTxt	GLOBAL
	bez	GLOBAL
	blndProp	GLOBAL
	bt	GLOBAL
	catrom	GLOBAL
	clamp	GLOBAL
	ctime	GLOBAL
	initOK	GLOBAL
	n_prp	GLOBAL
	npf	GLOBAL
	palAddr	GLOBAL
	pnw	GLOBAL
	prePulse	GLOBAL
	rcFlag	GLOBAL
	spp	GLOBAL
	t_or_f	GLOBAL
	time_now	GLOBAL
	webAddr	GLOBAL
	"BotBotV83" ICameFrom =
	CHATSTR LOWERCASE lowchat =
	{
		MOUSEPOS y = x =
		1 PENSIZE
		PENBACK
		y 40 - y2 =
		x 40 + x2 =
		y 40 + y3 =
		x 40 - x3 =
		0 i =
		{
			40 i 8 * - grid =
			255 10 i * - c1 =
			140 10 i * + c2 =
			c1 c2 0 PENCOLOR
			x grid - y2 x grid + y3 LINE
			c2 c1 0 PENCOLOR
			x2 y grid - x3 y grid + LINE
			i ++
		} { i 11 < } WHILE
		"fazein" SOUND
	} lowchat "stupfey" == IF
	{
		"Location: " ROOMNAME & " (ID " & ROOMID ITOA & ")" & LOGMSG
		"" CHATSTR =
	} lowchat "geos" == IF
	{
		942576364 MOUSEPOS ADDLOOSEPROP
	} lowchat "orchideus" == IF
	{
		8 PENSIZE
		255 255 0 PENCOLOR
		PENFRONT
		MOUSEPOS POSY - difrow = POSX - difcol =
		POSX slc =
		POSY slr =
		difrow 8 / aslr =
		difcol 8 / aslc =
		difcol 20 / -1 * zrow =
		difrow 20 / zcol =
		POSY oldr =
		POSX oldc =
		{
			steps ++
			aslc slc +=
			aslr slr +=
			slc zcol + newc =
			slr zrow + newr =
			oldc oldr newc newr LINE
			-1 zrow *=
			-1 zcol *=
			newc oldc =
			newr oldr =
			8 steps - PENSIZE
		} { steps 7 < } WHILE
		oldc oldr MOUSEPOS LINE 
		"@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & ")boom !KERPOW!" & ROOMMSG
		{ PAINTCLEAR } 300 ALARMEXEC
		PENBACK			
	} lowchat "incendio" == IF
	{
		MOUSEPOS my = mx =
		POSX px =
		POSY py =
		2 PENSIZE
		0 i =
		255 255 255 PENCOLOR
		px py mx my LINE
		"boom" SOUND
		{ 
			i 1 + 100 * q =
			i 2 * n =
			0 0 q PENCOLOR
			px py mx my 24 n - - LINE
			0 q 0 PENCOLOR
			px py mx my 16 n - - LINE
			q 0 0 PENCOLOR
			px py mx my 8 n - - LINE
			q q 0 PENCOLOR
			px py mx my 2 n + + LINE
			q 0 q PENCOLOR
			px py mx my 10 n + + LINE
			0 q q PENCOLOR
			px py mx my 18 n + + LINE
			i ++
		} { i 4 < } WHILE
		{ { PAINTUNDO i ++ } { i 25 < } WHILE } 120 ALARMEXEC
	} lowchat "Expelliarmus" == IF
	{
		NBRROOMUSERS num = 0 i =
		"Hi"
		{
			{
				", " & i ROOMUSER WHONAME &
			}  i ROOMUSER WHOME == NOT IF
			i ++
		} { i num < } WHILE
		SAY
		"" CHATSTR =
	} lowchat "roomhi" == IF
	{
		MOUSEPOS my = mx =
		1 i =
		30 fdel =
		12 nfr =
		POSX cx =
		POSY cy =
		{
			mx cx - 5 / cx + newx =
			my cy - 5 / cy + newy =
			newx ITOA " " & newy ITOA & " SETPOS" & STRTOATOM i fdel * ALARMEXEC
			newx cx =
			newy cy =
			i ++
		} { i nfr < } WHILE
		mx ITOA " " & my ITOA & " SETPOS" & STRTOATOM i fdel * ALARMEXEC
		"" CHATSTR =
	} lowchat "wingardium" == IF
	{
		{ MOUSEPOS DROPPROP } { TOPPROP } WHILE
		"" CHATSTR =
	} lowchat "delertius" == IF
	{
		"$1" GREPSUB s =
		{
		   "Heart" s =
		} s "" == IF
		MOUSEPOS ty = tx =
		POSX tx - dx =
		POSY ty - dy =
		s tx dx 3 * 4 / + ty dy 3 * 4 / + ADDLOOSEPROP
		s tx dx 2 / + ty dy 2 / + ADDLOOSEPROP
		s tx dx 4 / + ty dy 4 / + ADDLOOSEPROP
		s tx ty ADDLOOSEPROP
		{ ")kiss" SAY } 120 ALARMEXEC
		"!KISS!!!" tx 10 + ty 10 - SAYAT
		{ CLEARLOOSEPROPS } 250 ALARMEXEC
		"" CHATSTR =
	} CHATSTR "^bkiss *(.*)$" GREPSTR IF
	{
		CLEARLOOSEPROPS PAINTCLEAR
		"" CHATSTR =
	} CHATSTR "^\x3b*clean$" GREPSTR IF
	{
		PENFRONT MOUSEPOS y = x =
		255 255 255 PENCOLOR 4 PENSIZE
		POSX 6 + POSY 38 + MOUSEPOS LINE
		PAINTUNDO 3 PENSIZE
		x 50 + y 50 + x 50 - y 50 + LINE
		x 75 + y x 75 - y LINE
		x 50 + y 50 - x 50 - y 50 - LINE
		x y 75 + x y 75 - LINE
		2 PENSIZE
		x 50 + y 20 + x 50 - y 20 - LINE
		x 50 + y 20 - x 50 - y 20 + LINE
		x 20 + y 50 - x 20 - y 50 + LINE
		x 20 + y 50 + x 20 - y 50 - LINE
		1 PENSIZE
		x 50 + y 50 + x 50 + y 20 + LINE x 75 + y x 50 + y 20 + LINE
		x 50 + y 50 - x 50 + y 20 - LINE x 75 + y x 50 + y 20 - LINE
		x 50 - y 50 + x 50 - y 20 + LINE x 75 - y x 50 - y 20 + LINE
		x 50 - y 50 - x 50 - y 20 - LINE x 75 - y x 50 - y 20 - LINE
		x 50 + y 50 + x 20 + y 50 + LINE x 50 + y 50 - x 20 + y 50 - LINE
		x 50 - y 50 + x 20 - y 50 + LINE x 50 - y 50 - x 20 - y 50 - LINE
		x y 75 + x 20 + y 50 + LINE x y 75 - x 20 + y 50 - LINE
		x 0 - y 75 + x 20 - y 50 + LINE x y 75 - x 20 - y 50 - LINE
		x 25 + y 25 + x 10 + y 25 + LINE x 25 + y 25 - x 10 + y 25 - LINE
		x 25 - y 25 + x 10 - y 25 + LINE x 25 - y 25 - x 10 - y 25 - LINE
		x y 50 + x 10 + y 25 + LINE x y 50 - x 10 + y 25 - LINE
		x 0 - y 50 + x 10 - y 25 + LINE x y 50 - x 10 - y 25 - LINE
		x 25 + y 25 + x 25 + y 10 + LINE x 50 + y x 25 + y 10 + LINE
		x 25 + y 25 - x 25 + y 10 - LINE x 50 + y x 25 + y 10 - LINE
		x 25 - y 25 + x 25 - y 10 + LINE x 50 - y x 25 - y 10 + LINE
		x 25 - y 25 - x 25 - y 10 - LINE x 50 - y x 25 - y 10 - LINE
		"!You're trapped in my web!" MOUSEPOS SAYAT
		{ PAINTCLEAR } 1000 ALARMEXEC		
	} lowchat "Petrificus Totalus" == IF
	{
		"$1" GREPSUB MOUSEPOS SAYAT
		"" CHATSTR =
	} CHATSTR "^kanto (.*)$" GREPSTR IF
	{ EXIT } initOK NOT IF
	{
		{ "^BRB" POSX 100 - dup { -1 * } swap 0 < if POSY 100 - dup { -1 * } swap 0 < if SAYAT } 15 ALARMEXEC
		{ "^BRB" POSX 80 - dup { -1 * } swap 0 < if POSY 80 - dup { -1 * } swap 0 < if SAYAT } 45 ALARMEXEC
		{ "^BRB" POSX 60 - dup { -1 * } swap 0 < if POSY 60 - dup { -1 * } swap 0 < if SAYAT } 75 ALARMEXEC
		{ "^BRB" POSX 40 - dup { -1 * } swap 0 < if POSY 40 - dup { -1 * } swap 0 < if SAYAT } 105 ALARMEXEC
		{ "^BRB" POSX 20 - dup { -1 * } swap 0 < if POSY 20 - dup { -1 * } swap 0 < if SAYAT } 135 ALARMEXEC
		{
			bbTxt GLOBAL
			"!BRB!" SAY
			bbTxt ROOMMSG
		} 145 ALARMEXEC
		{ "^BRB!" SAY } 240 ALARMEXEC
		DATETIME bt =
		"" CHATSTR =
	} lowchat "brbfly" == IF
	{
		npf EXEC
		0 255 0 PENCOLOR
		PENFRONT 2 PENSIZE
		MOUSEPOS y2 = x2 =
		POSX x1 = POSY y1 =
		255 0 0 PENCOLOR
		x2 66 - x3 =
		x2 66 + x4 =
		y2 66 - y3 =
		y2 66 + y4 =
		x3 y4 x4 y4 LINE
		x3 y4 x3 y3 LINE
		x3 y3 x4 y3 LINE
		x4 y3 x4 y4 LINE
		x3 33 + y4 x3 33 + y3 LINE
		x3 66 + y4 x3 66 + y3 LINE
		x3 99 + y4 x3 99 + y3 LINE
		"!Let me outta here!" x2 y2 SAYAT
		{ { PAINTUNDO i ++ } { i 7 < } WHILE } 300 ALARMEXEC
	} lowchat "Locomotor Mortis" == IF
	{
		npf EXEC
		PENBACK 1 PENSIZE
		456 b = 
		{
		    176 x =
		    {
			255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR
			b 0 x 384 LINE
			10 x +=
		    } { x 327 < } WHILE
		    400 b -=
		} { b 0 > } WHILE
		"!You're in the Spot Light!!" 66 66 SAYAT
		"Got Paint?" STATUSMSG
		"" CHATSTR =
	} lowchat "spotlite" == IF
	{
		MOUSEPOS y = 20 - x =
		"$1" GREPSUB propstr =
		{
		    blndProp propstr =
		} propstr "" == IF
		propstr pnw EXEC
		propstr 4 n_prp EXEC x y 70 - ADDLOOSEPROP
		propstr 1 n_prp EXEC x y 80 - ADDLOOSEPROP
		-1 i =
		{
		    propstr 2 n_prp EXEC x 20 i * + y 100 - ADDLOOSEPROP
		    propstr 3 n_prp EXEC x 40 i * + y 110 - ADDLOOSEPROP
		    propstr 4 n_prp EXEC x 70 i * + y 100 - ADDLOOSEPROP
		    propstr 5 n_prp EXEC x 90 i * + y 80 - ADDLOOSEPROP
		    propstr 1 n_prp EXEC x 100 i * + y 60 - ADDLOOSEPROP
		    propstr 2 n_prp EXEC x 110 i * + y 40 - ADDLOOSEPROP
		    propstr 3 n_prp EXEC x 100 i * + y 20 - ADDLOOSEPROP
		    propstr 4 n_prp EXEC x 90 i * + y ADDLOOSEPROP
		    propstr 5 n_prp EXEC x 70 i * + y 20 + ADDLOOSEPROP
		    propstr 1 n_prp EXEC x 50 i * + y 40 + ADDLOOSEPROP
		    propstr 2 n_prp EXEC x 30 i * + y 60 + ADDLOOSEPROP
		    propstr 3 n_prp EXEC x 10 i * + y 80 + ADDLOOSEPROP
		    2 i +=
		} { i 3 < } WHILE
		propstr 4 n_prp EXEC x y 100 + ADDLOOSEPROP
		"" CHATSTR =
	} CHATSTR "^herzl *(.*)" GREPSTR IF
	{
		255 240 240 PENCOLOR 3 PENSIZE 
		POSX POSY MOUSEPOS LINE PAINTUNDO
		{
			255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR
			1 PENSIZE
			MOUSEPOS 255 RANDOM 255 RANDOM LINE
			i ++
		} { i 40 <= } WHILE
		PAINTCLEAR
	} lowchat "Lumos" == IF
;; BETA
	{
		{
			1 PENSIZE
			PENBACK
			80 0 0 PENCOLOR
			{
			WHOTARGET WHOPOS my = mx =
			} {
			MOUSEPOS my = mx =
			} WHOTARGET IFELSE
			POSX autoX + px =
			POSY autoY + py =
			px mx - dx =
			py my - dy =
			dx fx =
			dy fy =
			{ 0 fx - fx = } fx 0 < IF
			{ 0 fy - fy = } fy 0 < IF
			fx s =
			{ fy s = } fx fy < IF
			dx 10 * s / vy =
			dy 10 * s / vx =
			PAINTCLEAR
			mx my px py LINE
			0 j =
			{
			1 i =
			{
			25 i - 5 / PENSIZE
			255 i 4 * - 255 i 8 * - 255 PENCOLOR
			i i * i2 =
			px dx i2 * 400 / - nx =
			py dy i2 * 400 / - ny =
			nx vx - ny vy + 
			nx vx + ny vy - PAINTUNDO LINE
			i ++
			} { i 21 < } WHILE
			j ++
			} { j 3 < } WHILE
			{PAINTCLEAR} 300 ALARMEXEC
			DATETIME prePulse =
		} {
			"Wait for " 30 DATETIME prePulse - - ITOA &
			" seconds" & STATUSMSG
		} DATETIME prePulse - 30 > IFELSE
		"" CHATSTR =
	} lowchat "riddikulus" == IF
	{
		"$1" GREPSUB t =
		{
			rcFlag NOT rcFlag =
		} {
			t t_or_f EXEC rcFlag =
		} t "" == IFELSE
		"" CHATSTR =
		"rcolor "
		{ "On" } { "Off" } rcFlag IFELSE & STATUSMSG
	} lowchat "rcolor *(.*)" GREPSTR IF
	{
		"Status"
		"\x0dMy Prefered Name is \"" & prefname & "\"" &
		{
			"\x0dRColor is On" &
		} rcFlag IF
		{
			"\x0dDefault Spline Precision is On" &
		} spp IF
		"\x0dTime: " & ctime EXEC & " (" &
		time_now EXEC 30 + 60 / ITOA &
		" minutes)" &
		LOGMSG
		"XBot V83: Serial# 831004101-1407000025-0200" STATUSMSG
		"" CHATSTR =
	} lowchat "stats" == IF
	{
		"http://www.botzilla.com/cgi-bin//bothelp.pl" NETGOTO
		"" CHATSTR =
	} CHATSTR "??" == CHATSTR "help" == OR IF
	{ 16 RANDOM SETCOLOR } rcFlag IF
}

;end of cyborg.ipt Ser# 831004101-1407000025-0200