|
Post by James :) (aka Madcow) on Jul 25, 2008 15:21:00 GMT -5
so i made an easy peasy thingy , that you'ld use in a game to show how strong your charecter is against an attack:
Struc Element Dim Percent# Dim Immune EndStruc textmode(text_buffered) Dim Element WaterFire WaterFire.Percent# = rnd()%100 if rnd()%10 <= 5 then WaterFire.Immune = True Else WaterFire.Immune = False Endif Dim i color (0,0,255) If WaterFire.Immune then print "Water "+int(WaterFire.Percent#)+"% |" for i=0 to WaterFire.Percent#/100*45 locate i, 1 print "-" next color (255,0,0) for i=WaterFire.Percent#/100*45 to 45 locate i, 1 print "-" next locate 32-len(str$(int(100-WaterFire.Percent#))),0 print "| "+str$(int(100-WaterFire.Percent#))+"% Fire" locate WaterFire.Percent#/100*45, 1 color (255, 255, 255) print "o" Else print "Water " color (255/2, 255/2, 255/2) print "Immune" color (0, 0, 255) print " |" locate 27,0 color (255, 0, 0) print "| " color (255/2, 255/2, 255/2) print "Immune " color (255, 0, 0) print "Fire" Endif drawtext()
|
|
lal7777
Posts
if all.knowledge = orange then: seed = mankind.knowledge: grow(seed,time): endif
Posts: 88
|
Post by lal7777 on Jun 6, 2011 22:18:51 GMT -5
Sometimes when this program is run it doesn't do anything. It usually happens when immune = 0.
|
|