PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4466 רשומים
418 מחוברים כרגע
יוצר: Arthas
גירסא: v2.0
תיאור: קוד ישן מאוד :} זה קוד כמו שאתם רואים בקהילות הודעות חדשות.. אתם בוחרים כל כמה זמן זה כותב וזה יכתוב את השורות שאתם תגדירו
הפעלה: לשים את הקוד ברימווט (Alt + R), מקש ימיני -> News bot. להגדיר ערוץ, להוסיף שורות שאתם רוצים -> אז לבחור במקש ימיני כל כמה זמן תרצו שזה יעשה (Set Timer) ואז Start TIMER
תמונה:
קוד:
קוד: בחר הכל
; ——————————————————————————————————————————————— ;
; News bot by Arthas
; ——————————————————————————————————————————————— ;
dialog news {
title "News bot"
size -1 -1 86 114
option dbu
list 1, 4 30 77 50, size
edit "", 2, 4 4 77 12, autohs
button "Add", 3, 5 17 23 12
button "Clear", 4, 31 17 23 12
button "Remove", 5, 57 17 23 12
edit "", 6, 7 95 50 12
box "Channel", 7, 5 88 76 21
button "Set", 8, 60 95 17 12
text "", 9, 4 81 77 8, center
}
dialog newsinfo {
title "Info"
size -1 -1 84 34
option dbu
edit "", 1, 3 4 78 12, autohs
button "Update", 2, 22 18 37 12,ok
}
on *:dialog:*:*:*:{
if ($dname == news) {
if ($devent == init) {
dll mdx.dll MarkDialog $dname
did -a $dname 6 %news.channel | var %o = 1 | while (%o <= $lines(News.txt)) { did -a $dname 1 $read(News.txt, %o) | inc %o } | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
if ($devent == sclick) {
if ($did == 3 && * iswm $did(2)) { did -a $dname 1 $did(2) | write News.txt $did(2) | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
if ($did == 8 && #* iswm $did(6)) { set %news.channel $did(6) }
if ($did == 4) { .remove News.txt | did -r $dname 1 | did -a $dname 9 There are no lines of news. }
if ($did == 5 && $did($dname,1).sel) { did -d $dname 1 $did($dname,1).sel | .write -dl $+ $did($dname,1).sel News.txt | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
}
if ($devent == dclick) {
if ($did == 1 && $did($dname,1).sel) { set %line $did($dname,1).sel | dialog $iif($dialog(Newsinfo),-v Newsinfo,-m Newsinfo Newsinfo) | did -r Newsinfo 1 | did -a newsinfo 1 $did($dname,1).seltext }
}
}
if ($dname == newsinfo) {
if ($devent == sclick) {
if ($did == 2 && * iswm $did(1)) { did -r news 1 | write -l $+ %line News.txt $did(1) | var %o = 1 | while (%o <= $lines(News.txt)) { did -a news 1 $read(News.txt, %o) | inc %o } }
}
}
}
alias news { $iif($me isop %news.channel,mode %news.channel +m) | var %x 1 | while ($read(News.txt, %x)) { .timer 1 %x msg %news.channel $v1 | inc %x } | $iif($me isop %news.channel,.timer 1 $calc(%x +1) mode %news.channel -m) }
menu * {
News
.Dialog: dialog -m news news
.Set TIMER: if ($?) { set %newstimer $v1 | .timern 0 $v1 news }
.Start TIMER: news | .timern 0 %newstimer news
.Stop TIMER: .timern off
}
זה סקריפט מאוד מאוד ישן ... הטיימר וכל אלה סתם עשיתי והעלאתי לפה התיקונים אלו שטויות שעשיתי פעם.
