API tools faq
paste
Advertisement
intersys

Untitled

intersys
Jul 23rd, 2015
421
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 6.85 KB | None | 0 0
raw download clone embed print report
  1. dialog run {
  2.   title "Ultimate Runners Script - By interSys"
  3.   size -1 -1 199 238
  4.   option dbu
  5.   text "Runners Script - By intersys", 1, 60 7 71 8
  6.   box "Login details", 2, 110 23 86 70
  7.   text "Username:", 3, 7 33 28 8
  8.   edit "", 4, 40 33 64 8
  9.   text "Password:", 5, 7 44 26 8
  10.   edit "", 6, 40 44 64 8
  11.   check "Save details?", 7, 8 68 42 8
  12.   box "Login to the gatherbot", 8, 3 23 106 70
  13.   text "Username:", 9, 114 32 28 8, disable
  14.   text "Not enter yet", 10, 148 32 36 8, disable
  15.   text "Password:", 11, 114 42 26 8, disable
  16.   text "Not enter yet", 12, 148 42 36 8, disable
  17.   check "Auto login on connect", 14, 8 80 72 8
  18.   button "Login", 15, 55 67 37 10
  19.   text "Auto login:", 16, 114 71 28 8, disable
  20.   text "OFF", 17, 153 71 23 8, disable
  21.   text "Login Status:", 18, 114 82 35 8, disable
  22.   text "OFFLINE", 19, 153 82 31 8, disable
  23.   text "Details saving:", 13, 114 61 37 8, disable
  24.   text "OFF", 20, 153 61 23 8, disable
  25.   box "Run Gather", 21, 2 96 194 140
  26.   text "Gather Number", 22, 8 111 39 8
  27.   list 23, 7 121 93 82, size
  28.   text "Maps to run", 24, 104 111 31 8
  29.   list 25, 103 121 86 82, size
  30.   button "Run Gather", 26, 6 205 185 12
  31.   edit "Gather Status", 27, 6 221 184 10, disable center
  32.   text "Gbot name:", 28, 7 54 31 8
  33.   edit "", 29, 40 54 64 8
  34.   button "Add Map", 30, 141 109 46 10
  35.   button "Refresh", 31, 50 109 40 10
  36.   text "Gbot name:", 32, 114 51 31 8, disable
  37.   text "Bar - Gather", 33, 148 51 41 8, disable
  38. }
  39.  
  40. on *:dialog:run:*:*: {
  41.   if ($devend == close) {
  42.     if (%r.dsave == on) {
  43.       set %r.user $did(4)
  44.       set %r.pass $did(6)
  45.       set %r.gbot $did(29)
  46.     }
  47.   }
  48.   elseif ($devent == dclick) {
  49.     if ($did == 25) {
  50.       did -r $dname 25
  51.       var %x = 1
  52.       write -d $+ $read(RMaps.txt,$did($dname,25).sel) RMaps.txt
  53.       while ($read(RMaps.txt,%x)) {
  54.         did -a $dname 25 $ifmatch
  55.         inc %x
  56.       }
  57.     }
  58.   }
  59.   elseif ($devent == sclick) {
  60.     if ($did == 26) {
  61.       echo -s $did(29)
  62.       if ($did($dname,23).sel == 0) { did -ra $dname 27 Error! You not selected gather to run. }
  63.       elseif ($did($dname,25).sel == 0) { did -ra $dname 27 Error! You not selected map to run. }
  64.       elseif (!%r.gbot) || (!$did(29)) { did -ra $dname 27 Error! You dont write the gatherbot name. }
  65.       elseif (%r.log != on) { did -ra $dname 27 Error! You not logged to the gatherbot. }
  66.       else {
  67.         var %sign = $readini(RunGTR.ini,$did($dname,23).sel,Sign), %map = $read(RMaps.txt,$did($dname,25).sel)
  68.         msg $iif(%r.gbot,%r.gbot,$did(29)) %sign $+ start %map | did -ra $dname 27 Your run gather succsesfuly!
  69.       }
  70.     }
  71.     elseif ($did == 30) {
  72.       var %x = $input(Enter new map,e,Adding new map), %i = 1 | if (%x) write RMaps.txt %x | did -r $dname 25
  73.       while ($read(RMaps.txt,%i)) {
  74.         did -a $dname 25 $ifmatch
  75.         inc %i
  76.       }
  77.     }
  78.     elseif ($did == 31) {
  79.       rund
  80.       did -ra $dname 23 Getting status, please wait ...
  81.       .timer 1 5 rund2
  82.     }
  83.     elseif ($did == 15) {
  84.       var %x = $regsubex($me,/^(?:\[?.+?\](.+?)|.+\|(.+?))$/i,\1) | nick vG $+ $chr(124) $+ %x
  85.      .timer 1 1 join #vgathers.crew,#vGames
  86.       .timer 1 2 msg $iif(%r.gbot,%r.gbot,$did(29)) !login $iif(%r.user,%r.user,$did(4)) $iif(%r.pass,%r.pass,$did(6))
  87.       did -ra $dname 10 $iif(%r.user,%r.user,$did(4))
  88.       did -a $dname 12 $iif(%r.pass,%r.pass,$did(6))
  89.       did -a $dname 33 $iif(%r.gbot,%r.gbot,$did(29))
  90.       did -a $dname 20 $iif(%r.dsave == ON,ON,OFF)
  91.       did -a $dname 17 $iif(%r.autolog == ON,ON,OFF)
  92.     }
  93.     elseif ($did == 7) {
  94.       set %r.dsave $iif($did(7).state == 1,ON,OFF)
  95.       did -a $dname 20 $iif($did(7).state == 1,ON,OFF)
  96.       if (%r.dsave == on) {
  97.         set %r.user $did(4)
  98.         set %r.pass $did(6)
  99.         set %r.gbot $did(29)
  100.       }
  101.       else { unset %r.* }
  102.     }
  103.     elseif ($did == 14) { set %r.autolog $iif($did(14).state == 1,ON,OFF) | did -a $dname 17 $iif($did(14).state == 1,ON,OFF) }
  104.   }
  105.   elseif ($devent == init) {
  106.     did -a $dname 4 %r.user
  107.     did -a $dname 6 %r.pass
  108.     did -a $dname 29 %r.gbot
  109.     did -a $dname 10 $iif(%r.user,%r.user,Not enter yet)
  110.     did -a $dname 12 $iif(%r.pass,%r.pass,Not enter yet)
  111.     did -a $dname 33 $iif(%r.gbot,%r.gbot,Not enter yet)
  112.     did -a $dname 20 $iif(%r.dsave == ON,ON,OFF)
  113.     did -a $dname 17 $iif(%r.autolog == ON,ON,OFF)
  114.     did -a $dname 19 $iif(%r.log == ON,ONLINE,OFFLINE)
  115.     did $iif(%r.dsave == on,-c,-u) $dname 7
  116.     did $iif(%r.autolog == on,-c,-u) $dname 14
  117.     var %x = 1
  118.     while ($ini(RunGTR.ini,%x)) {
  119.       did -a $dname 23 Gather: $ifmatch $chr(124) Status $readini(RunGTR.ini,$ifmatch,Gather $+ %x) $+ $chr(124) Sign: $readini(RunGTR.ini,$ifmatch,Sign)
  120.       inc %x
  121.     }
  122.     var %x = 1
  123.     while ($read(RMaps.txt,%x)) {
  124.       did -a $dname 25 $ifmatch
  125.       inc %x
  126.     }
  127.   }
  128. }
  129.  
  130. on *:connect: {
  131.   if (%r.autolog == on) {
  132.     set %r.log OFF
  133.     echo -s 10(Autologin - By intersys) Auto connecting to your accounet in vGames.Gathers, Please wait ...
  134.     var %x = $regsubex($me,/^(?:\[?.+?\](.+?)|.+\|(.+?))$/i,\1)
  135.     .timer 1 3 nick vG $+ $chr(124) $+ %x
  136.     .timer 1 4 join #vGames.Gathers,#vGathers.Crew
  137.     .timer 1 7 msg %r.gbot !login %r.user %r.pass
  138.   }
  139. }
  140.  
  141. on *:text:*:?: {
  142.   if ($nick == %r.gbot) {
  143.     if (You have successfully login isin $strip($1-)) { set %r.log ON | did -ra run 19 ONLINE }
  144.     elseif (You are logged out isin $strip($1-)) { set %r.log OFF | did -ra run 19 OFFLINE }
  145.   }
  146. }
  147.  
  148. on *:text:*:#vGames.Gathers: {
  149.   if ($nick == vG|Rankbot) && (Gather 1: isin $strip($1-)) && (%msgon) {
  150.     noop $regsubex($strip($1-),/\((.)\) Gather (\d+): \((ON|OFF|Adding)(?:\|[^\x29]*)?\)/g, $rplaa(\1, \2, \3))
  151.   }
  152. }
  153.  
  154. alias rund2 {
  155.   did -r run 23
  156.   var %x = 1
  157.   while ($ini(RunGTR.ini,%x)) {
  158.     did -a run 23 Gather: %x $chr(124) Status $readini(RunGTR.ini,%x,Gather $+ %x) $+ $chr(124) Sign: $readini(RunGTR.ini,%x,Sign)
  159.     inc %x
  160.   }
  161. }
  162.  
  163. alias rund {
  164.   .echo -ag 14Please wait, its get the status gathers ...
  165.   .msg #vGames.gathers ?status
  166.   .set -u3 %msgon on
  167. }
  168.  
  169. alias rplaa { writeini -n RunGTR.ini $2 Gather $+ $2 $3 | writeini -n RunGTR.ini $2 Sign $1 }
  170. alias RunnerD { rund | if (!$dialog(run)) .timer 1 5 dialog -m run run }
  171. menu * {
  172.   Runners Script - By intersys: RunnerD
  173. }
  174. on *:load: {
  175.   echo -s 04Ulitmate Runners Script - By intersys
  176.   echo -s 04Version 0.1
  177.   var %a = write RMaps.txt
  178.   %a de_dust2
  179.   %a de_inferno
  180.   %a de_nuke
  181.   %a de_train
  182.   %a de_mirage
  183.   %a de_cbble
  184.   %a de_dust
  185.   %a de_cpl_strike
  186.   %a de_cpl_fire
  187.   %a de_cpl_fire
  188.   %a de_vertigo
  189.   %a de_rotterdam
  190.   %a de_aztec
  191.   %a de_vegas
  192.   %a de_prodigy
  193.   %a de_survivor
  194.   %a de_torn
  195.   %a de_storm
  196.   %a de_chateau
  197.   %a de_piranesi
  198.   %a de_perfect_inferno
  199.   %a de_airstrip
  200.   %a de_nuke_1337
  201.   %a de_tuscan
  202.   %a de_cpl_mill
  203.   %a de_forge
  204.   %a de_cpl_fire
  205.   %a de_cpl_strike
  206.   %a de_rats
  207.   %a de_rats_1337
  208.   %a de_perfect_inferno
  209.   %a de_nuke_1337
  210.   %a cs_havana
  211.   %a cs_thunder
  212.   %a cs_assault_upc
  213.   %a cs_assault
  214.   %a cs_italy
  215.   %a cs_assault_shadow
  216.   %a cs_assault_upc
  217.   %a as_oilrig
  218.   %a cs_estate
  219.   %a cs_office
  220.   %a cs_747
  221. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!