on *:load {
  echo -a 4 *** טריוויה למירק גירסא 1.2 הוטענה בהצלחה!  ***
  echo -a 4 *** על מנת לראות חידושים ושיפורים יש לכתוב במירק /run Treadme.txt ***
  echo -a 4 *** (מומלץ לפני ההתחלה..) ***
  set %c.c 02
  set %c.c1
  set %t.tbig 60
  set %t.tbig.nick none
  set %big.win 0
  set %big.win.nick none
  .disable #trivia
}

alias msgchan {
  set %lines $lines(question.txt)
  /msg %chan %c.c קיבלתי הוראה להתחיל את הטריויה, נשחק עד %rq
  /msg %chan %c.c אני שואל שאלה, יש לכם 60 שניות לענות עליה נכונה, עניתם? קיבלתם נקודה
  /msg %chan %c.c לקבלת רמז אנא כיתבו רוצה רמז, לקבלת ניקוד מפורט אנא כיתבו ניקוד אישי
  /msg %chan %c.c יש כרגע במאגר השאלות %lines שאלות
}
alias ziro {
  unset %rq
  unset %answer
  unset %help
  unset %qn
  unset %point.*
  unset %t.lines
  set %chan $input(באיזה חדר אתם מעוניינים לשחק?,5,באיזה חדר לשחק,$1)
  .enable #trivia
  set %rq $$?"עד כמה לשחק?"
  while (%rq > $lines(answer.txt)) { set %rq  $$?"אתה חייב לבחור מספר גדול ממספר השאלות, נסה שוב."  }
  set %t.netfun $input(להפעיל תמיכה בנטפאן?,i,נטפאן)
  if (%t.netfun == $true) { set %c.c1 %c.c | unset %c.c }
}
alias newq {
  set %lines $lines(question.txt)
  set %line $rand(1,%lines)
  while ($istok(%t.lines,%line,44)) set %line $rand(1,%lines)
  set %t.lines %t.lines $+ , $+ %line
  set %answer $read -l $+ %line answer.txt
  set %help $read -l $+ %line help.txt
  /msg %chan %c.c שאלה מספר %qn
  /msg %chan %c.c $read -l $+ %line question.txt
  set %t.t $ticks
}

alias rightanswer {
  set %t.t $calc(($ticks - %t.t) /1000)
  /msg %chan %c.c קיבלתי תשובה נכונה מ- $+ $t.fhn2($nick) לאחר %t.t שניות $iif(%t.t < %t.tbig,(המהיר ביותר!!!!!))
  /msg %chan %c.c יש לו עד כה %point. [ $+ [ $nick ] ]  נקודות
  /msg %chan %c.c מי שלא שם לב, התשובה היא כמובן %tshuvanow
  if (%t.t < %t.tbig) {
    set %t.tbig %t.t
    set %t.tbig.nick $t.fhn2($nick)
  }
}
alias startnewq {
  unset %answer
  unset %help
  inc %qn
  .timertrivia1 1 7 /msg %chan %c.c אנא המתינו לשאלה מספר %qn
  .timertrivia2 1 15 /newq
  .timertrivia3 1 40 /msg %chan %c.c קדימה קדימה! אין זמן! עוד עשרים שניות אני עוצר!
  .timertrivia4 1 60 /overtime
}
alias overtime {
  /msg %chan %c.c לא קיבלתי תשובה נכונה! התשובה היא כמובן $gettok( %answer,1,35 )
  if (%qn == $lines(question.txt)) {
    msg %chan %c.c המשחק נגמר מפאת חוסר שאלות במאגר.
    if (%s.w) .timertrivia6 1 5 msg %chan %c.c המשתמש בעל הכי הרבה נצחונות הוא %big.win.nick עם %big.win
    if (%s.t) .timertrivia9 1 6 msg %chan %c.c המשתמש בעל הזמן תגובה המהיר יותר הוא %t.tbig.nick לאחר שענה נכונה על שאלה במהירות של %t.tbig שניות
    .timertrivia10 1 $iif ((%s.w) || (%s.t),7,5) msg %chan %c.c המשחק הבא יחל בעוד כ15 שניות
    if (%t.start == $true) { /ziro.con | .timertrivia7 1 21 /msgchan.con | .timertrivia8 1 2 /startnewq }
  }
  else /startnewq

}

alias ra {
  .timertrivia3 off
  .timertrivia4 off
  if ((%point. [ $+ [ $nick ] ] == %rq) || (%qn == $lines(question.txt))) {
    unset %answer
    msg %chan %c.c המנצח הוא $t.fhn2($nick) עם %point. [ $+ [ $nick ] ]  $iif(%qn == $lines(question.txt), (מספר השאלות נגמרו))
    .timertrivia5 1 2 msg %chan %c.c $read price.txt
    if (%point. [ $+ [ $nick ] ] == %rq) inc %wins. $+ $nick
    if (%wins. [ $+ [ $nick ] ] > %big.win) {
      set %big.win %wins. [ $+ [ $nick ] ]
      set %big.win.nick $t.fhn2($nick)
    }
    if (%s.w) .timertrivia6 1 5 msg %chan %c.c המשתמש בעל הכי הרבה נצחונות הוא %big.win.nick עם %big.win
    if (%s.t) .timertrivia9 1 6 msg %chan %c.c המשתמש בעל הזמן תגובה המהיר יותר הוא %t.tbig.nick לאחר שענה נכונה על שאלה במהירות של %t.tbig שניות
    .timertrivia10 1 $iif((%s.w) || (%s.t),7,5) msg %chan %c.c המשחק הבא יחל בעוד כ15 שניות
    if (%t.start == $true) { /ziro.con | .timertrivia7 1 21 /msgchan.con | .timertrivia8 1 22 /startnewq }
    else {
      .disable #trivia
      if (%t.netfun == $true) set %c.c %c.c1
    }
  }
  else /startnewq
}
alias stopgame {
  .timertrivia* off
  /msg %chan %c.c קיבלתי הוראה להפסיק את המשחק! היה נעים לשחק איתכם!
  .disable #trivia
  if (%t.netfun == $true) set %c.c %c.c1
}
alias /F2 if ($group(#trivia) == off) { set %t.start $input(האם להתחיל משחק חדש מיד לאחר סיומו?) | /ziro $1 | /msgchan | /startnewq }
alias /F3 if ($group(#trivia) == on) { /stopgame }
alias /f5 addq
alias /f4 addp

alias addq {
  write question.txt $$?"הכנס שאלה"
  write answer.txt $$?"הכנס תשובה אם יש יותר מתשובה אחת, להפרדה בין תשובה לתשובה יש לכתוב #"
  write help.txt $$?"הכנס רמז"
}

alias addp {
  write price.txt $$?" הכנס פרס"
}
#trivia off
on *:text:*רוצה רמז*:%chan: {
  if (%help != $null) { .msg $chan הרמז שלך : %help }
}
on *:text:*ניקוד אישי*:%chan: {
  if (%point. [ $+ [ $nick ] ]) .msg $chan במשחק זה צברת %point. [ $+ [ $nick ] ] נקודות
  if (%points. [ $+ [ $nick ] ]) .msg $chan סך הכל צברת %points. [ $+ [ $nick ] ] נקודות
  if (%wins. [ $+ [ $nick ] ]) .msg $chan יש לך %wins. [ $+ [ $nick ] ] נצחונות
}

on *:text:*:%chan: {
  set %tshuvot $gettok(%answer,0,35)
  while %tshuvot > 0 {
    set %tshuvanow $gettok(%answer,%tshuvot,35)
    if (%tshuvanow isin $1-) {
      inc %point. $+ $nick | inc %points. $+ $nick | rightanswer | ra | halt
    }
    dec %tshuvot
  }
}
on *:join:%chan: {
  .msg $nick %c.c שלום לך, אנחנו כרגע במשחק טריויה. השאלה היא $read -l $+ %line question.txt
  .msg $nick %c.c לקבלת רמז תכתוב רוצה רמז בערוץ
  .msg $nick %c.c על מנת לבדוק כמה נקודות יש לך, כתוב ניקוד אישי. (רק אם יש לך נקודות תקבל הודעה)
}
#trivia end
menu channel {
  Trivia v1.2
  .הוספות
  ..הוסף שאלה: /f5
  ..הוסף פרס למאגר: /f4
  .משחק
  ..התחל משחק: /f2 $chan
  ..סיים משחק: /f3
  .הגדרות
  ..הגדר צבע שליחת הודעה: if ($input(באיזה צבע יראה הטקסט לערוץ?,5,הגדר צבע,$remove(%c.c,$chr(3))) isnum 0-15) set %c.c  $+ $ifmatch
  ..הצג בסוף משחק
  ...$iif(%s.w,$style(1)) בעל מספר הרב של נצחונות  : $iif(%s.w,unset %s.w,set %s.w 1)
  ...$iif(%s.t,$style(1))זמן תגובה המהיר ביותר : $iif(%s.t,unset %s.t,set %s.t 1)
}

alias -l t.fhn2 {
  if (%t.netfun == $false) return $1-
  if ($left($1,1) != ^) && ($left($1,1) != `) return $1-
  var %aa = $1, %b, %name, %tmp = 1
  if ($mid($1,2,1) == $chr(96)) %aa = $right(%aa,$calc($len(%aa)-1))
  while (%tmp) {
    %b = $right(%aa,$calc($len(%aa)-1)) | %tmp = $min2($pos(%b,^,1),$pos(%b,`,1))
    if (%tmp) %b = $left(%b,$calc(%tmp - 1)) | %name = %name $+ $iif(($left(%aa,1) == ^),$fhn22(%b),$fheb22(%b))
    %aa = $right(%aa,$calc($len(%aa) - %tmp))
  }
  return $replace(%name,$chr(160),$chr(32))
}
alias -l min2 return $iif((($1 < $2) || ($2 == $null)),$1,$2))
alias -l fhn22 { return $replace($1,^,$chr(32),\f,$chr(37),\p,$chr(59),\y,$chr(124),\n,$chr(47),\q,$chr(60),\s,$chr(62),\r,$chr(61),\g,$chr(38),\x,$chr(96),\z,$chr(126),\o,$chr(58),\c,$chr(61),\n,$chr(47),\d,$chr(35),\e,$chr(36),\u,$chr(92),\o,: ,\g,& ,\z,~ ,\t,? ,\v,$chr(94),\c," ,\m,$chr(46),\h,',\j,$chr(40),\i,$chr(41),\k,* ,\b,! ,\a,$chr(160) $chr(32),\w,_,\l,$chr(44)) }
alias -l fheb22 { return $replace($1,`,$chr(32),^,$chr(32),\f,$chr(37),\u,$chr(92),\y,$chr(124),\n,$chr(47),\q,$chr(60),\s,$chr(62),\p,$chr(59),\v,$chr(94),\r,$chr(61),\g,$chr(38),\x,$chr(96),\z,$chr(126),\o,$chr(58),o,מ,q,נ,r,ס,s,ע,u,פ,\k,$chr(42),\t,$chr(63),\l,$chr(44),\w,$chr(95),w,צ,x,ק,y,ר,n,ם,t,ף,p,ן,k,ך,v,ץ,\c,$chr(34),c,ג,z,ש,g,ז,l,כ,\d,$chr(35),\e,$chr(36),\n,$chr(47),\l,$chr(44),\o,: ,\g,& ,\z,~ ,\t,? ,\c," ,\m,$chr(46),\h,',\j,$chr(40),\i,$chr(41),\k,* ,\b,! ,\c,$chr(34),\a,$chr(160) $chr(32),\w,_ ,a,א,b,ב,d,ד,e,ה,f,ו,h,ח,i,ט,j,י,m,ל,$chr(123),ת) }
alias -l fhn4 return $replace($1-,$chr(92),\u,$chr(47),\n,$chr(124),\y,$chr(35),\d,$chr(60),\q,$chr(62),\s,$chr(59),\p,$chr(61),\r,$chr(96),\x,$chr(41),\j,$chr(40),\i,$chr(39),\h,$chr(37),\f,$chr(36),\e,$chr(38),\g,$chr(94),\v,$chr(126),\z,$chr(33),\b,$chr(95),\w,$chr(63),\t,",\c,$chr(42),\k,$chr(34),\l,$chr(58),\o,$chr(44),\l,$chr(47),\n,$chr(46),\m,א,a,ב,b,ג,c,ד,d,ה,e,ו,f,ז,g,ח,h,ט,i,.,\b,י,j,ך,k,כ,l,ל,m,ם,n,$chr(160),\a,$chr(32),\a,מ,o,ן,p,',\o,נ,q,ס,r,ע,s,ף,t,פ,u,ץ,v,צ,w,ת,$chr(123),ק,x,ר,y,$chr(249),z)
alias -l fhn5 { if ($asc($1) isnum 32-64) || ($asc($1) isnum 91-96) || ($asc($1) isnum 123-136) || ($asc($1) == 160) return $true | return $false }
alias -l fhn10 {
  var %n = 1, %line | while (%n <= $0) { %line = %line $+ , $+ $ [ $+ [ %n ] ] | inc %n } | tokenize 1 $right(%line,$calc($len(%line)-1))
  unset %name | var %aa = $1-, %bb = $1- | var %name = %name $+ $iif($hebchk($left(%aa,1)),^`,^)
  goto cont | :next | %name = %name $+ $iif($hebchk($left(%aa,1)),`,^) | :cont | var %i = 0, %hc = $hebchk($left(%aa,1))
  while (($len(%aa) != 0) && ($hebchk($left(%aa,1)) == %hc)) || ($fhn5($left(%aa,1))) { %aa = $right(%aa,$calc($len(%aa) - 1)) | inc %i }
%name = %name $+ $fhn4($left(%bb,%i)) | %bb = $right(%bb,$iif($calc($len(%bb) - %i) > 0,$calc($len(%bb) - %i),0)) | if (%bb) goto next | return %name }
alias -l fhn4 return $replace($1-,$chr(92),\u,$chr(47),\n,$chr(124),\y,$chr(35),\d,$chr(60),\q,$chr(62),\s,$chr(59),\p,$chr(61),\r,$chr(96),\x,$chr(41),\j,$chr(40),\i,$chr(39),\h,$chr(37),\f,$chr(36),\e,$chr(38),\g,$chr(94),\v,$chr(126),\z,$chr(33),\b,$chr(95),\w,$chr(63),\t,",\c,$chr(42),\k,$chr(34),\l,$chr(58),\o,$chr(44),\l,$chr(47),\n,$chr(46),\m,א,a,ב,b,ג,c,ד,d,ה,e,ו,f,ז,g,ח,h,ט,i,.,\b,י,j,ך,k,כ,l,ל,m,ם,n,$chr(160),\a,$chr(32),\a,מ,o,ן,p,',\o,נ,q,ס,r,ע,s,ף,t,פ,u,ץ,v,צ,w,ת,$chr(123),ק,x,ר,y,$chr(249),z)
alias -l hebchk { set %hebcheck 224 | :englishcheck | if ($chr(%hebcheck) isin $1-) return $true |  inc %hebcheck | if (%hebcheck > 250) return $false | goto englishcheck }

alias ziro.con {
  unset %answer
  unset %help
  unset %qn
  unset %point.*
  unset %t.lines
  .enable #trivia
}
alias msgchan.con {
  msg %chan %c.c אנו מתחילים משחק חדש עד %rq
  msg %chan %c.c כרגע במאגר השאלות יש $lines(question.txt) שאלות. בהצלחה
}
while (%Qn <0) {
msg $Active The Time Now Is : $Time and youer Adrdress is: $Adress  Do Stop Youer User %VarXYZ
Worning !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
}