RE: Simple Voice Script

[kevie]

Hi, can anyone provide a code whereby the bot checks the user who just joined channel B, whether he got a voice in channel A, and if he's got a voice, the bot will voice him too in channel B...

[Papillon]

we do not make codes for free in this forum
...but if you had cared to used the search button you would have found a post which contains almost exactly the code you want

[Weirdo]

Go to the Docs folder of your Eggdrop, and read TCL-Commands.doc

And look at the Join Binds

[kevie]

kind people out there please help me, i've really got no clues thats why i turned to here.

[caesar]

Code: Select all

set mychan1 "#foo"
set mychan2 "#bar"

bind join * "$mychan2 *" my:join:voice
bind mode * "$mychan1 +v" my:mode:voice

##
# join

proc my:join:voice {nick uhost handle channel} {
  if {[validchan $::mychan2] && [botonchan $::mychan1] && [isvoice $nick $::mychan1] && [botisop $channel]} {
    pushmode $channel +v $nick
  }
}

##
# mode

proc my:mode:voice {nick uhost handle channel mc victim} {
  if {[validchan $::mychan2] && [botonchan $::mychan2] && [onchan $victim $::mychan2] && [botisop $::mychan2]} {
    pushmode $::mychan2 +v $victim
  }
}

[kevie]

Thanks so much guys, anyhow i would wish someone could really help me convert this into tcl when they're free

Code: Select all

n0=on 1:INPUT:#e-hub:{
n1=  if ($1- == !list) {      
n2=    ;if (%listinehub == 0) { 
n3=    %listinehub = 1
n4=    /set %voicelist
n5=    /set %voicelistcount 0
n6=    .timersetlistinehub 1 20 /dec %listinehub
n7=    ;}
n8=  }  
n9=}
n10=
n11=on *:notice:*serv*trig*send*:?:{
n12=  if ($me isop #e-hub) { 
n13=    if (%listinehub == 1) {
n14=      if ($nick !isvo #e-hub) && ($nick !isop #e-hub) {        
n15=        /inc %voicelistcount       
n16=        %voicelist = %voicelist $+ $chr(32) $+ $nick
n17=        if (%voicelistcount = 4) {
n18=          mode #e-hub + $+ $str(v,%voicelistcount) %voicelist
n19=          /unset %voicelist
n20=          /unset %voicelistcount
n21=          /set %voicelist
n22=          /set %voicelistcount 0
n23=        }
n24=        .timervoiceservers 1 5 /process
n25=      }
n26=    }
n27=  }
n28=}
n29=
n30=on *:notice:*§ËRV*t®îg*SeND*:?:{   
n31=  if ($me isop #e-hub) { 
n32=    if (%listinehub == 1) {
n33=      if ($nick !isvo #e-hub) && ($nick !isop #e-hub) {        
n34=        /inc %voicelistcount       
n35=        %voicelist = %voicelist $+ $chr(32) $+ $nick
n36=        if (%voicelistcount = 4) {
n37=          mode #e-hub + $+ $str(v,%voicelistcount) %voicelist
n38=          /unset %voicelist
n39=          /unset %voicelistcount
n40=          /set %voicelist
n41=          /set %voicelistcount 0
n42=        }
n43=        .timervoiceservers 1 5 /process
n44=      }
n45=    }
n46=  }
n47=}
n48=
n49=alias Process {
n50=  if (%voicelistcount != 0) {
n51=    mode #e-hub + $+ $str(v,%voicelistcount) %voicelist
n52=    /unset %voicelist
n53=    /unset %voicelistcount
n54=    /set %voicelist
n55=    /set %voicelistcount 0
n56=  }
n57=}
n58=
n59=alias FServeTracker {  
n60=  echo -a ::: FServe Tracker :::
n61=  if ($me ison #etro && $me isop #etro) {
n62=    /timertracker 0 7200 /FServeTracker
n63=    /msg #etro ::: Processing Task :::
n64=
n65=    var %nickcounter = 1
n66=    while (%nickcounter <= $nick(#etro,0,a,o)) {
n67=      var %nickname
n68=      var %nickname2
n69=      %nickname = $nick(#etro,%nickcounter,a,o)
n70=      if (%nickname ==  nUy3kN0d || *ColDeR* iswm %nickname ) {
n71=        if (%nickname == nUy3kN0d) { %nickname2 = LeeYZ }
n72=        if (*ColDeR* iswm %nickname) { %nickname2 = Co|DeR }
n73=      }
n74=      else {
n75=        %nickname2 = %nickname
n76=      }
n77=      if (%nickname isvoice #etro) { 
n78=        if (%nickname2 isvoice #e-hub || %nickname2 isop #e-hub) {
n79=
n80=        }
n81=        else {
n82=          if (*naf* iswm %nickname2) {
n83=          }
n84=          else {         
n85=            mode #etro -v %nickname
n86=          }
n87=        }
n88=      }
n89=      else {
n90=        if (%nickname2 isvoice #e-hub || %nickname2 isop #e-hub) {
n91=          mode #etro +v %nickname
n92=        }
n93=      } 
n94=
n95=      inc %nickcounter
n96=    }
n97=  }
n98=  if (LeeYZ isvoice #e-hub) {
n99=
n100=  }
n101=  ;/msg #etro [Notice] Servers not serving will not be voiced here. (Currently under testing. If you are serving and got devoiced, give me a message) - FServe Tracker -
n102=}

[stdragon]

If all you want is help, not someone to do it for you, then go ahead and start and ask about problems you run into. If you're not sure where to start, then you need to read through a couple simple tcl scripts, because pretty much all eggdrop scripts have the same overall structure (config, binds, procs, etc).

[kevie]

...