Я – к вашим услугам. Конечно, если вам угодно знаться со мной. Если же нет, достаточно слова, и я исчезну.
читать дальшеVandar Tokare
Имя: Vandar Tokare.
Раса – человек.
Пол : мужской.
Возраст : 25 лет.
Внешность: Высокий рост. Мускулистое телосложение. Короткие темные волосы. Глаза голубые. Лицо круглое.
Одежда – Чёрные штаны. Чорный плащ. Очки цвета Хамелеон. Чёрные сапоги.
Характер – очень добр, не люблю критиковать других, Всегда готов помочь.
Биография – я был простым человеком, но имел очень хорошего отца. Он умело пользовалься старфайтером. Это ему сильно помогало, так как он был контрабандистом, причём отменным. В нашей организации контрабандистов «Smugglers» моего отца все хорошо знали и уважали. А если его знали как отменного контрабандиста, то и задания у него были нелегкие. Но на большую часть этих нелегких задач он брал меня з собой. После того, як его корабль входил в гиперпространство, мой папа показывал мне, как корабль построен, его функции и учил меня владению кораблей. Я стал отменным пилотом и перескочил даже отца. И от пришло моё время.
Моего отца отправляли на очень опасное задание. Ему нужно было остановить пиратские действия на планете Геонозис. Екипировка у него была ого-го: бластеры, щиты, мечи, броня… И вот настало время. Он улетел, сам один против сотней пиратов. В космосе планети его начали атаковать и от нього поступило тривожное известие. Через час все были в космосе Геонозиса. Але пиратские войска успели ударить смертельным ударом по кораблю мого отца. К счастью, каждому из нас раздали по ЕМР, чтобы подорвать базу в случае, если мой отец не сможет. Но все сражались в космосе, только я проник внутрь базы. И вот я біля дверей центру управління. Но, когда я открыл дверь, бластерный выстрел чуть не шмальнул мне по башке. Я начал стрелять в ответ. Ребятам, что прибыли после меня, ничего не оставил. Ми установили ЕМР і начали делать ноги. Прозвучал такой взрыв, что у нас чуть не перевантажились системи. Я думаю, что этого взрыва геонозианцы внизу на планете аж уши позакривали.
Мы прилетели назад на Явин. Все тосковали за моим отцом. И решили: отец был хорошим работником, сын еще лучшим будет. Меня назначили главой организации. Мне было 25 лет. И вот передо мной стоит выбор: повторить долю своего отца или послать кого-то другого. Я избрал первое.
На этот раз нужно было остановить операции Хатта, ибо они мешали багатенькой корпорации. Я прилетел на Татуин. Меня засекли и взяли в заложники. Выяснилось, что Хатт давно планировал атаку на нас, но не знал, где мы. Меня посадили в турьму. Допросы велись 10 раз, но я ничего лишнего не ляпнул. Прибыли мои друзья, и я оказался на свободе. Мы уже убегали, но я подумал: меня послали на задание, надо его закончить. Тем более в коридоре выключили електрику, и перед моим носом дверь закрилась. Я успел покласть 5 ЕМР по коридорах палаца и теперь надо было думать, как выйти из палаца. К счатью, я хорошо знал компьютер и начал открывать дверь:
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
*tbToolBar.Refresh
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
*'try to navigate to the starting address
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If
End Sub
Private Sub brwWebBrowser_DownloadComplete()
*On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
*Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
*Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
*cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
*brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
*End If
End Sub
Private Sub F-2_res()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
*End Sub
Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
*Me.Caption = "Working..."
End If
End Sub
Door Access Enabled.
Розкодировал двери и сделал ноги. Палаца нету. Он исчез, сделался маленькими кусочками, рассеяными по всей пустыне. А во мне проснулась совесть. Не знаю как, но мне она приказала вершить только хорошие дела. Для этого нужно стать честным и справедливым. А сделать могут это только учителя академии республиканской армии. И я отправился на Корускант.
Ранг - 1.
Екипировка:
BlasTech DL-44, Stun Pistol, Blast Vest, Blast Helmet, Force Pike, Comlink Headset, Pocket Computer, 2 MedPacs, Laser Detection Trip, 7280 кредитов.
Господа айтишники! Кому не лень, дайте ТОЧНУЮ функцию этого скрипта. Интересно...
Имя: Vandar Tokare.
Раса – человек.
Пол : мужской.
Возраст : 25 лет.
Внешность: Высокий рост. Мускулистое телосложение. Короткие темные волосы. Глаза голубые. Лицо круглое.
Одежда – Чёрные штаны. Чорный плащ. Очки цвета Хамелеон. Чёрные сапоги.
Характер – очень добр, не люблю критиковать других, Всегда готов помочь.
Биография – я был простым человеком, но имел очень хорошего отца. Он умело пользовалься старфайтером. Это ему сильно помогало, так как он был контрабандистом, причём отменным. В нашей организации контрабандистов «Smugglers» моего отца все хорошо знали и уважали. А если его знали как отменного контрабандиста, то и задания у него были нелегкие. Но на большую часть этих нелегких задач он брал меня з собой. После того, як его корабль входил в гиперпространство, мой папа показывал мне, как корабль построен, его функции и учил меня владению кораблей. Я стал отменным пилотом и перескочил даже отца. И от пришло моё время.
Моего отца отправляли на очень опасное задание. Ему нужно было остановить пиратские действия на планете Геонозис. Екипировка у него была ого-го: бластеры, щиты, мечи, броня… И вот настало время. Он улетел, сам один против сотней пиратов. В космосе планети его начали атаковать и от нього поступило тривожное известие. Через час все были в космосе Геонозиса. Але пиратские войска успели ударить смертельным ударом по кораблю мого отца. К счастью, каждому из нас раздали по ЕМР, чтобы подорвать базу в случае, если мой отец не сможет. Но все сражались в космосе, только я проник внутрь базы. И вот я біля дверей центру управління. Но, когда я открыл дверь, бластерный выстрел чуть не шмальнул мне по башке. Я начал стрелять в ответ. Ребятам, что прибыли после меня, ничего не оставил. Ми установили ЕМР і начали делать ноги. Прозвучал такой взрыв, что у нас чуть не перевантажились системи. Я думаю, что этого взрыва геонозианцы внизу на планете аж уши позакривали.
Мы прилетели назад на Явин. Все тосковали за моим отцом. И решили: отец был хорошим работником, сын еще лучшим будет. Меня назначили главой организации. Мне было 25 лет. И вот передо мной стоит выбор: повторить долю своего отца или послать кого-то другого. Я избрал первое.
На этот раз нужно было остановить операции Хатта, ибо они мешали багатенькой корпорации. Я прилетел на Татуин. Меня засекли и взяли в заложники. Выяснилось, что Хатт давно планировал атаку на нас, но не знал, где мы. Меня посадили в турьму. Допросы велись 10 раз, но я ничего лишнего не ляпнул. Прибыли мои друзья, и я оказался на свободе. Мы уже убегали, но я подумал: меня послали на задание, надо его закончить. Тем более в коридоре выключили електрику, и перед моим носом дверь закрилась. Я успел покласть 5 ЕМР по коридорах палаца и теперь надо было думать, как выйти из палаца. К счатью, я хорошо знал компьютер и начал открывать дверь:
Option Explicit
Public StartingAddress As String
Dim mbDontNavigateNow As Boolean
Private Sub Form_Load()
On Error Resume Next
Me.Show
*tbToolBar.Refresh
Form_Resize
cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15
If Len(StartingAddress) > 0 Then
cboAddress.Text = StartingAddress
cboAddress.AddItem cboAddress.Text
*'try to navigate to the starting address
timTimer.Enabled = True
brwWebBrowser.Navigate StartingAddress
End If
End Sub
Private Sub brwWebBrowser_DownloadComplete()
*On Error Resume Next
Me.Caption = brwWebBrowser.LocationName
End Sub
Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
*Me.Caption = brwWebBrowser.LocationName
For i = 0 To cboAddress.ListCount - 1
If cboAddress.List(i) = brwWebBrowser.LocationURL Then
bFound = True
Exit For
End If
*Next i
mbDontNavigateNow = True
If bFound Then
cboAddress.RemoveItem i
End If
cboAddress.AddItem brwWebBrowser.LocationURL, 0
*cboAddress.ListIndex = 0
mbDontNavigateNow = False
End Sub
Private Sub cboAddress_Click()
If mbDontNavigateNow Then Exit Sub
timTimer.Enabled = True
*brwWebBrowser.Navigate cboAddress.Text
End Sub
Private Sub cboAddress_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = vbKeyReturn Then
cboAddress_Click
*End If
End Sub
Private Sub F-2_res()
cboAddress.Width = Me.ScaleWidth - 100
brwWebBrowser.Width = Me.ScaleWidth - 100
brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100
*End Sub
Private Sub timTimer_Timer()
If brwWebBrowser.Busy = False Then
timTimer.Enabled = False
Me.Caption = brwWebBrowser.LocationName
Else
*Me.Caption = "Working..."
End If
End Sub
Door Access Enabled.
Розкодировал двери и сделал ноги. Палаца нету. Он исчез, сделался маленькими кусочками, рассеяными по всей пустыне. А во мне проснулась совесть. Не знаю как, но мне она приказала вершить только хорошие дела. Для этого нужно стать честным и справедливым. А сделать могут это только учителя академии республиканской армии. И я отправился на Корускант.
Ранг - 1.
Екипировка:
BlasTech DL-44, Stun Pistol, Blast Vest, Blast Helmet, Force Pike, Comlink Headset, Pocket Computer, 2 MedPacs, Laser Detection Trip, 7280 кредитов.
Господа айтишники! Кому не лень, дайте ТОЧНУЮ функцию этого скрипта. Интересно...
@темы: Звездные войны, РПГ