Linkki systeemi

[MaGetzUb]

Tuli täs äske koodailtua linkki systeemi, se on aika yksin kertainen. Kommentit puuttuu älkää siis suotta vedä hernettä nenään.
Koodi:

Code: Select all

SCREEN 400,75
SetWindow "Link system by dsg"
Repeat
Color 0,0,255
link(15,15,"coolbasic","http://www.coolbasic.com/")
link(15,30,"keksi ite","http://www."+sano_itte$+".com/")

If MouseX()>15 And MouseX()<15+TextWidth("keksi ite: ") And MouseY()>45 And MouseY()<45+15
If MouseHit(1) Then aktivoitu=1
EndIf 

If MouseHit(2) Then aktivoitu=0
If aktivoitu = 1 Then 
sano_itte$=StypidInput(15,45,"keksi ite: ")
Else 
CloseInput()
Text 15,45,"keksi ite: "+sano_itte$
EndIf 

DrawScreen
Forever 


Function StypidInput(x,y,s$)
Locate x,y
ss$=Input(s$)

Return ss$
EndFunction 



Function link(x,y,otsikko$,URL$)
If MouseX()>X And MouseX()<X+TextWidth(URL$) And MouseY()>y And MouseY()<y+TextHeight("|")
If MouseHit(1) Then 
Execute Url$
EndIf 
Text x,y,otsikko$+"->"+Url$
Line x,y+TextHeight("|"),TextWidth(otsikko$+"-> "+URL$),y+TextHeight("|")

Else 

Text x,y,otsikko$+"->"+Url$

EndIf 



EndFunction 

HUOM! Tämä on yksin kertainen!

[MAVmaggot]

Juu, ihan hyvä ja toimiva, mutta inputti ei toiminu.