| View previous topic :: View next topic |
| Author |
Message |
darkfader
Voice
Joined: 31 Dec 2005
Posts: 8
|
 Posted: Mon Jan 02, 2006 8:03 pm Post subject: Mirc to tcl ? |
 |
|
this is the last one i need to translate i hoope someboby can fix it
its a hugs one 
| Code: |
}
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 |
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Jan 02, 2006 9:00 pm Post subject: |
|
|
I think it's easier if you tell us what you want; request a script, don't ask for a translation.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
darkfader
Voice
Joined: 31 Dec 2005
Posts: 8
|
| Posted: Mon Jan 02, 2006 9:02 pm Post subject: |
|
|
| Sir_Fz wrote: | | 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  |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon Jan 02, 2006 9:05 pm Post subject: |
|
|
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.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
darkfader
Voice
Joined: 31 Dec 2005
Posts: 8
|
| Posted: Mon Jan 02, 2006 9:06 pm Post subject: |
|
|
| Alchera wrote: | | 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 |
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Mon Jan 02, 2006 10:09 pm Post subject: |
|
|
| darkfader wrote: | | Sir_Fz wrote: | | 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?
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
