עמוד ראשי מירק סקריפטינג סניפטים בדיקת מזג האוויר

בדיקת מזג האוויר

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

הצטרף: 17 יולי 2010, 16:07
הודעות: 51
פורסם: 17 יולי 2010, 18:31
שם הקוד: בדיקת מזג האוויר
יוצר: Sniper
תיאור: קוד שמראה את מזג האוויר בכל הארץ באמצעות דיאלוג
הפעלה: שמים את הקוד ברימוט (Alt+R) ואת התמונה המצורפת בתיקייה של המירק, לוחצים מקש ימיני בכל ערוץ ו Weather Check
תמונה:
תמונה

menu channel {
  Weather Check: { /iw }
}
alias iw { sockopen iw www.israelweather.co.il 80 | set %iw.date $iif($1,$1,$date) }
on *:sockopen:iw:{
  if (!$sockerr) {
    var %s = sockwrite -tn $sockname
    %s GET /3w.asp?month_t= [ $+ [ $gettok(%iw.date,2,47) ] $+ ] &day_t= [ $+ [ $gettok(%iw.date,1,47) ] $+ ] &year_t= [ $+ [ $gettok(%iw.date,3,47) ] ] HTTP/1.1
    %s Host: www.israelweather.co.il
    %s Accept: */*
    %s Connection: Close
    %s
    if (!$window(@weather)) { window -dw0k0pBd +d @Weather 50 50 450 480 } 
    drawpic -s @weather 0 0 450 480 bgiw.jpg
    drawrect @weather 01 2 0 0 450 576
    drawrect -f @weather 01 2 0 0 450 20
    drawrect @weather 00 1 430 3 15 15
    drawrect @weather 00 1 410 3 15 15
    drawtext @weather 00 Webdings 10 433 2 r
    drawline @weather 00 1 413 15 422 15
    drawtext @weather 00 tahoma 13 17 3 Weather Forecast
    drawtext @weather 00 tahoma 10 20 25 %iw.date
    drawline @weather 01 2 300 0 300 700
    drawline @weather 01 2 150 0 150 700
    drawtext -o @weather 01 tahoma 15 60 50 :טמפרטורה
    drawtext -o @weather 01 tahoma 15 210 50 :מזג אוויר
    drawtext -o @weather 01 tahoma 15 400 50 :עיר
    var %x = 80 | while (%x <= 700) { drawline @weather 01 2 0 %x 500 %x | inc %x 20 }
    set %iw.c 83
  }
}
on *:sockread:iw:{
  var %iw
  sockread %iw
  if ($regex(%iw,/<font class.*>(.*)<\/td>/) && $regml(1)) {
    set %iw2 $addtok(%iw2,$regml(1),44)
    if ($numtok(%iw2,44) >= 3) {
      drawtext @weather 00 tahoma 12 40 %iw.c $gettok(%iw2,2,44) $+ $chr(176)
      drawtext @weather 00 tahoma 12 $calc(280 - $width($gettok(%iw2,1,44) ,Tahoma,12)) %iw.c $gettok(%iw2,1,44)
      drawtext @weather 00 tahoma 12 $calc(430 - $width($gettok(%iw2,3,44) ,Tahoma,12)) %iw.c $gettok(%iw2,3,44)
      inc %iw.c 20
      unset %iw2
    }
  }
}
menu @weather {
  sclick:{
    if ($inrect($mouse.x,$mouse.y,430,3,15,15)) {
      window -c @weather

    }
    elseif ($inrect($mouse.x,$mouse.y,410,3,15,15)) {
      window -n @weather
    }   
  }
  mouse:{
    if ($mouse.key & 1) {
      move.win @weather $calc($mouse.dx - $window(@weather).x) $calc($mouse.dy - $window(@weather).y) 
    }
  }
}
alias move.win {
  if ($window($1)) {
    if ($mouse.key & 1) {
      window $1 $calc($mouse.dx - $2) $calc($mouse.dy - $3)
      .timer -o 1 0 move.win $1-
    }
  }
}


תהנו!!
אין לך את ההרשאות המתאימות על מנת לצפות בקובץ המצורף להודעה זאת.
נערך לאחרונה על ידי TrAsKy בתאריך 18 יולי 2010, 23:43, נערך פעם אחת בסך הכל.

ZxoR
מנהל גלובאלי
Re: בדיקת מזג האוויר
הצטרף: 01 יולי 2010, 07:43
הודעות: 368
פורסם: 17 יולי 2010, 22:43
* /drawtext: insufficient parameters (line 38, script93.ini)
שימו לב: בוטי המשחק שאני בונה לא מתאימים לQuakenet אלא אם כן צויין אחרת.
<+vendetta-> סיאג לחוכמה שתיקה
<+vendetta--> בא לי מוח
<Ninja`> דפקתי נקנקיה

הצטרף: 17 יולי 2010, 16:07
הודעות: 51
פורסם: 18 יולי 2010, 23:44
תוקן

ZxoR
מנהל גלובאלי
Re: בדיקת מזג האוויר
הצטרף: 01 יולי 2010, 07:43
הודעות: 368
פורסם: 19 יולי 2010, 03:31
יש בעיה בצדדים, יענו הוא לא מסדר את זה טוב בטבלה.
בטמפרטורות הוא מראה את שם האיזור וכאלה.
שימו לב: בוטי המשחק שאני בונה לא מתאימים לQuakenet אלא אם כן צויין אחרת.
<+vendetta-> סיאג לחוכמה שתיקה
<+vendetta--> בא לי מוח
<Ninja`> דפקתי נקנקיה

הצטרף: 01 יולי 2010, 14:38
הודעות: 77
פורסם: 19 יולי 2010, 12:52
אחד הדברים היפים!

הצטרף: 01 יולי 2010, 07:18
הודעות: 95
פורסם: 21 יולי 2010, 07:46
סניפט מצויין !


ד"א מישהו יודע איפה שלום ?
תמונה


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