הינה לכם - הקוד ומלא ושיפורו
כן זה אכן זה: במקום ??בלע זה הופך ל: בלע?? האמת שזה לא קשה, אבל הקושי שלי היה שנגיד אני עושה רק "?" זה בעייה... כי התו מוחזר ללא סוף משמאל לימין כי הוא גם בשמאל וגם בימין אז בשביל זה השתמשתי ב $calc $count ו $len הינה הקוד המלא והסברו on *:INPUT:*:{ if ($left($1-,1) == /) { return $1- } if ($1- == $null) { halt } if ($server == $null) { return $1- } if ($active == Status Window) { return $1- } set %god $1- goto movenext :movenext if ($left(%god,1) == a) { /set %god A $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == b) { /set %god B $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == c) { /set %god C $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == d) { /set %god D $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == e) { /set %god E $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == f) { /set %god F $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == g) { /set %god G $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == h) { /set %god H $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == i) { /set %god I $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == j) { /set %god J $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == k) { /set %god K $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == l) { /set %god L $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == m) { /set %god M $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == n) { /set %god N $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == o) { /set %god O $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == p) { /set %god P $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == q) { /set %god Q $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == r) { /set %god R $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == s) { /set %god S $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == t) { /set %god T $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == u) { /set %god U $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == v) { /set %god V $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == w) { /set %god W $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == x) { /set %god X $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == y) { /set %god Y $+ $right(%god,$calc($len(%god) - 1)) } if ($left(%god,1) == z) { /set %god Z $+ $right(%god,$calc($len(%god) - 1)) } goto spellingnext :spellingnext /set %Sold $len(%god) /set %cSold $calc($count(%god,!) + $count(%god,´) + $count(%god,.) + $count(%god,?) + $count(%god,
) if (%cSold == %Sold) { goto end } if ($left(%god,1) == a) { goto end } if ($left(%god,1) == b) { goto end } if ($left(%god,1) == c) { goto end } if ($left(%god,1) == d) { goto end } if ($left(%god,1) == e) { goto end } if ($left(%god,1) == f) { goto end } if ($left(%god,1) == g) { goto end } if ($left(%god,1) == h) { goto end } if ($left(%god,1) == i) { goto end } if ($left(%god,1) == j) { goto end } if ($left(%god,1) == k) { goto end } if ($left(%god,1) == l) { goto end } if ($left(%god,1) == m) { goto end } if ($left(%god,1) == n) { goto end } if ($left(%god,1) == o) { goto end } if ($left(%god,1) == p) { goto end } if ($left(%god,1) == q) { goto end } if ($left(%god,1) == r) { goto end } if ($left(%god,1) == s) { goto end } if ($left(%god,1) == t) { goto end } if ($left(%god,1) == u) { goto end } if ($left(%god,1) == v) { goto end } if ($left(%god,1) == w) { goto end } if ($left(%god,1) == x) { goto end } if ($left(%god,1) == y) { goto end } if ($left(%god,1) == z) { goto end } if ($left(%god,1) == <) { goto end } if ($left(%god,1) == |) { goto end } if ($right(%god,2) == :
{ set %god : $+ $left(%god,$calc($len(%god) - 2)) | goto spellingnext } if ($right(%god,1) == ?) { set %god ? $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } if ($right(%god,1) == !) { set %god ! $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } if ($right(%god,1) == .) { set %god . $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } if ($right(%god,1) == ,) { set %god , $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } if ($right(%god,1) ==
{ set %god : $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } if ($right(%god,1) == ´) { set %god ´ $+ $left(%god,$calc($len(%god) - 1)) | goto spellingnext } goto end :end msg $target  $+ $calc(<color> + 16) $+ %god halt } זהו שיפור של הקוד שלי ומלואו: הכניסו את הקוד לרימוט ALT+R וודאו במדויק שאין עוד INPUT נוסף את הצבע הכניסו ב <color> מספר בין 1 ל 157 רשום בסוף הקטע.. ככה: הקוד מונע שמשתנה אחד יחזור על עצמו כמו ? לא יהיה שמאל ימין והמחשב יתקע פשוט התו ישאר כמו שהוא עם הצבע שלו. מלבד זאת הקוד עושה את האות הגדולה באנגלית בהתחלה למשל: a הופכת ל A בתחילת משפט. מה שטוב בקוד הזה שהוא לא יעבוד באנגלית: are..? ולא ?..are בפעם הבאה אני אביא את הקוד שהופך את cuting ל cutting - מתקן שגיאות ing בחוק הסנביץ ובשאר החוקים.
