Karşı Irk'a Atağı Engelleme(Kaynak Kod)

Dim Zone
Zone = readlong(KO_ADR_CHR + 2628)
If Zone = "1" Then
Label12.Caption = "Bulunduğunuz Zone :" & "Luferson"
End If
If Zone = "2" Then
Label12.Caption = "Bulunduğunuz Zone :" & "El Morad"
End If
If Zone = "11" Then
Label12.Caption = "Bulunduğunuz Zone :" & "Karus - Eslant"
End If
If Zone = "12" Then
Label12.Caption = "Bulunduğunuz Zone :" & "Human - Eslant"
End If
If Zone = "21" Then
Label12.Caption = "Bulunduğunuz Zone :""Maradon"
End If
If Zone = "39" Then
Label12.Caption = "Bulunduğunuz Zone :""Delos"
End If
If Zone = "32" Then
Label12.Caption = "Bulunduğunuz Zone :""Abys"
End If
If Zone = "34" Then
Label12.Caption = "Bulunduğunuz Zone :""Felankor’s Lair"
End If
If Zone = "48" Then
Label12.Caption = "Bulunduğunuz Zone :""Arena"
End If
If Zone = "71" Then
Label12.Caption = "Bulunduğunuz Zone :""Colony Zone"
End If

Yukarıda Karakterın Hangı Zonede Oldugunu Gösteriyoruz
---------------------------------------------------------------
Karşı Irk'a Atak Engellemek İçin Şöyle Bir Şey Kullanabilirsiniz

if Zone="71" Then
Atak.Enabled=False ' Burada Atak Secenegını Dokunulmaz Yapıyor
Label1.Caption = 'CZ'de Atak Yapılamaz" ' Burada Kullanıcıyı Bilgilendiriyor
end if