#202190 - 2011-05-11 11:16 AM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
266
function a($)
$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
if b>$
$a=($a[right($,1+($<20))]^)+$a[20+$/10]
else
$a=$a[($^)-((instr($,y)^$)>9)]
endif
if $=$a
$a=""+$+" is magic."
else
$a=""+$+" is "+$a+". "+a($a)
endfunction
@Shane: as this is Jooels Baby, it's up to him explaining whats going on..
Only so much: this part here is very clever, and I don't know if it was used as such before:
($a[right($,1+($<20))]^)
If the array element is of type String, it returns its length or, if it is of type integer, it returns the value of the element..
_________________________
|
Top
|
|
|
|
#202191 - 2011-05-11 01:41 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Jochen]
|
BradV
Seasoned Scripter
  
Registered: 2006-08-16
Posts: 686
Loc: Maryland, USA
|
It's so unobvious.  What does $a=($=) do?
|
Top
|
|
|
|
#202194 - 2011-05-11 04:27 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero]
|
Lonkero
KiX Master Guru
   
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
264
function a($)
$a=4*($=),3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8
if b>$
$a=($a[right($,1+($<20))]^)+substr(t66555766,left($,~),1)
else
$a=$a[($^)-((instr($,y)^$)>9)]
endif
if $=$a
$a=""+$+" is magic."
else
$a=""+$+" is "+$a+". "+a($a)
endfunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#202196 - 2011-05-11 04:36 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Jochen]
|
Jochen
KiX Supporter
   
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
but why left($,~) ?
259:
function a($)
$a=4*($=),3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8
if b>$
$a=($a[right($,1+($<20))]^)+substr(t66555766,$/10,1)
else
$a=$a[($^)-((instr($,y)^$)>9)]
endif
if $=$a
$a=""+$+" is magic."
else
$a=""+$+" is "+$a+". "+a($a)
endfunction
_________________________
|
Top
|
|
|
|
#202210 - 2011-05-12 07:53 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero]
|
Lonkero
KiX Master Guru
   
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
258.
function a($)
$a=4*($=),3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8
if b>$
$a=($a[$-($>19)*$/10*10]^)+substr(t66555766,$/10,1)
else
$a=$a[($^)-((instr($,y)^$)>9)]
endif
if $=$a
$a=""+$+" is magic."
else
$a=""+$+" is "+$a+". "+a($a)
endfunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#202211 - 2011-05-12 07:55 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero]
|
Lonkero
KiX Master Guru
   
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
257
function a($)
$a=4*($=),3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8
if b>$
$a=($a[$-($>19)*$/10*10]^)+substr(t66555766,$/10,1)
else
$a=$a[($^)-(instr($,y)^$)/10]
endif
if $=$a
$a=""+$+" is magic."
else
$a=""+$+" is "+$a+". "+a($a)
endfunction
_________________________
!download KiXnet
|
Top
|
|
|
|
#202218 - 2011-05-13 02:20 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero]
|
Richard H.
Administrator
   
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
Sorry, just couldn't resist:
function a($)
$a=4*($=),3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8
if b>$
$a=($a[$-($>19)*$/10*10]^)+substr(t66555766,$/10,1)
else
$a=$a[($^)-(instr($,y)^$)/10]
endif
if $=$a
$a=@+$+" is magic."
else
$a=@+$+" is "+$a+". "+a($a)
endfunction
255
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
2023-12-29 [BradV]
Happy new year!
2024-02-09 [RSLHA]
No access possible!
2024-02-09 [RSLHA]
Database Error!
2024-02-18 [Dr_Rick]
What happened to Bruno
2024-03-08 [mole]
Thanks for getting the posts back again.
2024-04-18 [MarineV]
will the db errors get fixed????
2024-04-26 [Tonny]
database error, please!
2024-05-09 [NTDOC]
I'm not seeing any errors
2024-05-31 [chojin]
DB is down again
2024-06-04 [selsner]
Still no access, please help!
2024-06-07 [mole]
Looks like DB is back again. Thanks.
2024-06-17 [It_took_my_meds]
We encountered a problem. The reason reported was Database error only visible to forum administrators Please click back to return to the previous page.
2024-07-04 [Armin73]
There is still a database error 🤷♂️
2024-07-09 [0neZero]
There is still a database error 🤷♂️
2024-07-10 [Allen]
DB working a few times in between the messages above. Working again as of 7/10. Thanks Doc
2024-08-31 [NetGnostic]
Bummer, the Database error is back.
2024-09-04 [NTDOC]
Fourms are back up without error for the moment
2024-10-02 [Arend_]
Wll still have database errors ;-)
2024-10-03 [Allen]
Thanks to Doc... it's back.
2024-12-09 [chojin]
could we move kixtart to a new place in order to keep it living ? maybe create a github page and a subreddit?
2024-12-10 [Allen]
do know about moving it, but I know Doc is aware of the DB issue. Should be back online soon.
2024-12-10 [Allen]
don't know...
2025-02-09 [Comet]
Greetings. I installed KiX on my new Windows 11 computer, and joined this foum. Hello World!
2025-02-10 [Allen]
Welcome
2025-03-07 [Comet]
UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators
2025-06-30 [mole]
Thanks for getting this working again.
2025-07-28 [mole]
UBB Error We encountered a problem. The reason reported was Database error only visible to forum administrators
2025-08-01 [Arend_]
I think it's fixed, I don't have the problem.
|
|
0 registered
and 664 anonymous users online.
|
|
|