05-30-2020, 07:49 +0200
AuthorPost
Sincan2  12-20-2011, 12:10   | pls help I need trnaslate TO .tcl
Member since 12/2011
1 Post
;#######################################################################
;  Bot Host Command
;#######################################################################
on channel:text:!+friend *:#:{ auser 100 $2 | msg #  Friend ditambahkan oleh $nick - Added $2 in My Ignore List | /ignore $2 }
on channel:text:!-friend *:#:{ ruser 100 $2 | msg #  Friend dihapus oleh $nick - Deleted $2 from My Ignore List | /ignore -r $2 }



;#######################################################################
;  Untuk bot-1, bot-2, bot-3, bot-4 dan bot-5
;#######################################################################
on channel:text:!set bot-1 1:#:{ set %bot1 1 | msg # bot 1 di set ada di chan ini | halt }
on channel:text:!set bot-1 0:#:{ set %bot1 0 | msg # bot 1 di set tidak ada di chan ini | halt }
on channel:text:!set bot-2 1:#:{ set %bot2 1 | msg # bot 2 di set ada di chan ini | halt }
on channel:text:!set bot-2 0:#:{ set %bot2 0 | msg # bot 2 di set tidak ada di chan ini | halt }
on channel:text:!set bot-3 1:#:{ set %bot3 1 | msg # bot 3 di set ada di chan ini | halt }
on channel:text:!set bot-3 0:#:{ set %bot3 0 | msg # bot 3 di set tidak ada di chan ini | halt }
on channel:text:!set bot-4 1:#:{ set %bot4 1 | msg # bot 4 di set ada di chan ini | halt }
on channels:text:!set bot-4 0:#:{ set %bot4 0 | msg # bot 4 di set tidak ada di chan ini | halt }
on channel:text:!set bot-5 1:#:{ set %bot5 1 | msg # bot 5 di set ada di chan ini | halt }
on channel:text:!set bot-5 0:#:{ set %bot5 0 | msg # bot 5 di set tidak ada di chan ini | halt }


on *:TEXT:!bot-1*:#: {
  if ($2 == $null) { msg $nick Perintah salah. Contoh !bot-1 5AP PRO ONLY [BOFF] (Max. 31 karakter) | HALT }
  if (%bot2 == 0) { msg $nick Mohon maap, bot bot-1 sedang tidak ditempat, tunggulah hingga bot-1 ada di channel ini | HALT }
  if ($($+(%,floodt,.,#),2)) {
    /msg $nick Mohon jangan mengulang perintah yg sama 2x, tunggulah 30 detik dari command !bot-1 !bot-2 !bot-3 !bot-4 atau !bot-5 sebelumnya | HALT
  }
  if (!$($+(%,floodt,.,#),2)) {
    set -eu30 $+(%,floodt,.,#) on
    /msg # 1pubby $nick $2-
  }
}

on *:TEXT:!bot-2*:#: {
  if ($2 == $null) { msg $nick Perintah salah. Contoh !bot-2 5AP PRO ONLY [BOFF] (Max. 31 karakter) | HALT }
  if (%bot2 == 0) { msg $nick Mohon maap, bot bot-2 sedang tidak ditempat, tunggulah hingga bot-2 ada di channel ini | HALT }
  if ($($+(%,floodt,.,#),2)) {
    /msg $nick Mohon jangan mengulang perintah yg sama 2x, tunggulah 30 detik dari command !bot-1 !bot-2 !bot-3 !bot-4 !bot-5 atau !
    sebelumnya | HALT
  }
  if (!$($+(%,floodt,.,#),2)) {
    set -eu30 $+(%,floodt,.,#) on
    /msg # 2pubby $nick $2-
  }
}

on *:TEXT:!bot-3*:#: {
  if ($2 == $null) { msg $nick Perintah salah. Contoh !bot-3 5AP PRO ONLY [BOFF] (Max. 31 karakter) | HALT }
  if (%bot3 == 0) { msg $nick Mohon maap, bot bot-3 sedang tidak ditempat, tunggulah hingga bot-3 ada di channel ini | HALT }
  if ($($+(%,floodt,.,#),2)) {
    /msg $nick Mohon jangan mengulang perintah yg sama 2x, tunggulah 30 detik dari command !bot-1 !bot-2 !bot-3 !bot-4 !bot-5 sebelumnya | HALT
  }
  if (!$($+(%,floodt,.,#),2)) {
    set -eu30 $+(%,floodt,.,#) on
    /msg # 3pubby $nick $2-
  }
}

on *:TEXT:!bot-4*:#: {
  if ($2 == $null) { msg $nick Perintah salah. Contoh !bot-4 5AP PRO ONLY [BOFF] (Max. 31 karakter) | HALT }
  if (%bot4 == 0) { msg $nick Mohon maap, bot bot-4 sedang tidak ditempat, tunggulah hingga bot-4 ada di channel ini | HALT }
  if ($($+(%,floodt,.,#),2)) {
    /msg $nick Mohon jangan mengulang perintah yg sama 2x, tunggulah 30 detik dari command !bot-1 !bot-2 !bot-3 !bot-4 !bot-5 sebelumnya | HALT
  }
Advanced options for this topic:

Ignore this topic (Do not list this topic in the "unread topics" search. You are currently not ignoring this topic.)
Hide this topic (Hidden topics are not displayed in the topics list. This topic is currently not hidden.)
Go to forum

Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen | Time: 235.7 msec, CPU time: 69.6 msec, 30 Database queries in 193.6 msec | 3 kB (12.2 kB) | Timezone: +0200