עמוד ראשי מירק סקריפטינג סניפטים Gather Auto Join

Gather Auto Join

mIRC Snippets - בפורום זה יפורסמו קודים שימושיים למירק. לפרסום קודים יש לפרסמם תחילה בפורום "פרסום קודים ומדריכים" ולאחר מכאן הם יועברו לפורום זה.

Ventox
משתמש רשום
Gather Auto Join
הצטרף: 01 יולי 2010, 12:45
הודעות: 29
פורסם: 02 יולי 2010, 13:49
שם הקוד: Gather Auto Join
יוצר: Ventox
גירסא: 1.4
תיאור: כשהגאטרבוט שולח לכם את הפרטים זה יכנס אוטומטית למשחק ולאנטי ציט, או שאפשר להיכנס לשרת דרך המירק בלי קשר...
הפעלה: קליק ימני בערוץ Gather Auto Join by Ventox
דרישות: Steam
תמונה:
תמונה

הקוד:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; Gather Auto Join By Ventox [/VentoxAJ] ;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias ConnectToServer { if ($1) run -q %SteamLocation -applaunch 10 -console +connect $1 $iif($2,+password $2) }
alias FindSteam {
  if (!$1) {
    var %x = 1
    while ($disk(%x) != $null) {
      if ($disk(%x).type == fixed) && ($findfile($+($disk(%x).path,Program Files\),Steam.exe,0)) { set %steamLocation $findfile($+($disk(%x).path,Program Files\),Steam.exe,1) | break }
      inc %x
    }
    if ($dialog(Ventox)) && (%steamLocation) { did -ra Ventox 9 %steamLocation }
    if (%steamLocation) echo -a 1(12Ventox1) Steam location found:4 %steamLocation
    elseif (!%steamLocation) {
      echo -a 1(12Ventox1) Steam Location not found automatic ,try the manually way.
      if ($dialog(Ventox)) { did -ra Ventox 9 Steam Location not found automatic ,try the manually way. }
    }
  }
  elseif ($1 == Manual) { set %steamLocation $$sfile(C:\*Steam.exe,Find your Steam.exe) | if ($dialog(Ventox)) { did -ra Ventox 9 %steamLocation } | echo -a 1(12Ventox1) Steam location found:4 %steamLocation }
}
alias FindAntiCheat { set %AntiCheatLocation $$sfile(C:\Program Files\Cheat-Defender\Cheat-Defender.exe,Find your Cheat-Defender.exe/AntiCheat.exe) | if ($dialog(Ventox)) { did -ra Ventox 19 %AntiCheatLocation } | echo -a 1(12Ventox1) AntiCheat location found:4 %AntiCheatLocation } }
dialog Ventox {
  title "Gather Auto Join By Ventox [/VentoxAJ]"
  size -1 -1 142 164
  option dbu
  box "Steam Searcher", 1, 3 3 68 41
  button "Find Steam automatic", 2, 7 14 60 12
  button "Find Steam manually", 3, 7 28 60 12
  box "About", 4, 73 3 68 41
  text "Gather Auto Join Made by Ventox <Version 1.4>", 5, 76 12 62 27
  edit "", 6, 2 105 138 10, read autohs
  box "Settings", 7, 3 46 138 21
  text "Steam location:", 8, 6 54 39 8
  edit "", 9, 44 53 94 10, read autovs
  box "Connect to server", 10, 2 68 138 35
  text "IPort:", 11, 6 77 15 8
  edit "", 12, 21 76 117 10, autovs
  check "Password", 13, 5 88 34 10
  edit "", 14, 40 88 72 10, autovs
  button "Connect", 15, 113 88 24 11
  box "Anti Cheat", 16, 2 116 138 46
  button "Find AntiCheat manually", 17, 6 126 131 12
  text "AntiCheat location:", 18, 6 141 47 8
  edit "", 19, 52 140 86 10, read autovs
  check "Enable", 20, 6 150 28 10
}
On *:Dialog:Ventox:init:*: {
  if (%steamLocation) did -a $dname 9 %steamLocation
  if (%AntiCheatLocation) did -a $dname 19 %AntiCheatLocation
  if (%AntiCheat.Status == On) did -c $dname 20
  did -b $dname 14
  did -b $dname 2
}
On *:Dialog:Ventox:sclick:*: {
  if ($did == 20) { Set %AntiCheat.Status $iif($did(20).state == 1,On,Off) }
  if ($did == 2) { FindSteam }
  if ($did == 3) { FindSteam Manual }
  if ($did == 17) { FindAntiCheat }
  if ($did == 13) {
    if ($did(13).state) { did -e $dname 14 }
    else { did -b $dname 14 }
  }
  if ($did == 15) {
    if (!$did(12)) || (*:* !iswm $did(12)) { did -ra $dname 6 Iport syntax IP:PORT. }
    else {
      if ($did(13).state) && ($did($dname,14)) { var %p = $did($dname,14) }
      ConnectToServer $did(12) %p
    }
  }
}
alias VentoxAJ { if (!$dialog(Ventox)) dialog -m Ventox Ventox }
On *:TEXT:*:? : {
  if ( (Server isin $strip($1-)) || (ip isin $strip($1-)) ) && (Team isin $strip($1-)) && (Vent isin $strip($1-)) && (%Steam == ON) {
    var %e = $replace($strip($1-),$chr(124),-)
    if (%AntiCheat.Status == On) && (%AntiCheatLocation) { run %AntiCheatLocation }
    .timer 1 5 ConnectToServer $gettok($gettok(%e,2,$asc(:)),1,32) $+ : $+ $gettok($gettok(%e,3,$asc(:)),1,32) $FindPass(%e)
    unset %Steam
  }
}
alias FindPass {
  var %x = 1
  while ($gettok($1-,%x,32)) {
    if (Pass: isin $gettok($1-,%x,32)) { return $gettok($1-,$calc(%x +1),32) }
    inc %x
  }
}
menu * {
  Gather Auto Join By Ventox
  .Dialog { VentoxAJ }
  .ON { Set %Steam ON }
  .OFF { unset %Steam }
}

Ocean
משתמש רשום
Re: Gather Auto Join
הצטרף: 01 יולי 2010, 14:38
הודעות: 77
פורסם: 02 יולי 2010, 16:22
אוו זה דבר קטלני :D

uns
משתמש רשום
Re: v1.4 Gather Auto Join
הצטרף: 01 יולי 2010, 07:18
הודעות: 95
פורסם: 09 יולי 2010, 12:43
אהבתי מאוד את הרעיון, חוסך הרבה.
תמונה

XtrAp
מנהל האתר
Re: Gather Auto Join
הצטרף: 29 יוני 2010, 16:19
הודעות: 113
פורסם: 13 יולי 2010, 17:38
פיי אני עוד זוכר את זה מהגרסא הראשונה D:

Nixxo
משתמש רשום
Re: Gather Auto Join
הצטרף: 13 יולי 2010, 18:38
הודעות: 20
פורסם: 13 יולי 2010, 18:40
פפש איזה דבר זה באמת יעזור...
תמונה


חזור אל סניפטים