This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Mirc script to TCL script

Old posts that have not been replied to for several years.
Locked
B
Black|Man
Voice
Posts: 21
Joined: Fri Oct 25, 2002 8:49 am
Location: Denmark

Mirc script to TCL script

Post by Black|Man »

is that posibol to create a TCL script like this mirc script ?

Code: Select all


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 on
on 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

User avatar
GodOfSuicide
Master
Posts: 463
Joined: Mon Jun 17, 2002 8:00 pm
Location: Austria

Post by GodOfSuicide »

everything is possible..

check the tcl manual for "bind pub" and "puts" command
b
bobjuh
Master
Posts: 268
Joined: Wed Oct 03, 2001 8:00 pm
Location: Netherlands
Contact:

Post by bobjuh »

GodOfSuicide wrote:everything is possible..

check the tcl manual for "bind pub" and "puts" command
Everything is possible.
As said over 100 times already mir scripting is very different to tcl
B
Black|Man
Voice
Posts: 21
Joined: Fri Oct 25, 2002 8:49 am
Location: Denmark

Post by Black|Man »

ok thx :wink:
Locked