Mirc to tcl ?

[darkfader]

this is the last one i need to translate i hoope someboby can fix it

its a hugs one

Code: Select all

}
on *:text:!stad*:#octje : {
  /topic $chan  4Leader 7: $iif(!%Le,?,%Le) 10|| 4We 7: $iif(!%We,?,%We) 10|| 4Ee 7: $iif(!%EE,?,%EE) 10|| 4Driver 7: $iif(!%Driver,?,%Driver) 10|| 4Stad 7: $2 $3 | /set %Stad $2- 
}
on *:text:!ocstart*:#octje: {
  /topic $chan  4Leader 10: 7? 10|| 4We 10: 7? 10|| 4EE 10: 7? 10|| 4Driver 10: 7? 10|| 4Stad 10: 7?
  msg $chan 7Zo werkt het: Typ 4!ocstart 7wanneer je de occal wil starten 4!le 10*naam*7 - 4!we10 *naam*7 - 4!ee10 *naam*7 - 4!dr10 *naam*7 - 4!stad10 *stad*7 - 4!lijst10 *Wie is Wat*7. Typ 4!calcu 10*waarde opbrengst* *waarde car*7 om de OCCalculator te starten. Typ 4!ocstop 7wanneer je klaar bent met de oc.
}
on *:text:!ocstop*:#octje: {
  set %driver ? 
  set %le ?
  set %dr ?
  set %we ? 
  set %ee ? 
  set %car ?
  set %stad ?
  /topic $chan 7Welkom 4@ 7#Octje Zeg 4!commands 7om te kijken hoe het werkt!! (Build by DarkFader)

}
on *:text:!calcu*:#octje: {
  write oc.txt 175000 $+ + $+ $3 $2 $3
  write oc.txt $calc(175000+$3)
  write oc.txt $2
  write oc.txt $calc($read(oc.txt,3)-$read(oc.txt,2))
  write oc.txt $calc($read(oc.txt,4)/4)
  write oc.txt %car
  write oc.txt 4LE7: %le 10= $calc($read(oc.txt,5)+25000)
  write oc.txt 4EE7: %ee 10= $calc($read(oc.txt,5)+40000)
  write oc.txt 4WE7: %we 10= $calc($read(oc.txt,5)+100000)
  write oc.txt 4DR7: %Driver 10= $calc($read(oc.txt,5)+10000+$3)
  msg $chan $read(oc.txt,7)
  msg $chan $read(oc.txt,9)
  msg $chan $read(oc.txt,8)
  msg $chan $read(oc.txt,10)
  write -c oc.txt
}
on *:text:!ee*:#octje: { 
  /topic $chan 4Leader 7: $iif(!%Le,?,%Le) 10|| 4We 7: $iif(!%We,?,%We) 10|| 4Ee 7: $2- 10|| 4Driver 7: $iif(!%Driver,?,%Driver) 10|| 4Stad 7: $iif(!%stad,?,%stad)  | /set %Ee $2- 
}
on *:text:!dr*:#octje: { 
  /topic $chan 4Leader 7: $iif(!%Le,?,%Le) 10|| 4We 7: $iif(!%We,?,%We) 10|| 4Ee 7: $iif(!%Ee,?,%Ee) 10|| 4Driver 7: $2- 10|| 4Stad 7: $iif(!%stad,?,%stad)  | /set %driver $2- 
} 
on *:text:!le*:#octje: { 
  /topic $chan 4Leader 7: $2- 10|| 4We 7: $iif(!%We,?,%We) 10|| 4Ee 7: $iif(!%Ee,?,%Ee) 10||  4Driver 7: $iif(!%Driver,?,%Driver) 10|| 4Stad 7: $iif(!%stad,?,%stad)  | /set %le $2- 
} 
on *:text:!we*:#octje: { 
  /topic $chan 4Leader 7: $iif(!%Le,?,%Le) 10|| 4We 7: $2- 10|| 4Ee 7: $iif(!%Ee,?,%Ee) 10||  4Driver 7: $iif(!%Driver,?,%Driver) 10|| 4Stad 7: $iif(!%stad,?,%stad)  | /set %we $2- 
}
on *:text:!ee*:#octje: { 
  /topic $chan 4Leader 7: $iif(!%Le,?,%Le) 10|| 4We 7: $iif(!%We,?,%We) 10|| 4Ee 7: $2- 10|| 4Driver 7: $iif(!%Driver,?,%Driver) 10|| 4Stad 7: $iif(!%stad,?,%stad)  | /set %Ee $2- 
}
on *:text:!commands*:#octje: {
  msg $chan 7Zo werkt het: Typ 4!ocstart 7wanneer je de occal wil starten 4!le 10*naam*7 - 4!we10 *naam*7 - 4!ee10 *naam*7 - 4!dr10 *naam*7 - 4!stad10 *stad*7 - 4!lijst10 *Wie is Wat*7. Typ 4!calcu 10*waarde opbrengst* *waarde car*7 om de OCCalculator te starten. Typ 4!ocstop 7wanneer je klaar bent met de oc.
}
on *:text:!lijst*:#octje: { 
  msg $chan 4Le 7= $iif(!%Le,?,%Le) $2-
  msg $chan 4We 7= $iif(!%We,?,%We) $2-
  msg $chan 4Ee 7= $iif(!%Ee,?,%Ee) $2-
  msg $chan 4Dr 7= $iif(!%Driver,?,%Driver) $2-
  msg $chan 4Stad 7= $iif(!%stad,?,%stad) $2-
}

i hope some one can help me with it

[Sir_Fz]

I think it's easier if you tell us what you want; request a script, don't ask for a translation.

[darkfader]

I think it's easier if you tell us what you want; request a script, don't ask for a translation.

but how i can say that it's not a normal script because we use it to platy online game so i 'don't know what kind of script it is because i think nobody has it off heard of it

[Alchera]

These forums are not for translating lame mIRC "scripts" into TCL. If you want to do that then make an effort and learn TCL and do it yourself.

[darkfader]

These forums are not for translating lame mIRC "scripts" into TCL. If you want to do that then make an effort and learn TCL and do it yourself.

i know i want to pay for it no problem

[Alchera]

I think it's easier if you tell us what you want; request a script, don't ask for a translation.

but how i can say that it's not a normal script because we use it to platy online game so i 'don't know what kind of script it is because i think nobody has it off heard of it

You paste the contents of a "script" (loose term) for an IRC client that you have 'apparently' written; then it should be exceedingly easy for you to describe what it does and do as Sir_Fz asked.

This would be a clan script?