יוצר: Danni-M
גירסה: 2.0.1
תאור: אז זהו הבוט הראשון שהכנתי,הבוט קל לשימוש בזכות דיאלוג ומה שהוא עושה בעצם הוא פותח חדרים בונטרילו.
הפעלה: מקש ימיני>Vent-Bot
אם מישהו נתקל בבעיה יכול להיכנס לערוץ האתר ולחפש אותי,
אם למישהו יש הערות/הצעות לשיפור בבקשה פה.
דבר אחרון,תודה ל KaryoS , NiX ו Arthas על העזרה
הקוד:
קוד: בחר הכל
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|||||||||||||| Ventrilo Rooms Creator By Danni-M |||||||||||||
||||||||||||||||| #mIRCs - #Danni-M ||||||||||||||||||||
||||||||||||||||||| Version 2.0.1 ||||||||||||||||||||||
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
on *:text:*:*: {
if ($target ischan) && ($target == %chl) {
if ($1 == %sign $+ Commands) && (!%flood) {
msg %chl 2Commands 2Are: 7 $+ %sign $+ Help • 7 $+ %sign $+ Vent • 7 $+ %sign $+ Commands • 7 $+ %sign $+ Drop • 7 $+ %sign $+ About .
}
elseif ($1 == %sign $+ help) && (!%flood) {
msg %chl 2To open a new room do: /msg $me 7 $+ %sign $+ open <name> <pass>
.timer 1 2 msg %chl 2Example: /msg $me %sign $+ open DanniPRV 123 .
}
elseif ($1 == %sign $+ About) || ($1 == %sign $+ Credits) && (!%flood) {
msg %chl 2This Ventrilo Rooms Creator was made by 4Danni-M .
}
elseif ($1 == %sign $+ vent) || ($1 == %sign $+ ventrilo) && (!%flood) {
msg %chl 2Ventrilo: %vent • 2Version: %version .
}
}
elseif ($target !ischan) {
if ($1 == %sign $+ open) && ($2) && ($3) && (!%flood) {
if ($read(Data.ini,w,* $+ $address($nick,2) $+ *)) { msg $nick 2You all ready have a room . }
elseif ($ini(Data.ini,$2)) { msg $nick 2Please change the room name . }
elseif (!$ini(Data.ini,$address($nick,2))) && (!$ini(Data.ini,$2)) {
msg %chl 2Room just opened for $nick
msg $nick 2Ventrilo: %Vent 2Room: $2 2Password: $3 , 2Enjoy :)
.write -c go.bat ventrcon.exe -n open -f A.txt -a %rCon %vent
.write -c A.txt /chan create $2 $2 $3 $3 %chl
.run -p go.bat
.writeini -n Data.ini $address($nick,2) name $address($nick,2)
.writeini -n Data.ini $address($nick,2) room $2
.writeini -n Data.ini $address($nick,2) pass $3
}
}
}
if ($1 == %sign $+ close) || ($1 == %sign $+ drop) && ($2) && (!%flood) {
if (!$read(Data.ini,w,* $+ $address($nick,2) $+ *)) { msg $nick 2Wasn't found . }
elseif ($readini(Data.ini,$address($nick,2),name) == $address($nick,2)) && ($readini(Data.ini,$address($nick,2),room) == $2) {
msg $nick 2Done, your room was deleted.
.write -c go.bat ventrcon.exe -n close -f A.txt -a %rCon %vent
.write -c A.txt /chan delete $2
.run -p go.bat
.remini -n Data.ini $address($nick,2)
}
}
}
on *:kick:%chl:{
if ($read(Data.ini,w,* $+ $address($nick,2) $+ *)) {
msg $nick 2Your room was deleted • 2Reason: kicked .
.write -c go.bat ventrcon.exe -n close -f A.txt -a %rCon %vent
.write -c A.txt /chan delete $readini(Data.ini,$address(knick,2),room)
.run -p go.bat
.remini -n Data.ini $address($knick,2)
}
}
on !*:part:%chl:{
if ($read(Data.ini,w,* $+ $address($nick,2) $+ *)) {
msg $nick 2Your room was deleted • 2Reason: parted from %chl .
.write -c go.bat ventrcon.exe -n close -f A.txt -a %rCon %vent
.write -c A.txt /chan delete $readini(Data.ini,$address($nick,2),room)
.run -p go.bat
.remini -n Data.ini $address($nick,2)
}
}
on !*:quit:{
if ($read(Data.ini,w,* $+ $address($nick,2) $+ *)) {
.write -c go.bat ventrcon.exe -n close -f A.txt -a %rCon %vent
.write -c A.txt /chan delete $readini(Data.ini,$address($nick,2),room)
.run -p go.bat
.remini -n Data.ini $address($nick,2)
}
}
dialog vbd {
title "New Project"
size -1 -1 68 140
option dbu
tab "Main", 6, 0 0 69 141
button "Save", 4, 14 90 37 12, tab 6
edit "", 1, 3 40 61 10, tab 6
edit "", 2, 3 70 61 10, tab 6
text "Channel:", 3, 12 30 25 8, tab 6
text "Sign:", 5, 12 60 25 8, tab 6
text "By Danni-M #mIRCS", 17, 2 14 64 8, tab 6
tab "Ventrilo", 7
edit "", 8, 3 35 61 10, tab 7
text "iPort:", 11, 12 25 27 8, tab 7
edit "", 9, 3 65 61 10, tab 7
edit "", 10, 3 95 61 10, tab 7
text "Version", 12, 12 55 25 8, tab 7
text "rCon:", 13, 12 85 25 8, tab 7
button "Save", 14, 14 120 37 12, tab 7
text "By Danni-M #mIRCS", 16, 2 14 64 8, tab 7
}
on *:Dialog:vbd:*:*:{
if ($devent == init) {
if (%chl) { did -a $dname 1 %chl }
if (%sign) { did -a $dname 2 %sign }
if (%vent) { did -a $dname 8 %vent }
if (%version) { did -a $dname 9 %version }
if (%rcon) { did -a $dname 10 %rcon }
}
elseif ($devent == sclick) {
if ($did == 4) { set %chl $did(1) | set %sign $did(2) }
if ($did == 14) { set %vent $did(8) | set %version $did(9) | set %rcon $did(10) }
}
}
menu * {
Vent-Bot { dialog $iif($dialog(vbd),-v vbd,-m vbd vbd) }
}
וצריך להוריד את הקבצים המצורפים ולהוסיף לתקייה.
עידכונים:
** גירסא 2.0.1 - נוספה אפשרות למחוק חדר והחדר נמחק אוטומטית בעת יציאה מהערוץ וכמובן מהמירק עצמו.
** גירסא 2.0.2(בקרוב) - יוספו: אפשרות לשינוי סגנונות, מערכת אדמינים למחיקת ויצירת חדרים קלה, דיאלוג נוח.