show_table.qsrc 629 B

123456789101112131415161718
  1. # show_table
  2. !{show table v2, by illume
  3. this function will push $args[0] into $show_table with $args[1] column, min=1, and count by st_count
  4. st_count=0 & $show_table=''
  5. if kat > 0:gs'show_table','Kate <<kat>>','2'
  6. if vika > 0:gs'show_table','Vika <<vika>>','2'
  7. ......
  8. if st_count > 0 :pl 'Relations:<BR><TABLE BORDER=1><<$show_table>></TR></TABLE>'
  9. }
  10. if $ARGS[1] <1 : $ARGS[1] =1
  11. if st_count-st_count/$ARGS[1]*$ARGS[1]=0:$show_table += "<TR>"
  12. $show_table += "<TD><<$ARGS[0]>></TD>"
  13. if st_count-st_count/$ARGS[1]*$ARGS[1]+1=$ARGS[1]:$show_table += "</TR>"
  14. st_count+=1
  15. --- show_table ---------------------------------