<?xml version="1.0" encoding="UTF-8"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="en-gb">
	<link rel="self" type="application/atom+xml" href="https://forum.eggheads.org/app.php/feed/topic/4997" />

	<title>egghelp/eggheads community</title>
	<subtitle>Discussion of eggdrop bots, shell accounts and tcl scripts.</subtitle>
	<link href="https://forum.eggheads.org/index.php" />
	<updated>2003-07-16T13:16:58-04:00</updated>

	<author><name><![CDATA[egghelp/eggheads community]]></name></author>
	<id>https://forum.eggheads.org/app.php/feed/topic/4997</id>

		<entry>
		<author><name><![CDATA[Black|Man]]></name></author>
		<updated>2003-07-16T13:16:58-04:00</updated>

		<published>2003-07-16T13:16:58-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=23565#p23565</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=23565#p23565"/>
		<title type="html"><![CDATA[Mirc script to TCL script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=23565#p23565"><![CDATA[
ok thx  <img class="smilies" src="https://forum.eggheads.org/images/smilies/icon_wink.gif" width="15" height="15" alt=":wink:" title="Wink"><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=2091">Black|Man</a> — Wed Jul 16, 2003 1:16 pm</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[bobjuh]]></name></author>
		<updated>2003-07-16T13:03:37-04:00</updated>

		<published>2003-07-16T13:03:37-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=23564#p23564</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=23564#p23564"/>
		<title type="html"><![CDATA[Mirc script to TCL script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=23564#p23564"><![CDATA[
<blockquote class="uncited"><div>everything is possible..<br><br>check the tcl manual for "bind pub" and "puts" command</div></blockquote>Everything is possible.<br>As said over 100 times already mir scripting is very different to tcl<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=109">bobjuh</a> — Wed Jul 16, 2003 1:03 pm</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[GodOfSuicide]]></name></author>
		<updated>2003-07-16T12:56:17-04:00</updated>

		<published>2003-07-16T12:56:17-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=23563#p23563</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=23563#p23563"/>
		<title type="html"><![CDATA[Mirc script to TCL script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=23563#p23563"><![CDATA[
everything is possible..<br><br>check the tcl manual for "bind pub" and "puts" command<p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=1433">GodOfSuicide</a> — Wed Jul 16, 2003 12:56 pm</p><hr />
]]></content>
	</entry>
		<entry>
		<author><name><![CDATA[Black|Man]]></name></author>
		<updated>2003-07-16T11:39:02-04:00</updated>

		<published>2003-07-16T11:39:02-04:00</published>
		<id>https://forum.eggheads.org/viewtopic.php?p=23560#p23560</id>
		<link href="https://forum.eggheads.org/viewtopic.php?p=23560#p23560"/>
		<title type="html"><![CDATA[Mirc script to TCL script]]></title>

		
		<content type="html" xml:base="https://forum.eggheads.org/viewtopic.php?p=23560#p23560"><![CDATA[
is that posibol to create a TCL script like this mirc script ?<br><div class="codebox"><p>Code: </p><pre><code>on 1000:text:*!clanwar*:#ClanMatch.dk: {  if ($1 == %c $+ !clanwar) {     if ($2 == on) { .enable #gbcode | .msg $chan 5The ClanMatch Database Has Just Been Enabled, To Leave A Message Type %c $+ clanwar | set %last.used.command clanwar on | set %last.person $nick | set %st.gb on | halt }    if ($2 == off) { .disable #gbcode | .msg $chan 5The ClanMatch Database Has Just Been Disabled. | set %last.used.command !clanwar off | set %last.person $nick | set %st.gb off | halt }  }  else { halt }}on 1500:text:*!slet2*:#ClanMatch.dk: {  if ($1 == %c $+ !slet2) { /write -c txt\gbmessages.txt | .msg $nick 5Alle Bedskeder Er Nu Slettet I Databasen. | set %last.used.command Slet %last.person $nick }}#gbcode onon 1:text:*!clanwar*:#ClanMatch.dk: {  if ($1 == %c $+ !clanwar) {     .msg $nick 10Below Are The Commands For The ClanMatch. 4,4 1PLEASE TYPE IN THIS WINDOW     .msg $nick 7!see7 10Let's You View All Postet Match From The Last 24 Hours.    .msg $nick 7!add7 10Let's you add a match to the ClanWar Database From $date  }}on 1:TEXT:*!see*:*: {  if ($1 == %qc $+ !see) {     if ($lines(txt\gbmessages.txt) == 0) { .notice $nick 10There Are Currently No ClanMatch In The DataBase To View. | closemsg $nick | halt }    else { .play $nick txt\gbmessages.txt | closemsg $nick | halt }  }}on 1:text:*!add*:*: {  if ($1 == %qc $+ !add) { writeini ini\gbtemp.ini $nick new ---------------| $+ $fulldate $+ |---------------- | .msg $nick Start And Stop Time Of Match: Eks %qc $+ 7!time 21:55 - 23:007 14  | closemsg $nick }}on 1:text:*!time*:*: {  if ($1 == %qc $+ !time) { writeini ini\gbtemp.ini $nick Kl: Time Of Match: $2- | .msg $nick The Name Of The Clan: Eks %qc $+ 7!clan Energizer7 14 | closemsg $nick }}on 1:text:*!clan*:*: {  if ($1 == %qc $+ !clan) { writeini ini\gbtemp.ini $nick Clan: Clan Name: $2- | .msg $nick How Many Players: Eks %qc $+ 7!player 3v37 14 | closemsg $nick }}on 1:text:*!player*:*: {  if ($1 == %qc $+ !player) { writeini ini\gbtemp.ini $nick Spiller: Player(s): $2- | .msg $nick The Maps Your Clan Will Play on: Eks %qc $+ 7!map Beach/Ice7 14 | closemsg $nick }}on 1:text:*!map*:*: {  if ($1 == %qc $+ !map) { writeini ini\gbtemp.ini $nick Bane: Play On Map: $2- | .msg $nick Server Yes/no or ip: Eks %qc $+ 7!adr Yes/no or !adr 212.242.165.113:279607 14 | closemsg $nick }}on 1:text:*!adr*:*: {  if ($1 == %qc $+ !adr) { writeini ini\gbtemp.ini $nick adr: Name/IP On Server: $2- | .msg $nick Your IRC Channel: Eks %qc $+ 7!irc #wolfenstein.dk7 14 | closemsg $nick }}on 1:text:*!irc*:*: {  if ($1 == %qc $+ !irc) { writeini ini\gbtemp.ini $nick IRC: Your Irc Channel: $2- | .msg $nick Please leave your contact name: Eks %qc $+ 7!contact Black|Man7 14 | closemsg $nick }}on 1:text:*!contact*:*: {  if ($1 == %qc $+ !contact) { writeini ini\gbtemp.ini $nick Kontakt: Your Contact Name: $2- | .msg $nick Please type %qc $+ 7!save7 10 To Save Your Match. 4All Matches Will Be Deletet After 24 Hours | closemsg $nick }}on 1:text:*!save*:*: {  if ($1 == %qc $+ !save) { write txt\gbmessages.txt $readini ini\gbtemp.ini $nick new | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick Kl: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick Clan: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick Spiller: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick Bane: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick adr: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick IRC: | write txt\gbmessages.txt $readini ini\gbtemp.ini $nick Kontakt: | write txt\gbmessages.txt -------------Entry Finished------------- | .msg $nick Your message has been saved, please type %qc $+ 7!see7 14 to view all messages. | remini ini\gbtemp.ini $nick | closemsg $nick }}#gbcode end</code></pre></div><p>Statistics: Posted by <a href="https://forum.eggheads.org/memberlist.php?mode=viewprofile&amp;u=2091">Black|Man</a> — Wed Jul 16, 2003 11:39 am</p><hr />
]]></content>
	</entry>
	</feed>
