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.

mrc to tcl

Help for those learning Tcl or writing their own scripts.
Post Reply
l
l.kleijn
Voice
Posts: 33
Joined: Sun May 18, 2014 10:02 am

mrc to tcl

Post by l.kleijn »

Code: Select all

on *:join:#: {
  if ($readini(barserv.ini,money,$nick) >= 0) { notice $nick You've been here before | halt }
  else /writeini barserv.ini money $nick 50.00 |  notice $nick You received 50.00 Euro to spend by me.
}
on *:text:.pay*:#: {
  if (%cmd == off) { notice $nick Wait until the commands working. | halt }
  if (%cmd == on) && ($2 == topic) && (10.00 >= $readini(barserv.ini,money,$nick)) { notice $nick You don't have enough money. | halt } else { notice $nick First there must be paid. | set %cmd off | timer 1 20 set %cmd on | notice $nick The payment will start. | msg %bot calc $readini(barserv.ini,money,$nick) - $readini(barserv.ini,costs,topic) | set %nick $nick | topic # $3- | halt }
}
on *:text:.+costs*:#: {
  if (%cmd == off) { notice $nick Wait until the commands working | halt }
  if (%cmd == on) { writeini barserv.ini costs $2 $3 | set %cmd off | timer 1 20 set %cmd on | halt }
}
on *:text:Calc*:?: {
  /writeini barserv.ini money %nick $6 | close -m
}
on *:text:.money:#: {
  notice $nick You have $readini(barserv.ini,money,$nick) Euro.
}
Can someone pls help me with mrc to tcl ?
Post Reply