Humble Rekick Zildjan Server II

By jefsthampied on Dec 14, 2011

WarScript Single Rekick

.================================================================.
.CODEname: Humble Team Script Rekick i-updated v2                .
-----------------------------------------------------------------.
.Author: sEmuT^Ap| a.k.a Code-Q a.k.a toyolx                     .
-----------------------------------------------------------------.
.Time-Update: 8.20pm-9.43pm (06.08.2011)                         .
-----------------------------------------------------------------.
.Tester: Siapa² saja yg rasa diri nya memerlukan.. :D            .
-----------------------------------------------------------------.
.Special Thanks: To All Humble Team member and Master radamn     .
-----------------------------------------------------------------.
.How To Use: Just Load The Script IRC to the remote,and then     .
.make sure the dialog(f5) is open,to kick enemies target,press-  .
.f4,then fill the nickTarget,then press OK.. Enjoy lah ar..      .
.================================================================.
-
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Start Remote
on *:start:{
  .fullname THE $+ _HUMBLE_ $+ TEAM II
  .nick JefHensem
  .anick HumbleJef
  .emailaddr m_matsalleh $+ yahoo.com
  .set %jeftrig kick,join,mode,003,005,007,331,441,474
  .set %signal $true
  .set %baseChan #rekick
  .set %jo1 1
  .set %jo2 10
  .set %k1 17
  .set %k2 2
  .set %joi1 18
  .set %joi2 1
  .set %m1 15
  .set %m2 1
  .set %raw1 20
  .set %raw2 4
  .f5
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Sock Alias
alias getRawKicker { 
  if (%getMusuh) .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Raw_Time 1
  if (%getMusuh) .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Raw_Time_2 
  if (%getMusuh) .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Raw_Time_3
  if (%getMusuh) .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Raw_Time_4 
  if (%getMusuh) .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Raw_Time_5 
}
alias getKickElse { .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4AllAboutElse | .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4AllAboutElse 2 }
alias myWindows { if (!$window(@myWindows)) { window -ae-550 @myWindows  } }
alias hR { sockwrite -tn $1- }
alias signalCode: { .signal -tn $1- }
alias sockConfig {
  .set %humbleSig HumbleBots
  .set %getChan #rekick
  .set %getServ birc.mine.nu
  .set %getPort 6668
}
alias sf1 { .sockConfig | msg %getChan 4Sock Is Now Configured }
alias f2 { .sockopen %humbleSig %getServ %getPort | window -e @myWindows }
alias semut { return $mid($1,2,$calc($pos($1,!,1) - 2 )) }
alias f5 HumbleJeffSedih_
alias HumbleJeffSedih_ { if (!$dialog(HumbleJeffSedih)) dialog -m HumbleJeffSedih_ HumbleJeffSedih_ }
alias f4 { //sockwrite -tn HumbleBots kick %getChan $$?"Enter Your Nick Target Here Bah" }
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Sockopen Here
on *:sockopen:%humbleSig:{
  if (!$sockerr) {
    hR $sockname USER Humble $+ $r(1,99999) * * : 4Updating SockSig
    hR $sockname NICK $sockname
    .myWindows info %humbleSig Connected to %getServ
    //sockwrite -tn %humbleSig join %getChan | .myWindows info %humbleSig join %getChan
    .timerOpen -mc 33 63 .sockwrite -tn %humbleSig kick %getChan %getMusuh : $+ 4Sockopen Kick +
  }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Sockread Here
on *:sockread:*:{
  var %nt goto nextread
  if ($sockerr > 0) return
  :nextread
  sockread -f %temp
  tokenize 32 %temp
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  if ($regex($1,^PING$))  { .sockwrite -tn $sockname pong $remove($2,:) | %nt }
  if ($2 == ERROR) { sockclose $sockname }
  if ($regex($2,^(QUIT|PART|PRIV|NOTI|001|002|004|008|009|251|252|254|255|265|266|267|377|353|328|332|333|366|372|375|376|401|403|404|431|442|482)$)) { %nt }
  if ($regex($2,^(432|433)$)) { hR $sockname NICK $sockname }
  else {
    if (%signal) {
      var %jef goto jef
      if ($istok(%jeftrig,$2,44)) { goto $left($2,4) } | { var %r $left($2,3) } | %jef 
      :kick | signalCode: kick $sockname $1- | %jef
      :join | signalCode: join $sockname $1- | %jef
      :mode | signalCode: mode $sockname $1- | %jef
      :441 | signalCode: 441 $sockname $1- | %r
      :003 | signalCode: 003 $sockname $1- | %r
      :005 | signalCode: 005 $sockname $1- | %r
      :007 | signalCode: 007 $sockname $1- | %r
      :331 | signalCode: 331 $sockname $1- | %r
      :474 | signalCode: 474 $sockname $1- | :jef
    }
  }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Signal Event
on *:signal:*:{
  if ($signal == kick) {
    if ($4 == %getChan) {
      var %s $semut($2)
      if ($5 == $1) {
        .set %getMusuh $addtok(%getMusuh,%s,44)
        .timerJ1 -mc %jo1 %jo2 .sockwrite -tn %humbleSig join %getChan
        .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4kick_balik 1
        .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4kick_balik 2
        .timerK1 -mc %k1 %k2 .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4kick_balik 3
      }
      if ($knick == $sockname) { .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4kick_Teruskan }
    }
    else { if (%getMusuh) getKickElse $sockname }
  }
  if ($signal == join) {
    var %x $semut($2)
    if ($istok(%getMusuh,%x,44)) && ($1 != %x) {
      .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Join_Kick 1
      .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Join_Kick 2
      .timerJK -mc %joi1 %joi2 .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Join_Kick 3
      .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Follow_Up_Join_Kick
    }
    else { if (%getMusuh) getKickElse $sockname }
  }
  if ($signal == mode) {
    var %yz $semut($2), %cv $left($5,2)
    if (%cv == +o) {
      if ($6 == $1) {
        .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Mode_Kick 1
        .timerMD -mc %m1 %m2 .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Mode_Kick
        .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Mode_Kick_2
      }
    }
    else { if (%getMusuh) getKickElse $sockname }
  }
  if ($signal == 003) {  if (%getMusuh) .timerRaw1 -mc %raw1 %raw2 .getRawKicker | { HALT } }
  if ($signal == 005) {  if (%getMusuh) .timerRaw2 -mc %raw1 %raw2 .getRawKicker | { HALT } }
  if ($signal == 007) {  if (%getMusuh) .timerRaw3 -mc %raw1 %raw2 .getRawKicker | { HALT } }
  if ($signal == 331) {  if (%getMusuh) .timerRaw4 -mc %raw1 %raw2 .getRawKicker | { HALT } }
  if ($signal == 441) {  if (%getMusuh) .timerRaw5 -mc %raw1 %raw2 .getRawKicker | { HALT } }
  if ($signal == 474) { .unset %getMusuh | .timerHensem -m 1 10 sockwrite -tn %humbleSig join %getChan | .halt }
  else { echo -ct $2 @myWindows $1- }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Extra Event
on *1:join:%getChan:{
  if ($knick != %humbleSig) && (%getMusuh == %getChan) {
    .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Join_Kick
    .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4MJoin_Kick Teruskan
  }
  else { .sockwrite -tn %humbleSig $eval(kick %getChan %getMusuh) : $+ 4Join_Kick DiTerusKanLagi | { HALT } }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Notify Event
on *:unotify:{
  if ( $nick == %humbleSig ) {
    .sockclose *
    .timersnot -m 1 35 .f2
  }
}
on *:notify:{
  if ($me ison %getChan) && ( $nick == %humbleSig ) {
    sockwrite -tn %humbleSig join %getChan
  }
  else { halt }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Dialog Event
dialog HumbleJeffSedih_ {
  title "Humble Configuration By: sEmuT^Ap| a.k.a Code-Q"
  size -1 -1 216 166
  option dbu notheme
  box "HUMBLE INSIDE", 1, 4 55 208 50
  box "HUMBLE CONTROLLER", 2, 5 4 206 50
  button "CONFIG", 3, 9 14 62 12
  button "CONNECT", 4, 9 29 62 12
  button "CLEAR", 5, 79 15 58 12
  button "RESET", 6, 80 29 58 12
  button "RECONNECT", 7, 145 15 56 12
  button "CLOSE", 8, 146 29 56 12
  box "Info War Rekick", 11, 11 75 191 25
  box "TIMER SOCKET ", 16, 5 107 206 56
  box "KICK", 17, 9 114 71 20
  text "-mc", 18, 12 121 18 8
  edit "", 19, 26 121 19 10
  edit "", 20, 48 121 18 10
  box "JOIN", 21, 10 136 70 18
  text "-mc", 22, 12 143 16 8
  edit "", 23, 25 142 20 10
  edit "", 24, 48 142 18 10
  box "JOIN KICK", 25, 85 115 61 19
  text "-mc", 26, 88 123 14 8
  edit "", 27, 100 122 17 9
  edit "", 28, 121 122 17 10
  box "MODE", 29, 84 136 61 19
  text "-mc", 30, 88 142 13 8
  edit "", 31, 99 142 17 10
  edit "", 32, 119 142 17 10
  box "ALL_RAW", 33, 152 115 54 19
  text "-mc", 34, 155 123 13 8
  edit "", 35, 166 122 18 10
  edit "", 36, 187 122 18 10
}
on 1:dialog:HumbleJeffSedih_:sclick:3:{ .sockConfig | msg %baseChan 2Configuration Sock Done } | return
on 1:dialog:HumbleJeffSedih_:sclick:4:{ .f2 | msg %baseChan 2Socket Rekick Connected } | return
on 1:dialog:HumbleJeffSedih_:sclick:5:{ .unset %getMusuh | msg %baseChan 2Enemies Cleared } | return
on 1:dialog:HumbleJeffSedih_:sclick:6:{ .sockwrite -tn %humbleSig privmsg %getChan ~waroff } | return
on 1:dialog:HumbleJeffSedih_:sclick:7:{ msg %baseChan 2Reconnect The Bot.. | //sockclose * | .f2 } | return
on 1:dialog:HumbleJeffSedih_:sclick:8:{ msg %baseChan 2Socket Closed Now,Make Config To Start it Back.. | .unset %humbleSig %getServ %getPort | //sockclose * } | return
on 1:dialog:HumbleJeffSedih_:*:*:{
  var %Jeff_Sedih = $dname, %Break_dengan_Tunang = $did
  if ($devent == init) {
    if (%getMusuh != $null) { did -a %Jeff_Sedih 10 %getMusuh }
    if (%k1 != $null) { did -a %Jeff_Sedih 19 %k1 }
    if (%k2 != $null) { did -a %Jeff_Sedih 20 %k2 }
    if (%jo1 != $null) { did -a %Jeff_Sedih 23 %jo1 }
    if (%jo2 != $null) { did -a %Jeff_Sedih 24 %jo2 }
    if (%joi1 != $null) { did -a %Jeff_Sedih 27 %joi1 }
    if (%joi2 != $null) { did -a %Jeff_Sedih 28 %joi2 }
    if (%m1 != $null) { did -a %Jeff_Sedih 31 %m1 }
    if (%m2 != $null) { did -a %Jeff_Sedih 32 %m2 }
    if (%raw1 != $null) { did -a %Jeff_Sedih 35 %raw1 }
    if (%raw2 != $null) { did -a %Jeff_Sedih 36 %raw2 }
  }
  if ($devent == edit) {
    if (%Break_dengan_Tunang == 10) { .set %getMusuh $did(10) }
    if (%Break_dengan_Tunang == 19) { .set %k1 $did(19) }
    if (%Break_dengan_Tunang == 20) { .set %k2 $did(20) }
    if (%Break_dengan_Tunang == 23) { .set %jo1 $did(23) }
    if (%Break_dengan_Tunang == 24) { .set %jo2 $did(24) }
    if (%Break_dengan_Tunang == 27) { .set %joi1 $did(27) }
    if (%Break_dengan_Tunang == 28) { .set %joi2 $did(28) }
    if (%Break_dengan_Tunang == 31) { .set %m1 $did(31) }
    if (%Break_dengan_Tunang == 32) { .set %m2 $did(32) }
    if (%Break_dengan_Tunang == 35) { .set %raw1 $did(35) }
    if (%Break_dengan_Tunang == 36) { .set %raw2 $did(36) }
  }
}
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=  Script End

jefsthampied

Like Page Follow Author

Comments

Sign in to comment.
Celeron   -  Jan 10, 2012

1/10

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.