[manikdepresif]

[Aciklama]
Resim (@picture) penceresine tam(kısmi olmayan) grid ceker.
[Kullanim]

/grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]reismi gridgenisligi renknumara[0-15]

[Uygulama]
Resim penceresi acalim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/window -ep @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re
/grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 5 1
/grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 7 8

Onek Komutlar;
;;;;;;;;;;;;

;[Kod baslangic]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias grid {
  if (@* !iswm $1) { return }
  if ($2 !isnum) { return }
  var %grd-renk = $3
  if ($3 !isnum) { var %grd-renk = 1 }
  var %grd-wh = $2
  var %x = $window($1).bw
  var %y = $window($1).bh
  var %ilk-x = 1
  var  %m = 1, %deg-y = 1
  while (%m <= %x) {  
    drawline  $1 %grd-renk 1 %ilk-x %deg-y %x %deg-y
    inc %deg-y %grd-wh 
    inc %m
  }
  var %m = 1, %deg-x = 1
  while (%m <= %y) {
    drawline $1 %grd-renk 1 %deg-x 1 %deg-x %x
    inc %m
    inc %deg-x %grd-wh 
  }
}

;[Kod Bitis]
;Ornek Resim


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[manikdepresif]

X ve Y kordinatlari verilen yere kısmi (tanimlanmis) grid ceker.


;Kullanim: /partial_grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re gridgenislik renk xkordinat ykordinat [En boy oran]

;Ornek komut: /partial_grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]d 5 1 150 150 250

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias partial_grid {
  if (@* !iswm $1) { return }
  if ($2 !isnum) { return }
  var %grd-renk = $3
  if ($3 !isnum) { var %grd-renk = 1 }
  var %xkord-baslangic =  $$4
  var %ykord-baslangic = $$5
  var %enxboy = $$6
  var %grd-wh = $2
  var  %m = 0
  while (%m <= $round($calc((%enxboy / %grd-wh)),0)) {  
    drawline  $1 %grd-renk 1 %xkord-baslangic %ykord-baslangic $calc(%xkord-baslangic + %enxboy) %ykord-baslangic
    inc %ykord-baslangic %grd-wh
    inc %m
  }
  var %xkord-baslangic = $$4
  var %ykord-baslangic = $$5
  var %m = 0
  while (%m <= $round($calc((%enxboy / %grd-wh)),0)) {  
    drawline  $1 %grd-renk 1 %xkord-baslangic  %ykord-baslangic %xkord-baslangic  $calc(%ykord-baslangic + %enxboy)   
    inc %xkord-baslangic %grd-wh 
    inc %m
  }
}

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Forbidden]

Emeğine sağlık jeun abi