Tutorial 4

Win-SiMPLE
Call  output(1)
Call  output(2)
Call  output(3)
Call  output(4)
Call  output(5)
Call  output(6)
Call  output(7)
Call  output(8)
Call  output(9)
Call  output(10)
Win-SiMPLE
	Set number=1
loop:
	Call output(number)
	Set number=number+1
	If(number <= 10) Goto loop
Win-SiMPLE
	Set y=480
fly:
	Call cls
	Call rocket(320, y, 3) @
	Call delay(10)
	Set y=y-1
	If(y >= 50) Goto fly
	Call explode(320, 50) @

Append G: toys
Win-SiMPLE
	Set k=1
loop:
	Set x=random(100)
	Call out(x)
	Call out(" ")
	Set k=k+1
	If(k <= 10) Goto loop
Win-SiMPLE
	Call randomize
	Set k=1
loop:
	Set x=random(100)
	Call out(x)
	Call out(" ")
	Set k=k+1
	If(k <= 10) Goto loop
Win-SiMPLE
Set xcenter=xpixels()/2
Set ycenter=ypixels()/2
Call point color(RED)
Call plot(xcenter, ycenter)
Win-SiMPLE
Set xmax=xpixels()
Set ymax=ypixels()
Call line color(RED)
Call line(0, 0, xmax, ymax)
Call line color(YELLOW)
Call line(0, ymax, xmax, 0)
Win-SiMPLE
Set xmax=xpixels()
Set ymax=ypixels()
Call line color(RED)
Call line(0, 0, xmax, ymax)
Call line color(YELLOW)
Call line(0, ymax, xmax, 0)
Call wait quit key
Notice: This work is licensed under a BY-NC-SA. Permalink: Tutorial 4

Lascia un commento