Search
Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPSServices
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC SrervicesIRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka CharybdisTCL SCRIPT
TCL SCRIPT FOR EGGDROP
Allprotection4.7 AntiproxyBots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink HopmLatest topics
Gatherbot helper by Xronic
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
Gatherbot helper by Xronic
- Code:
; Gatherbot helper by Xronic ;
; Can in dialog Login to Gbot ;
; Can in dialog run gather ;
; Can in dialog add users ;
; Can in dialog remove users ;
;______________________________;
dialog G_H {
title "Gatherbot helper by Xronic"
size -1 -1 144 166
option dbu
tab Gatherbot-1, 14, 6 6 134 154
text "Write name:", 2, 14 28 32 6, tab 14
text "Add runner:", 5, 14 42 32 6, tab 14
text "Add master:", 8, 14 58 32 6, tab 14
text "Add owner:", 11, 14 72 32 6, tab 14
text "Del runner:", 17, 14 86 32 6, tab 14
text "Del master:", 1, 14 100 32 6, tab 14
text "Del owner:", 20, 16 114 32 6, tab 14
edit "", 3, 52 28 52 8, tab 14
edit "", 6, 52 42 52 8, tab 14
edit "", 9, 52 58 52 8, tab 14
edit "", 12, 52 72 52 8, tab 14
edit "", 15, 52 86 52 8, tab 14
edit "", 18, 52 100 52 8, tab 14
edit "", 21, 52 114 52 8, tab 14
button "Login to Gatherbot", 23, 50 128 50 10, tab 14
button "Run Gather", 24, 50 142 50 10, tab 14
button "Set name", 4, 108 28 30 10, tab 14
button "Set Runner", 7, 108 42 30 10, tab 14
button "Set Master", 10, 108 58 30 10, tab 14
button "Set Owner", 13, 108 72 30 10, tab 14
button "Del runner", 16, 108 86 30 10, tab 14
button "Del master", 19, 108 100 30 10, tab 14
button "Del owner", 22, 108 114 30 10, tab 14
tab "Gatherbot-2", 25
text "Add runner:", 30, 14 42 32 6, tab 25
text "Write name:", 29, 14 26 32 6, tab 25
text "Add master:", 28, 14 56 32 6, tab 25
text "Del runner:", 31, 14 86 32 6, tab 25
text "Del master:", 32, 14 102 32 6, tab 25
text "Del owner:", 33, 14 116 32 6, tab 25
edit "", 34, 50 26 52 8, tab 25
edit "", 35, 50 40 52 8, tab 25
edit "", 36, 50 56 52 8, tab 25
edit "", 37, 50 86 52 8, tab 25
edit "", 38, 50 102 52 8, tab 25
edit "", 39, 50 116 52 8, tab 25
button "Login to Gatherbot", 40, 46 134 50 10, tab 25
button "Run Gather", 41, 46 146 50 10, tab 25
button "Set name", 42, 108 26 30 10, tab 25
button "Set Runner", 43, 108 40 30 10, tab 25
button "Set Master", 44, 108 56 30 10, tab 25
button "Set Owner", 45, 108 72 30 10, tab 25
button "Del runner", 46, 108 86 30 10, tab 25
text "Add owner:", 47, 14 72 32 6, tab 25
edit "", 48, 50 72 52 8, tab 25
button "Del master", 49, 108 102 30 10, tab 25
button "Del owner", 50, 108 116 30 10, tab 25
tab "Gatherbot-3", 26
text "Xronic Dialog", 27, 104 144 32 12, tab 26
text "Write name:", 51, 14 26 32 6, tab 26
edit "", 52, 50 26 52 8, tab 26
button "Set name", 53, 108 26 30 10, tab 26
text "Add runner:", 54, 14 42 32 6, tab 26
edit "", 55, 50 40 52 8, tab 26
button "Set Runner", 56, 108 40 30 10, tab 26
text "Add master:", 57, 14 54 32 6, tab 26
edit "", 58, 50 54 52 8, tab 26
button "Set Master", 59, 108 54 30 10, tab 26
text "Add owner:", 60, 14 68 32 6, tab 26
edit "", 61, 50 68 52 8, tab 26
button "Set Owner", 62, 108 68 30 10, tab 26
text "Del runner:", 63, 14 84 32 6, tab 26
edit "", 64, 50 84 52 8, tab 26
button "Del runner", 65, 108 84 30 10, tab 26
text "Del master:", 66, 14 100 32 6, tab 26
edit "", 67, 50 100 52 8, tab 26
button "Del master", 68, 108 100 30 10, tab 26
text "Del owner:", 69, 14 116 32 6, tab 26
edit "", 70, 50 116 52 8, tab 26
button "Del owner", 71, 108 116 30 10, tab 26
button "Login to Gatherbot", 72, 44 134 50 10, tab 26
button "Run Gather", 73, 44 146 50 10, tab 26
}
alias GH { dialog -m G_H G_H }
on *:dialog:G_H:sclick:*:{
;Gatherbot-1
if ($did == 4) { set %Gatherbot-1 $did(3) | echo -a 4Gatherbot helper name: %Gatherbot-1 }
;Add Users (Gbot-1)
elseif ($did == 7) {
set %runner-1 $did(6) | set %Gatherbotlen-1 $len(%runner-1)
if (%Gatherbotlen-1 isnum 17-19) { echo -a 4Error! | unset %runner-1 | set %runner-1 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) | /msg %Gatherbot-1 !set admin %runner-1 | echo -a 4Runner information(add): !set admin %Runner-1 }
if (%gatherbotlen-1 isnum 0-16) { /msg %Gatherbot-1 !set admin %runner-1 | echo -a 4Runner information(add): !set admin %Runner-1 }
}
elseif ($did == 10) {
set %master-1 $did(9) | set %Gatherbotlen-1 $len(%master-1)
if (%Gatherbotlen-1 isnum 17-19) { echo -a 4Error! | unset %master-1 | set %master-1 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%gatherbotlen-1 isnum 0-16) { /msg %Gatherbot-1 !set master %master-1 | echo -a 4Master information(add): !set master %master-1 }
}
elseif ($did == 13) {
set %owner-1 $did(12) | set %Gatherbotlen-1 $len(%owner-1)
if (%Gatherbotlen-1 isnum 17-19) { echo -a 4Error! | unset %owner-1 | set %owner-1 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%gatherbotlen-1 isnum 0-16) { /msg %Gatherbot-1 !set owner %owner-1 | echo -a 4Owner information(add): !set owner %owner-1 }
}
;Remove Users (Gbot-1)
elseif ($did == 16) { set %runner-1 $did(15) | msg %Gatherbot-1 !set unadmin %runner-1 | echo -a 4admin information(del): %runner-1 }
elseif ($did == 19) { set %master-1 $did(18) | msg %Gatherbot-1 !set unmaster %master-1 | echo -a 4master information(del): %master-1 }
elseif ($did == 22) { set %owner-1 $did(21) | msg %Gatherbot-1 !set unowner %owner-1 | echo -a 4owner information(del): %owner-1 }
;Login user pass (Gbot-1)
elseif ($did == 23) { set %nick $encode($input(nickname to login?,e,nickname:)) | set %pass $encode($input(password to login?,e,password:)) | msg %Gatherbot-1 !login $decode(%nick) $decode(%pass) | echo -a 4Logged now to %Gatherbot-1 with $decode(%nick) $decode(%pass) (Gbot-1) }
;Run Gather (Gbot-1)
elseif ($did == 24) { set %run-gbot1 $input(map?,e,map:) | msg %Gatherbot-1 !start %run-gbot1 | echo -a 4Gather information(map): %run-gbot1 }
;GatherBot-2
elseif ($did == 42) { set %Gatherbot-2 $did(34) | echo -a 4Gatherbot helper name: %Gatherbot-2 }
;Add Users (Gbot-1)
elseif ($did == 43) {
set %runner-2 $did(35) | set %Gatherbotlen-2 $len(%runner-2)
if (%Gatherbotlen-2 isnum 17-19) { echo -a 4Error! | unset %runner-2 | set %runner-2 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) | /msg %Gatherbot-2 !set admin %runner-2 | echo -a 4Runner information(add): !set admin %Runner-2 }
if (%gatherbotlen-2 isnum 0-16) { /msg %Gatherbot-2 !set admin %runner-2 | echo -a 4Runner information(add): !set admin %Runner-2 }
}
elseif ($did == 44) {
set %master-2 $did(36) | set %Gatherbotlen-2 $len(%master-2)
if (%Gatherbotlen-2 isnum 17-19) { echo -a 4Error! | unset %master-2 | set %master-2 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%gatherbotlen-2 isnum 0-16) { /msg %Gatherbot-2 !set master %master-2 | echo -a 4Master information(add): !set master %master-2 }
}
elseif ($did == 45) {
set %owner-2 $did(48) | set %Gatherbotlen-2 $len(%owner-2)
if (%Gatherbotlen-2 isnum 17-19) { echo -a 4Error! | unset %owner-2 | set %owner-2 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%gatherbotlen-2 isnum 0-16) { /msg %Gatherbot-2 !set owner %owner-2 | echo -a 4Owner information(add): !set owner %owner-2 }
}
;Del Users (Gbot-2)
elseif ($did == 46) { set %runner-2 $did(37) | msg %Gatherbot-2 !set unadmin %runner-2 | echo -a 4admin information(del): %runner-2 }
elseif ($did == 49) { set %master-2 $did(38) | msg %Gatherbot-2 !set unmaster %master-2 | echo -a 4master information(del): %master-2 }
elseif ($did == 50) { set %owner-2 $did(39) | msg %Gatherbot-2 !set unowner %owner-2 | echo -a 4owner information(del): %owner-2 }
;Login user pass (Gbot-2)
elseif ($did == 40) { set %nick $encode($input(nickname to login?,e,nickname:)) | set %pass $encode($input(password to login?,e,password:)) | msg %Gatherbot-2 !login $decode(%nick) $decode(%pass) | echo -a 4Logged now to %Gatherbot-2 with $decode(%nick) $decode(%pass) (Gbot-2) }
;Run Gather (Gbot-2)
elseif ($did == 41) { set %run-gbot2 $input(map?,e,map:) | msg %Gatherbot-2 !start %run-gbot2 | echo -a 4Gather information(map): %run-gbot2 }
;Gatherbot-3
elseif ($did == 53) { set %Gatherbot-3 $did(52) | echo -a 4Gatherbot helper name: %Gatherbot-3 }
;Add Users (Gbot-3)
elseif ($did == 56) {
set %runner-3 $did(55) | set %Gatherbotlen-3 $len(%runner-3)
if (%Gatherbotlen-3 isnum 17-19) { echo -a 4Error! | unset %runner-3 | set %runner-3 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) | /msg %Gatherbot-3 !set admin %runner-3 | echo -a 4Runner information(add): !set admin %Runner-1 }
if (%gatherbotlen-3 isnum 0-16) { /msg %Gatherbot-3 !set admin %runner-3 | echo -a 4Runner information(add): !set admin %Runner-3 }
}
elseif ($did == 59) {
set %master-3 $did(58) | set %Gatherbotlen-3 $len(%master-3)
if (%Gatherbotlen-3 isnum 17-19) { echo -a 4Error! | unset %master-3 | set %master-3 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%Gatherbotlen-3 isnum 0-16) { /msg %Gatherbot-3 !set master %master-3 | echo -a 4Master information(add): !set master %master-3 }
}
elseif ($did == 62) {
set %owner-3 $did(61) | set %Gatherbotlen-3 $len(%owner-3)
if (%Gatherbotlen-3 isnum 17-19) { echo -a 4Error! | unset %owner-3 | set %owner-3 $input(ìëï ùéí îçãù àú äôøèéí ìàãîéï:,e,ùâéàä: îñôø äàåúéåú úåàí ìñôøä 19-17) }
if (%gatherbotlen-3 isnum 0-16) { /msg %Gatherbot-3 !set owner %owner-3 | echo -a 4Owner information(add): !set owner %owner-3 }
}
;Del Users (Gbot-3)
elseif ($did == 65) { set %runner-3 $did(64) | msg %Gatherbot-3 !set unadmin %runner-3 | echo -a 4admin information(del): %runner-3 }
elseif ($did == 68) { set %master-3 $did(67) | msg %Gatherbot-3 !set unmaster %master-3 | echo -a 4master information(del): %master-3 }
elseif ($did == 71) { set %owner-3 $did(70) | msg %Gatherbot-3 !set unowner %owner-3 | echo -a 4owner information(del): %owner-3 }
;Login user pass (Gbot-3)
elseif ($did == 72) { set %nick $encode($input(nickname to login?,e,nickname:)) | set %pass $encode($input(password to login?,e,password:)) | msg %Gatherbot-3 !login $decode(%nick) $decode(%pass) | echo -a 4Logged now to %Gatherbot-3 with $decode(%nick) $decode(%pass) (Gbot-3) }
;Run Gather (Gbot-3)
elseif ($did == 73) { set %run-gbot3 $input(map?,e,map:) | msg %Gatherbot-3 !start %run-gbot3 | echo -a 4Gather information(map): %run-gbot3 }
}
Similar topics
» LotteryBot By Xronic Version 1.3
» Q Commands helper
» Dialog helper by Infernal_Demon
» GatherBot GBot Helper
» Q Commands helper
» Dialog helper by Infernal_Demon
» GatherBot GBot Helper
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|
Sat Aug 05, 2023 2:09 am by Chief
» mIRCx IRC Network Config
Sat Jul 15, 2023 9:51 pm by Chief
» ircu2.10.12-pk with dnsbl
Fri Mar 10, 2023 2:22 pm by Admin
» Guide install PyLink on New version FreeBSD
Thu Dec 15, 2022 9:39 pm by Chief
» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
Mon Dec 05, 2022 5:44 am by Chief
» install Nefarious2 && X3 IRC Services in FreeBsd
Sat Nov 12, 2022 3:12 pm by Chief
» help problem with adduser in Freebsd 12
Fri Nov 11, 2022 9:06 pm by Chief
» מדריך פקודות והתקנה בסרביס X3
Fri Oct 28, 2022 1:43 pm by Chief
» מדריך הגדרות WebIRC in Nefarious2
Thu Apr 07, 2022 4:45 am by Chief